程式|線上 Sendregister.asp
這一頁從register.asp 中取得表單域的內容，將它們插入資料庫中。要注意使用者名稱必須是唯一的。所以，首先查詢要
驗證輸入的使用者名稱是否已經存在。如果是的話，使用者被重新引回register.asp 頁，並被要求選擇另一個使用者名稱。如果使用者
名是新的，輸入的內容就被傳遞給資料庫。
sql_findmember = "select count(*) from loginuser where username = '" & username &"'"
Set RS_findmember = Application("Conn").Execute(sql_findmember)
If RS_findmember(0) < > 0 Then
Session("message") = "THE ENTRY HAD BEEN INSERTED EARLIER .. Please try another log in name"
response.redirect "register.asp"
End If
If RS_findmember(0) = 0 Then
sql_insert = "insert into loginuser (username,useremail,password) _
values('" & username & "','" & useremail & "', '" & pwd &"') "
Set RS_insert = Application("Conn").Execute(sql_insert)
Session("message") = "THE ENTRY HAS BEEN INSERTED .. Thank You"
response.redirect "index.asp"
End If
這樣，如果RS_findmember(0) 返回的值是0，就表示使用者名稱在資料庫中不存在，名字就被輸入了。會員就可以使用站
點的其它部分了。反之，如果RS_findmember(0) 返回的值大於0，使用者就被引導回註冊首頁，並被要求填寫一個新的使用者
名。
還要注意，在向資料庫中插入資料之前有一些事情需要警惕。替換函數用來確保當訪問者鍵入了"'",就需要用''代
替。
username = replace(request.form("txt_name"),"'","''")
