Registered Server Processing page reg.asp:
<%
Response.buffer=true
Dim name
Name= "'" &request. FORM ("name") & "'"
Code= "'" &request.form ("password") & ""
Set conn = Server.CreateObject ("ADODB. Connection ")
DBPath = Server.MapPath ("Author.mdb")
Conn. Open "Driver={microsoft Access driver (*.mdb)};d bq=" & DBPath
Sql= "SELECT * from Author"
Set rs = Server.CreateObject ("ADODB.") Recordset ")
Rs.Open sql,conn,1,1
Do as not rs.eof
If RS ("AuthorName") =name then%>
The username has been registered, please <a href= "login.asp" > Register </a> new username!
<% Response.End
Exit Do
Else
Rs.movenext
End If
Loop
Conn.execute "INSERT into author (authorname,password) Values (" &name& "," &code& ")"
Rs. Close
Conn.close%>
<b><% =name%></b> You have registered successfully!<p>
<a href= "dispbbs.asp" > Return forum </a>
<a href= "bbs_add.asp" > I want to speak </a>
