简单的身份验证的程序,连接access数据库,为什么不通过呢。
<%
name=trim(request("name"))
passwd=trim(request("passwd"))
'检查用户是否输入信息
if name<>"" and passwd<>"" then
set conn=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("examdata.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs= server.createobject("adodb.recordset")
sql="select * from LogoUser where username='"&name&"' and userpwd='"&passwd&"'"
'检查用户的合法性
Set rs= conn.Execute(sql)
if not(rs.eof) then
Response.Write("确实是管理员身份")
else Response.Write("错误,请重新输入")
endif
endif
%>
=========
刚接触asp,感觉调试非常麻烦,怎么看也没看出什么啊。错误类型老是
错误类型:
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/check.asp, line 16
endif