📄 denlu.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"--><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度. 交流QQ:31424717
' 程序制作：找北
' 升级时间： 2006-2-5
' E-Mail: g362hao@gmail.com
'====================================================================
%>
<%
function login()
set rs=Server.CreateObject("ADODB.Recordset")
Sql = "select * from admin where user='"&name&"' and pass='"&pass&"'"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write("用户名或密码错误!<br/>")
else
for i=1 to 40
randomize
xy=xy&int((9)*rnd+1)
Next
rs("xy")=xy
rs.update
response.write("登陆成功!<br/><a href='index.asp?xy="&xy&"'>进入管理</a>")
end if
rs.Close
set rs = Nothing
end function
%>
<!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=utf-8" />
<title>登陆</title>
</head>
<body>
<!--#include file="i.asp"-->
<%
name=request.form("name")
pass=md5(request.form("pass"))
if name<>"" and pass<>"" then
%>
<%login()%>
<%end if%>
<p>管理员登陆</p>
<form id="form1" name="form1" method="post" action="denlu.asp">
<p>账号:
<input name="name" type="text" id="name" />
<br />
密码:
<input name="pass" type="text" id="pass" />
<br />
<input type="submit" name="Submit" value="提交" />
</p>
</form>
<p> </p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -