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)}; dbq =" & DBPath
SQL = "SELECT * FROM author"
Set rs = Server. CreateObject ("ADODB. Recordset ")
Rs. open SQL, conn, 1, 1
Do while not rs. eof
If rs ("authorname") = name then %>
This user name has been registered. Please register it again!
<% 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 to Forum </a>
<A href = "bbs_add.asp"> I want to speak </a>
