admin-login.asp

asp构建网站bbs.采用B/S架构

<!--#include file="conn.asp"--><!--#include file="md5.asp"-->
<link href=css.css rel=stylesheet>
<%
set bbs=myconn.execute("select*from bbsinfo")
sty="all"
sp=request.cookies(cn&"1")(sty)
c1=request.cookies(cn&"1")(sty&"c1")
c2=request.cookies(cn&"1")(sty&"c2")
tlinfo=bbs("tlinfo")
tli=split(tlinfo,"|?|")
tl=tli(0)
c11=tli(1)
c12=tli(2)
topinfo=tli(3)
upnum=tli(4)
upsize=tli(5)
b1s=tli(6)
autotable=tli(7)
alltb=tli(8)
cbbs=tli(9)
lmbbs=tli(10)
if sp="" then sp=b1s
if c1="" then c1=c11
if c2="" then c2=c12
atb=split(alltb,"|")
tnum=ubound(atb)
set bbs=nothing

t1="<div align=center><center> <table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='40%' height='24'><tr><td width='180' background='pic/"&sp&"3.gif'>&nbsp;<img border='0' src='pic/fl.gif'> <font color='#FFFFFF'><b>"
t2="</b></font></td></tr></table></center></div><div align=center><center><table border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor="&c1&" width=40% >"
d1="<tr><td width=100% ><P style='MARGIN: 15px'>"
d2="</td></tr></table></center></div>"
menu=request.querystring("menu")
select case menu
case"exit"
Response.Cookies(cn&"0")("lgname")=""
Response.Cookies(cn&"0")("lgpwd")=""
response.redirect"index.asp"
case"login"
name=Replace(Request.Form("name"),"'","''")
adminid=Replace(Request.Form("adminid"),"'","''")

pswd1=Replace(Request.Form("pswd"),"'","''")
pswd=md5(pswd1)

set cjbz=myconn.execute("select name from [admin] where name='"&name&"' and password='"&pswd&"' and bd='70767766'")
if cjbz.eof then
canlg=false
Response.Cookies(cn&"0")("lgname")=""
Response.Cookies(cn&"0")("lgpwd")=""
Response.Cookies(cn&"2")("admin")=1
else
Response.Cookies(cn&"0")("lgname")=name
Response.Cookies(cn&"0")("lgpwd")=pswd1
Response.Cookies(cn&"2")("admin")=3
canlg=true
end if
if session("adminid")<>adminid then canlg=false


if canlg=true then response.redirect"admin-index.asp"
if canlg=false then response.redirect"admin-login.asp"

case""
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
session("adminid")=rndnum
%>
<link rel="stylesheet" type="text/css" href="css.css"><title>论坛登陆</title>
<br><br><br>
<form method="POST" action="?menu=login"><%=t1%>管理员登陆<%=t2&d1%><P style='MARGIN:5px;'>
  <b>用户名：</b><input type="text" name="name" size="25"></p>
<P style='MARGIN:5px;'>请输入管理员的用户名。<hr color="<%=c1%>" size="1">
  <P style='MARGIN:5px;'>
  <b>密&nbsp; 码：</b><input type="password" name="pswd" size="25"><p style="margin: 5px">
  请输入管理员的密码。</p>
  <hr color="<%=c1%>" size="1">
<P style='MARGIN:5px;'>
  <b>验证码：</b><input type="text" name="adminid" size="16"> 请输入：<b><%=rndnum%></b></p><hr color="<%=c1%>" size="1">
<P style='MARGIN:5px;'>
  <input type="submit" value="  提  交  " name="B1">
  <input type="reset" value="  重  置  " name="B2"></p><%=d2%></form>
<%end select%><br><%time1=timer()%>