简单的身份验证的程序,连接access数据库,为什么不通过呢。

Mrkang 2009-01-28 01:47:17
<%
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

...全文
93 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
Mrkang 2009-01-28
  • 打赏
  • 举报
回复
得到了答案了。谢谢!!!
Mrkang 2009-01-28
  • 打赏
  • 举报
回复
这个没问题的。。
nanyang9 2009-01-28
  • 打赏
  • 举报
回复
难道条件 if name <>"" and passwd <>"" then 没通过??
有必要检查一下表单元素名与变量名是否一致。
Mrkang 2009-01-28
  • 打赏
  • 举报
回复
那该如何写呢!!请教了,菜鸟 一只
zanbije 2009-01-28
  • 打赏
  • 举报
回复

Response.Write("确实是管理员身份")
else Response.Write("错误,请重新输入")


这样出来并不显示东西:L)
Mrkang 2009-01-28
  • 打赏
  • 举报
回复
的确是end if 的问题我太不仔细了,改了以后显示空白页是什么原因呢
panliang03 2009-01-28
  • 打赏
  • 举报
回复
line 16是哪一行啊?楼主顺便也发出来
  • 打赏
  • 举报
回复
<%
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("错误,请重新输入")
end if 'end 和if 之间要有空格才对啊
end if

%>
Mrkang 2009-01-28
  • 打赏
  • 举报
回复
up
loginingcom 2009-01-28
  • 打赏
  • 举报
回复
<%
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("错误,请重新输入")
end if
end if

%>

28,391

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧