save2.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("BBS管理员已经注册，你不能再次注册，请与BBS管理员联系。");
	window.history.go(-1);
//-->
</script>
<%

end if
if Rs.Bof OR Rs.Eof Then
Response.clear 
rs.close

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<>"BBS管理员" then
o="管理员帐号必须指定为:BBS管理员"

Response.Redirect "save1.asp?from_adminadd2=" & o & ""
else 
if pass="" then
p="你必须输入至少一位密码"
Response.Redirect "save1.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 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))%>

<%sql="UPDATE user SET pois=" & Num1 & "  WHERE username='" & name & "'"
conn.Execute sql
conn.close%>

<a href="admin.asp?No=<%=Num1%>">登陆管理区</a>
<%end if%>