asp后台登陆帐号或密码错误提示代码

来源:百度知道 编辑:UC知道 时间:2024/09/28 09:15:32
哪位大虾请帮我在这段asp代码里加入当帐号错误时提示代码和密码错误时提示代码.

if request("CheckCode")<>session("CheckCode") then
response.write("<script language=""javascript"">alert('请输入正确的认证码!');this.location.href='login.asp';</script>")
response.end
end if
dim sql,rs,username,password,adminlogin
adminlogin=trim(request("adminlogin"))
username=replace(trim(request("username")),"'","")
password=replace(trim(Request("password")),"'","")
set rs=server.createobject("adodb.recordset")
sql="select * from TLCMS_Admin where password='"&password&"' and username='"&username&"'"
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
if password=rs("password") then
response.cookies(""&TLCMS_Cookies&"")("username

你是想用户错误时提示用户名错误,密码错误时提示密码错误吧
if request("CheckCode")<>session("CheckCode") then
response.write("<script language=""javascript"">alert('请输入正确的认证码!');this.location.href='login.asp';</script>")
response.end
end if
dim sql,rs,username,password,adminlogin
adminlogin=trim(request("adminlogin"))
username=replace(trim(request("username")),"'","")
password=replace(trim(Request("password")),"'","")
set rs=server.createobject("adodb.recordset")
sql="select * from TLCMS_Admin where username='"&username&"'"
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
if password=rs("password") then
response.cookies(""&TLCMS_Cookies&"")("username")=username
response.cookies("&q