duov1loginchk.asp

来自「重庆二手网」· ASP 代码 · 共 33 行

<!--#include file=conn.asp-->
<!--#include file=../md5.asp-->
<%
dim username,password,rs,sql,k,password1
if trim(request("username"))="" or trim(request("password"))="" or  trim(request("password1"))="" then
   response.write "<script>window.alert('对不起！输入错误1！！！');window.history.back(-1);</script>"
   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
   response.write "<script>window.alert('对不起！输入错误2！！！');window.history.back(-1);</script>"
   response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [admins_duov] where UserName='"&UserName&"' and password='"&password&"'"
rs.open sql,conn,1,3
if rs.eof then
   response.write "<script>window.alert('对不起！输入错误3！！！');window.history.back(-1);</script>"
   response.end
else
rs("loginjilu")=trim(rs("loginjilu"))+cstr(now())+"|"+Request.ServerVariables("REMOTE_ADDR")+"|"
rs("logincisu")=rs("logincisu")+1
rs.update
Response.cookies("namesss")=rs("username")
Response.cookies("nameidsss")=rs("id")
end if
rs.close
set rs=nothing
closedb
Response.Redirect "index.asp"
%>