UC知道ASP后台登录去掉验证码
来源：百度知道 编辑：UC知道 时间：2024/06/13 07:21:28
<%
dim action,username,password,extraCode
action=Request.Form("action")
If action="login" Then
OpenDataConn
username = Replace(Request.Form("username"),"'","''")
password = MD5(Request.Form("password"),32)
extraCode = Request.Form("extraCode")
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR")
If Cstr(extraCode)<>Cstr(Session("ExtraCode")) Then
Response.Write("<script language='javascript'>alert('附加码不正确，请重新登陆！');location='?';</script>")
CloseDataConn
Response.End
End If
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open"select * from admin where username='"&username&"' and password='"&password&&
dim action,username,password,extraCode
action=Request.Form("action")
If action="login" Then
OpenDataConn
username = Replace(Request.Form("username"),"'","''")
password = MD5(Request.Form("password"),32)
extraCode = Request.Form("extraCode")
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR")
If Cstr(extraCode)<>Cstr(Session("ExtraCode")) Then
Response.Write("<script language='javascript'>alert('附加码不正确，请重新登陆！');location='?';</script>")
CloseDataConn
Response.End
End If
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open"select * from admin where username='"&username&"' and password='"&password&&
去掉以下语句（在前边加'变注释即可）
'If Cstr(extraCode)<>Cstr(Session("ExtraCode")) then
'Response.Write("<script language='javascript'>alert('附加码不正确，请重新登陆！');location='?';</script>")
'CloseDataConn
'Response.End
'End If