📄 chklogin.asp
字号:
<!--#include file=include/conn.asp-->
<!--#include file="admin/char.inc"-->
<!--#include file=include/config.asp-->
<!--#include file="include/md5.asp"-->
<%
on error resume next
dim rs
UserName1=checkstr(request.form("UserName"))
passwd1=md5(trim(request.form("passwd")))
verifycode=checkstr(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
response.write "<title>错误！</title>"
response.write "<link rel='stylesheet' type='text/css' href='admin/style.css'>"
response.write "<body>"
response.write "<p> </p><p> </p><p> </p><table width=253 border=0 bgcolor=#000000 cellspacing=1 cellpadding=0 align=center><tr><td align=center bgcolor=#FFFFFF><p> </p><p>请输入正确的用户名、密码及验证码</p><p><a href='javascript:history.go(-1)'>点击这里返回重新输入</a></p></td></tr></table>"
else
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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -