loginchk.asp

信息类网站的不错选择

<!--#include file=conn1.asp-->
<!--#include file=ipt.asp-->
<!--#include file=err.asp-->
<!--#include file=md5.asp-->
<!--#include file="config.asp"-->

<%
dim username,password,rs,sql,k,userip
if request.cookies("cnmai")("errs")="" then
k=0
else
k=request.cookies("cnmai")("errs")
end if
if request.cookies("cnmai")("errs")>10000 then
errcnmai(8)
response.end
end if
username=replace(trim(request("username")),"'","‘")
password=md5(replace(trim(request("password")),"'","‘"))
chkcnmai(username)
if nothaveChinese(username)=false then
errcnmai(3)
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where UserName='"&UserName&"' and password='"&password&"'"
rs.open sql,conn,1,3
if rs.eof then
Response.cookies("cnmai")("errs")=k+1
errcnmai(7)
response.end
else
rs("zcdata")=now()
rs("jf")=rs("jf")+jf_3
rs("dlcs")=rs("dlcs")+1
userip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip="" Then 
userip=Request.ServerVariables("REMOTE_ADDR")
end if
rs("ip")=userip
rs.update

Response.cookies("cnmai")("username")=rs("username")
Response.cookies("cnmai")("vip")=rs("vip")
Response.cookies("cnmai")("domain")=Request.ServerVariables("SERVER_NAME")
Response.cookies("cnmai")("id")=rs("id")


end if
rs.close
set rs=nothing
closedb
Response.Redirect "user.asp"
%>