ASP后台验证出错
网上下载的源代码,后台验证一直出现错误信息产生错误的可能原因:用户名密码错误!!!Admin_ChkLogin.asp源代码如下:<%@language=vbscript...
网上下载的源代码,后台验证一直出现
错误信息
产生错误的可能原因:
用户名密码错误!!!
Admin_ChkLogin.asp源代码如下:
<%@language=vbscript codepage=936 %>
<!--#include file="Conn.asp"-->
<!--#include file="../Inc/Config.asp"-->
<!--#include file="inc/md5.asp"-->
<%
dim sql,rs
dim UserName,Password,CheckCode
UserName=replace(trim(request("UserName")),"'","")
Password=replace(trim(Request("Password")),"'","")
CheckCode=replace(trim(Request("CheckCode")),"'","")
if UserName="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户名不能为空!</li>"
end if
if Password="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>密码不能为空!</li>"
end if
if CheckCode="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>验证码不能为空!</li>"
end if
if session("CheckCode")="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>你登录时间过长,请重新返回登录页面进行登录。</li>"
end if
if CheckCode<>CStr(session("CheckCode")) then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>您输入的确认码和系统产生的不一致,请重新输入。</li>"
end if
if FoundErr<>True then
set conn=server.createobject("adodb.connection")
Password=md5(Password)
set rs=server.createobject("adodb.recordset")
sql="select * from admin where Password='"&Password&"' and UserName='"&UserName&"'"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户名密码错误!!!</li>"
else
if Password<>rs("Password") then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户3密码错误!!!</li>"
else
RndPassword=GetRndPassword(16)
rs("LastLoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs("LastLoginTime")=now()
rs("LoginTimes")=rs("LoginTimes")+1
rs("RndPassword")=RndPassword
rs.update
session.Timeout=SessionTimeout
session("AdminName")=rs("UserName")
session("AdminPassword")=rs("Password")
session("RndPassword")=RndPassword
rs.close
set rs=nothing
call CloseConn()
Response.Redirect "default.asp"
end if
end if
rs.close
set rs=nothing
end if
if FoundErr=True then
call WriteErrMsg()
end if
call CloseConn() 展开
错误信息
产生错误的可能原因:
用户名密码错误!!!
Admin_ChkLogin.asp源代码如下:
<%@language=vbscript codepage=936 %>
<!--#include file="Conn.asp"-->
<!--#include file="../Inc/Config.asp"-->
<!--#include file="inc/md5.asp"-->
<%
dim sql,rs
dim UserName,Password,CheckCode
UserName=replace(trim(request("UserName")),"'","")
Password=replace(trim(Request("Password")),"'","")
CheckCode=replace(trim(Request("CheckCode")),"'","")
if UserName="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户名不能为空!</li>"
end if
if Password="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>密码不能为空!</li>"
end if
if CheckCode="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>验证码不能为空!</li>"
end if
if session("CheckCode")="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>你登录时间过长,请重新返回登录页面进行登录。</li>"
end if
if CheckCode<>CStr(session("CheckCode")) then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>您输入的确认码和系统产生的不一致,请重新输入。</li>"
end if
if FoundErr<>True then
set conn=server.createobject("adodb.connection")
Password=md5(Password)
set rs=server.createobject("adodb.recordset")
sql="select * from admin where Password='"&Password&"' and UserName='"&UserName&"'"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户名密码错误!!!</li>"
else
if Password<>rs("Password") then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>用户3密码错误!!!</li>"
else
RndPassword=GetRndPassword(16)
rs("LastLoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs("LastLoginTime")=now()
rs("LoginTimes")=rs("LoginTimes")+1
rs("RndPassword")=RndPassword
rs.update
session.Timeout=SessionTimeout
session("AdminName")=rs("UserName")
session("AdminPassword")=rs("Password")
session("RndPassword")=RndPassword
rs.close
set rs=nothing
call CloseConn()
Response.Redirect "default.asp"
end if
end if
rs.close
set rs=nothing
end if
if FoundErr=True then
call WriteErrMsg()
end if
call CloseConn() 展开
1个回答
展开全部
首先..
<!--#include file="../Inc/Config.asp"-->
<!--#include file="inc/md5.asp"-->
这两个是不太一样的
具体哪里出问题由于代码很多不能确定,你把出错提示发出来吧,如果不知道怎么查看错误提示可以回复我,我告诉你
<!--#include file="../Inc/Config.asp"-->
<!--#include file="inc/md5.asp"-->
这两个是不太一样的
具体哪里出问题由于代码很多不能确定,你把出错提示发出来吧,如果不知道怎么查看错误提示可以回复我,我告诉你
更多追问追答
追问
你 企鹅 号 多少 怎么联系 我发给你
追答
额 不一定是这一个文件的问题啊,你总不会要把整站代码给我吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询