收录日期:2020/11/29 21:24:03 时间:2016/05/24 10:31:35 标签:ASP
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
%>
去掉
去掉就变成106行出错了,就是每次都是最后一行出错,这是缺少一个什么啊?
OK,结帖,知道了,呵呵~~
Function结尾少了End Function。

拨号上网的问题 请问一下.ASP文件和.ASPX文件有什么区别 使用GZIP进行压缩的问题,急 不能在窗体的创建事件里使用数据库的打开命令吗 session 错误? 祝大家情人节快乐!放分呀! 如何编写代码才能使得图形不被背景颜色覆盖? 急!!!! 怎样窍取WINNT密码 在8i中怎样把数据库中的数据export成xml文件? 请帮忙……高手们…… DelphiToby(魔鬼先生)请进~~~~~~ 求救......怎么不能跳转了... 急!!!安装问题!!!! 急问:怎样去除Win2000关机选项中的\"待机\"一项? 向高手请教!!!!! 〓〓〓〓请问有没有什么下载文件的代码(直接从服务器硬盘下载文件)(C#+asp.net)?〓〓〓〓 请教 weblogic的console问题(在线等待,如果可以解决可以再送分) 查找是否有重名文件 为什么我的工作流不能创建? 各位,请问jbuilder可以支持Web Service吗? 给点儿建议 数据更新 请问:游戏开发?? 什么是\"C/C++运行期库\"?里面有相关的七个小问题,麻烦您来解释一下. 将asp程序转换成asp.net? atlimage.h 怎么找不到啊?\\ATL\\INCLUDE中没有啊,急!!! 网赚推荐http://007money.91x.net 传递空引用指针到承接体!急死人了. CPPWebBrowser控件打开各种文档