这个代码出死循环

我不是稻草人 2008-12-04 07:47:38
当你输入错误的用户名和密码时就会出死循环,那个 请核对您的用户名或密码! 的窗口总出现
if request("UserName")<>"" then
if request("txtYanZheng")<>request("hideYanZheng") then
'验证码
response.write(ShowNext("您的验证码输入有误,请重新输入!","/admin/admin_login.asp"))
else
UserName=request("UserName")
Password=md5(trim(request("Password")))
set rs=Server.CreateObject("Adodb.Recordset")
rs.open "Select * from DCR_admin where AdminUser='" & trim(request("UserName")) &"' and pwd='"& Password & "'",conn,1,1
if rs.eof and rs.bof then
response.write(ShowNext("请核对您的用户名或密码!","/admin/admin_login.asp"))
else
session.timeout=60
session("admin")="Yes"
response.Redirect("/admin/index.asp")
end if
end if
response.End()
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
...全文
80 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
lobster_lshj 2008-12-05
  • 打赏
  • 举报
回复
那就核查一下 ShowNext 这个javascript函数是怎么写的吧
zhaohongbo83 2008-12-04
  • 打赏
  • 举报
回复
仔细看一下
这个问题好解决
virgo2008 2008-12-04
  • 打赏
  • 举报
回复

<%
if request("UserName") <>"" then
if request("txtYanZheng") <>request("hideYanZheng") then '验证码
response.write(ShowNext("您的验证码输入有误,请重新输入!","/admin/admin_login.asp"))
else
UserName=request("UserName")
Password=md5(trim(request("Password")))
set rs=Server.CreateObject("Adodb.Recordset")
rs.open "Select * from DCR_admin where AdminUser='" & UserName &"' and pwd='"& Password & "'",conn,1,1
if rs.eof and rs.bof then
response.write(ShowNext("请核对您的用户名或密码!","/admin/admin_login.asp"))
else
session.timeout=60
session("admin")="Yes"
response.Redirect("/admin/index.asp")
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>

28,409

社区成员

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

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