📄 denlu.asp

📁 找北文章系统

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../admin/conn.asp"-->
<!--#include file="../admin/md5.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=utf-8" />
<title>登陆</title>
</head>
<%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   交流QQ:31424717
' 程序制作：找北
' 升级时间： 2006-2-5
' E-Mail: g362hao@gmail.com   	
'====================================================================
%>
<body bgcolor="#D4DOC8">
<!--#include file="../admin/i.asp"-->
<%
function login()
set rs=Server.CreateObject("ADODB.Recordset")
Sql = "select * from add where user='"&name&"' and pass='"&pass&"'"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write("<font color='#238E23'>用户名或密码错误!</font><br/>")
else
for i=1 to 40
randomize
xy=xy&int((9)*rnd+1)
Next
rs("xy")=xy
rs.update
response.write("<font color='#FF7F00'>登陆成功!</font><br/><a href='index.asp?xy="&xy&"'><font color='#FF00FF'>进入管理</a></font>")
end if
rs.Close
set rs = Nothing
end function
%>
<%
name=request.form("name")
pass=md5(request.form("pass"))
if name<>"" and pass<>"" then
%>
<%login()%>
<%end if%>
<p><font color="#ff00FF">文章管理员登陆</font></p>
<form id="form1" name="form1" method="post" action="denlu.asp">
  <p><font color="#70DB93">账号</font>:
    <input name="name" type="text" id="name" />
    <br />
    <font color="#FF00FF">密码</font>:
    <input name="pass" type="text" id="pass" />
    <br />
    <input type="submit" name="Submit" value="提交" />
  </p>
</form>
<p>&nbsp;</p>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -