📄 suser.asp
字号:
<%Response.Buffer=true%>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("bbsdb.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 user WHERE username='" & Request("name") & "'"
Set Rs=conn.Execute(sql)
If not Rs.Bof OR Rs.Eof Then
%>
<script language=javascript >
<!--
alert("你所输入的姓名已经被别人使用,请用别的名称。");
window.history.go(-1);
//-->
</script>
<%
end if
if Rs.Bof OR Rs.Eof Then
Response.clear
rs.close
%>
<html>
<head>
<title></title>
</head>
<body bgcolor="#CCFFFF">
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("bbsdb.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 "fuser.asp?from_useradd2=" & o & ""
else
if pass="" then
p="你必须输入至少一位密码"
Response.Redirect "fuser.asp?from_useradd2=" & 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 user ( username, pwd, email, web ) VALUES(" &_
sz & ")"
conn.Execute(into_db)
%> <%LogTime=Now()%> <%Num1=Cstr(Hour(LogTime)) & Cstr(Minute(LogTime)) & Cstr(Second(LogTime))& Cstr(Int(Rnd*10000))%>
<script language=javascript>
<!--
alert("注册成功！\n回到主登陆界面重新登陆论坛...");
window.location.href="default.asp";
//-->
</script>
<%end if%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -