陋室铭的优秀教案:Microsoft VBScript 编译器错误 (0x800A03F6)

来源：百度文库编辑：高考问答时间：2024/05/05 19:46:45

错误类型：
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/cj1/querrycj.asp, 第 52 行

下面的是代码:

<%
xh=replace(request("xh"),"'","")
kc=replace(request("kc"),"'","")
%>

<%sql="select * from cj where 1=1 "
if request("kind")="9" then
if xh="" then
sql=sql&"and xh='"&xh&"' "
End If
if kc<>"" then
response.write "<script language=JavaScript>" & chr(13) &

"alert('请您输入课程名');" & "history.back()" & "</script>"
Response.End
end if
If kc <> "不清楚" Then
sql=sql&"and kc='"&kc&"'"
End If

set rs1=conn.execute(sql)

%>
<head>
<%
if rs1.eof or rs1.bof then
response.write "对不起没有搜索到记录"
response.end
else
%>
</head>
<body>
<table width="100%" border="0" align="center" cellpadding="5"

cellspacing="0">
<tr align="center" bgcolor="#006699">
<td width="220"><font color="#FFFFFF">学号</font></td>
<td width="181"><font color="#FFFFFF">课程</font></td>
<td width="102"><font color="#FFFFFF">成绩</font></td>
</tr>
<%
do while not rs1.eof
%>
<tr align="center">
<td><%=rs("xh")%></td>
<td><%=rs("kc")%></td>
<td><%=rs("cj")%></td>
</tr>
<%
i=i+1
rs.movenext
loop
rs1.close
set rs1=nothing
%>
<%end if%>
</table>
</bady>

我都看了N遍了..就是不知道哪里缺了END了...郁闷啊...花了好多时间卡在这里了...有高手知道的给我指出来下啊...
万分感激...本人是新手.这个只好把整个代码放上来了..
额..已经解决了.....我是犯了低级错误.......缺少end if
晕倒....

回答：VISTA
学弟
3月29日 19:14 由于我没有看到你的asp程序，所以我不清楚你的程序是否正确。

一般来说，这样的问题主要是asp文件中的服务器程序不正确造成的，另外涉及到odbc驱动程序可能是数据库部分有问题。看看你的机器中是否有安装不完全的数据库引擎。另外一个问题就是有可能Access（Jet驱动）数据库查询语句(id) form wdwz6 where hidden=1 有问题，是不是缺少select关键词？

祝你好运！

Microsoft VBScript Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 microsoft vbscript 编译器错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 (0x800A000D)