loginchk.asp

重庆二手网

<!--#include file=conn.asp-->
<!--#include file=ipt.asp-->
<!--#include file=err.asp-->
<!--#include file=md5.asp-->
<!--#include file=config.asp-->
<%
dim username,password,rs,sql,k
if request.cookies("ijob")("errs")="" then
k=0
else
k=request.cookies("ijob")("errs")
end if
if request.cookies("ijob")("errs")>4 then
errijob(8)
response.end
end if
username=replace(trim(request("username")),"'","‘")
'if instr(Request.ServerVariables("HTTP_REFERER"),left(Request.ServerVariables("SERVER_NAME"),15))<>0 then
'   password=md5(request("password"))
'  else
'   password=request("password")
'end if
if request("aa")="aa" then
   password=trim(request("password"))
   else
   password=md5(trim(request("password")))
end if
chkijob(username)
if nothaveChinese(username)=false then
errijob(3)
end if
set rs=server.createobject("adodb.recordset")
sql="select id,UserName,zcdata,jf,dlcs from [user] where UserName='"&UserName&"' and password='"&password&"'"
rs.open sql,conn,1,3
if rs.eof then
Response.cookies("ijob")("errs")=k+1
errijob(7)
response.end
else
rs("zcdata")=now()
rs("jf")=rs("jf")+jf_3
rs("dlcs")=rs("dlcs")+1
rs.update
Response.cookies("ijob")("username")=rs("username")
Response.cookies("ijob")("domain")=Request.ServerVariables("SERVER_NAME")
Response.cookies("ijob")("id")=rs("id")
end if
rs.close
set rs=nothing
closedb
if instr(Request.ServerVariables("HTTP_REFERER"),left(Request.ServerVariables("SERVER_NAME"),15))=0 then
Response.Redirect "index.asp"
else
Response.Redirect "user.asp"
end if
'http://qqjy.nbxqw.cn/ershou_g/loginchk.asp?username=admin&password=64008b5fddcbf1d5
%>