📄 lck.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file = "conn.asp" -->
<!--#include file = "class.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="zh-cn">
<title>网站后台登录</title>
</head>
<body>
<%
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "select * from [tt_admin]",conn,1,1
If Rs.RecordCount = 0 then
conn.Execute "insert into [tt_admin] (a_admin,a_pass,) values('admin','"&md5("admin")&"')"
End If
Rs.Close
u_code=Trim(Request.Form("u_code"))
If u_code = "" Then
Set Rs = Nothing
conn.close:Set conn = Nothing
Response.Redirect "login.asp?id=3"
End If
u_code=Int(u_code)
If u_code <> Session("u_code") Then
Set Rs = Nothing
conn.close:Set conn = Nothing
Response.Redirect "login.asp?id=3"
End If
Session("u_code")=""
If Request.Form("user")="" or Request.Form("pass")="" Then
Set Rs = Nothing
conn.close:Set conn = Nothing
Response.Redirect "login.asp?id=0"
Else
user = LCase(chkhtm(Request.Form("user")))
pass = md5(chkhtm(Trim(Request.Form("pass"))))
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "select * from [tt_admin] where [a_admin]='"&user&"' and [a_pass]='"&pass&"'",conn,1,1
If Rs.RecordCount = 0 then
Rs.close:Set Rs = Nothing
conn.close:Set conn = Nothing
Response.Redirect "login.asp?id=1"
End If
Session("a_user") = Rs("a_admin")
Session("a_pass") = pass
Response.Cookies ("a_user") = Rs("a_admin")
Response.Cookies ("a_pass") = pass
Rs.close:Set Rs = Nothing
conn.close:Set conn = Nothing
Response.Redirect "admin.asp"
End If
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -