28,391
社区成员
发帖
与我相关
我的任务
分享菜鸟求救，Expected 'End'
Microsoft VBScript compilation error '800a03f6'
Expected 'End'
/my/admin/addcom.asp, line 107
一直出现这种问题，怎么回事呢？107行就是最后一行。
代码：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
.style1 {
font-size: 16px;
color: #FFFFFF;
}
.style2 {
font-size: 12px;
color: #FFFFFF;
}
.input {
font-family: Tahoma, Arial, Verdana;
font-size: 12px;
}
.style3 {
font-family: Tahoma, Arial, Verdana;
font-size: 12px;
color: #000000;
}
-->
</style>
</head>
<%@ language="vbscript" %>
<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
%>
<% Function On_Add()
sql1="select * from company where ComName='"&Request.Form("name")&"' and ComEnName='"&Request.Form("enname")&"'"
rs.Open sql1,conn,1,1
if rs.RecordCount>=1 then
if rs("ComName")=Request.Form("name") and rs("ComEnName")=Request.Form("enname") then
Response.Redirect "messagebox.asp?msg=您输入的公司名已经存在，请输入其他公司！"
rs.Close
end if
end if
set rs=Server.CreateObject("Adodb.RecordSet")
sql2="select * from company"
rs.Open sql2,conn,3,3
rs.AddNew
rs("ComName")=Request.Form("name")
rs("ComEnName")=Request.Form("enname")
rs.Update
set rs_current=Server.CreateObject("Adodb.RecordSet")
sql3="select * from company where ComName='"&Request.Form("name")&"' and ComEnName='"&Request.Form("enname")&"'"
rs_current.Open sql3,conn,1,1
%>
<body>
<table width="600" border="0" cellpadding="0" cellspacing="1" bgcolor="#999999">
<tr>
<td height="21" valign="top" bgcolor="#1073E0"><span class="style1">厂商列表</span></td>
</tr>
<tr>
<td valign="top" bgcolor="#CCCCCC"><table border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<%
sql="select * from company"
rs.open sql,conn,1,1
Do While Not rs.EOF
%>
<td bgcolor="#CCCCCC"><div class="style3" align="center"><%=rs(1)%>(<%=rs(2)%>)</div></td>
<%
rs.MoveNext
loop
rs.Close
%>
</tr>
</table></td>
</tr>
</table>
<br>
<table width="425" height="43" border="0" cellpadding="0" cellspacing="1" bgcolor="#999999">
<tr>
<td width="402" bgcolor="#1073E0"><span class="style2">请输入您要添加的公司名称：</span></td>
</tr>
<tr>
<td bgcolor="#CCCCCC"><form language=vbscript name="form1" method="post" onSubmit="return On_Add()">
<span class="input">公司名：</span>
<input name="name" type="text" class="input" id="name">
<span class="input">英文名：</span>
<input name="enname" type="text" class="input" id="enname">
<input name="AddCom" type="submit" class="input" id="AddCom" value="添加">
<br>
</form></td>
</tr>
</table>
<p>
</p>
</body>
</html>
<%
conn.Close
rs_current.Close
rs.Close ------------Line 107
%>
Expected 'End'
/my/admin/addcom.asp, line 107
一直出现这种问题，怎么回事呢？107行就是最后一行。
代码：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
.style1 {
font-size: 16px;
color: #FFFFFF;
}
.style2 {
font-size: 12px;
color: #FFFFFF;
}
.input {
font-family: Tahoma, Arial, Verdana;
font-size: 12px;
}
.style3 {
font-family: Tahoma, Arial, Verdana;
font-size: 12px;
color: #000000;
}
-->
</style>
</head>
<%@ language="vbscript" %>
<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
%>
<% Function On_Add()
sql1="select * from company where ComName='"&Request.Form("name")&"' and ComEnName='"&Request.Form("enname")&"'"
rs.Open sql1,conn,1,1
if rs.RecordCount>=1 then
if rs("ComName")=Request.Form("name") and rs("ComEnName")=Request.Form("enname") then
Response.Redirect "messagebox.asp?msg=您输入的公司名已经存在，请输入其他公司！"
rs.Close
end if
end if
set rs=Server.CreateObject("Adodb.RecordSet")
sql2="select * from company"
rs.Open sql2,conn,3,3
rs.AddNew
rs("ComName")=Request.Form("name")
rs("ComEnName")=Request.Form("enname")
rs.Update
set rs_current=Server.CreateObject("Adodb.RecordSet")
sql3="select * from company where ComName='"&Request.Form("name")&"' and ComEnName='"&Request.Form("enname")&"'"
rs_current.Open sql3,conn,1,1
%>
<body>
<table width="600" border="0" cellpadding="0" cellspacing="1" bgcolor="#999999">
<tr>
<td height="21" valign="top" bgcolor="#1073E0"><span class="style1">厂商列表</span></td>
</tr>
<tr>
<td valign="top" bgcolor="#CCCCCC"><table border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<%
sql="select * from company"
rs.open sql,conn,1,1
Do While Not rs.EOF
%>
<td bgcolor="#CCCCCC"><div class="style3" align="center"><%=rs(1)%>(<%=rs(2)%>)</div></td>
<%
rs.MoveNext
loop
rs.Close
%>
</tr>
</table></td>
</tr>
</table>
<br>
<table width="425" height="43" border="0" cellpadding="0" cellspacing="1" bgcolor="#999999">
<tr>
<td width="402" bgcolor="#1073E0"><span class="style2">请输入您要添加的公司名称：</span></td>
</tr>
<tr>
<td bgcolor="#CCCCCC"><form language=vbscript name="form1" method="post" onSubmit="return On_Add()">
<span class="input">公司名：</span>
<input name="name" type="text" class="input" id="name">
<span class="input">英文名：</span>
<input name="enname" type="text" class="input" id="enname">
<input name="AddCom" type="submit" class="input" id="AddCom" value="添加">
<br>
</form></td>
</tr>
</table>
<p>
</p>
</body>
</html>
<%
conn.Close
rs_current.Close
rs.Close ------------Line 107
%>
...全文
请发表友善的回复…
发表回复
cutepage 2004-03-23
- 打赏
- 举报
OK，结帖，知道了，呵呵～～
Function结尾少了End Function。
Function结尾少了End Function。
cutepage 2004-03-23
- 打赏
- 举报
去掉就变成106行出错了，就是每次都是最后一行出错，这是缺少一个什么啊？
angelheavens 2004-03-23
- 打赏
- 举报
去掉
