[求助]在ASP程序中插入vbscript的问题
这是原代码：<%
if request("id")=1 then
if request.Form("gonghao")="" or request.Form("mima")="" then
response.Write("<script language='javascript'>alert('对不起！工号和密码不能为空，请返回！');history.back();</script>")
response.End()
else
set conn=server.CreateObject("adodb.connection")
conn.open"driver={microsoft access driver (*,mdb)};dbq="&server.MapPath("database/info.mdb")
set rs=server.CreateObject("adodb.recordset")
sql="select * from user"
rs.open sql,conn,1,1
if rs.eof then
response.Write("<script language='javascript'>alert('该工号不存在,属非法登陆,请返回！');history.back();</script>")
else
response.Redirect("main.asp")
end if
end if
end if
%>
if request("id")=1 then
if request.Form("gonghao")="" or request.Form("mima")="" then
response.Write("<script language='javascript'>alert('对不起！工号和密码不能为空，请返回！');history.back();</script>")
response.End()
else
set conn=server.CreateObject("adodb.connection")
conn.open"driver={microsoft access driver (*,mdb)};dbq="&server.MapPath("database/info.mdb")
set rs=server.CreateObject("adodb.recordset")
sql="select * from user"
rs.open sql,conn,1,1
if rs.eof then
response.Write("<script language='javascript'>alert('该工号不存在,属非法登陆,请返回！');history.back();</script>")
else
response.Redirect("main.asp")
end if
end if
end if
%>
运行之后发现有错误 如下：
技术信息（用于支持人员）
错误类型：
Microsoft VBScript 编译器错误 (0x800A0408)
无效字符
/nancy/file/index.asp, line 114, column 6
end if
-----^
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
网页：
GET /nancy/file/index.asp
时间：
2007年9月19日, 16:57:00
