loginchk.asp

来自「信息管理系统 管理页面:admin/index.asp 用户和密码都是adm」· ASP 代码 · 共 44 行

<!--#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")),"'","‘")
password=replace(trim(request("password")),"'","‘")
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
Response.Redirect "user.asp"
%>