chklogin1.asp

社区天地图文系统(核心:尘缘雅境图文系统) 版本: 1.0 本系统是ASP+ACCESS环境下开发成功

<!--#include file=conn.asp-->
<!--#include file="char.inc"-->
<!--#include file=../include/config.asp-->
<!--#include file="../include/md5.asp"-->
<%
on error resume next
dim rs
UserName1=request.form("UserName")
passwd1=md5(trim(checkStr(request.form("passwd"))))
verifycode=request.form("verifycode")
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username1&"'"
rs.open sql,conn,1,3
if passwd1<>rs("passwd") or verifycode<>session("verifycode") then

rs("IP")=Request.ServerVariables("REMOTE_ADDR")
rs("lastlogin")=Now()
rs("logins")=rs("logins")+1
rs.update
response.cookies("UserName")=RS("Username")
response.cookies("KEY")=rs("OSKEY")
response.cookies("purview")=rs("purview")
response.cookies("fullname")=rs("fullname")
response.cookies("reglevel")=rs("reglevel")
response.cookies("passwd")=rs("passwd")
rs.close
set rs=nothing
conn.execute("delete from uploadpic where username='"&request.cookies("username")&"'")
response.redirect "index.asp"

end if
%>