📄 adminadd2.asp
字号:
<%Response.Buffer=true%>
<body bgcolor="#CCCCCC">
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("bbspp1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Conn.Open connstr
%>
<%sql="SELECT * FROM 用户表 WHERE 用户名='" & Request("name") & "'"
Set Rs=conn.Execute(sql)
If not Rs.Bof OR Rs.Eof Then
Response.Write "论坛管理员已经注册，你不能再次注册，请与论坛管理员联系。"
end if
if Rs.Bof OR Rs.Eof Then
Response.clear
rs.close
%>
<body bgcolor="#C4FFE0">
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("bbspp1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Conn.Open connstr
%>
<%name=Request.Form("name")
pass=Request.Form("pass")
mail=Request.Form("mail")
url=Request.form("url")
%>
<%if name<>"论坛管理员" then
o="管理员帐号必须指定为:论坛管理员"
Response.Redirect "adminadd.asp?from_adminadd2=" & o & ""
else
if pass="" then
p="你必须输入至少一位密码"
Response.Redirect "adminadd.asp?from_adminadd2=" & p & ""
end if
end if%>
<%if mail="" then
mail=" "
end if
if url="" then
url=" "
end if%>
<%
sz = "'" & name &_
"', '"& pass &_
"', '"& mail &_
"', '"& url & "'"
into_db = "INSERT INTO 用户表 ( 用户名, 密码, 电子信箱, 网址 ) VALUES(" &_
sz & ")"
conn.Execute(into_db)
%>管理员注册成功！！！
<%LogTime=Now()%>
<%Num1=Cstr(Hour(LogTime)) & Cstr(Minute(LogTime)) & Cstr(Second(LogTime))& Cstr(Int(Rnd*10000))%>
<%sql="UPDATE 用户表 SET 临时身份=" & Num1 & " WHERE 用户名='" & name & "'"
conn.Execute sql
conn.close%>
<a href="admin.asp?No=<%=Num1%>">登陆管理区</a>
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -