1，設定原來(lái)已經(jīng)注冊的用戶(hù)進(jìn)入的外觀(guān)：在這里設置了兩個(gè)文本框，一個(gè)超級鏈接和兩個(gè)按鈕。兩個(gè)文本框分別用來(lái)輸入賬號（txtNum）和密碼（txtPasswd），超級鏈接（New）鏈接到新用戶(hù)進(jìn)行注冊的頁(yè)面，兩個(gè)按鈕是用來(lái)提交和清除的，用來(lái)清除的按鈕（cmdReset）直接選擇為Reset類(lèi)型，不過(guò)用來(lái)提交的按鈕（cmdTijiao）并不要選擇為Submit類(lèi)型，而選擇的是Normal類(lèi)型，這是為了在這個(gè)按鈕的onClick事件中添加代碼，并且判斷用戶(hù)的輸入是否合法！
2，設定新用戶(hù)登陸的頁(yè)面外觀(guān)：一般都是要新用戶(hù)輸入賬號，密碼，姓名，及相關(guān)的一些信息，在這里我們有五個(gè)文本框，一個(gè)下拉式列表框和兩個(gè)按鈕，五個(gè)文本框就分別是讓用戶(hù)輸入姓名，email，賬號，密碼，確定密碼。但是其中只有用來(lái)輸入賬號，密碼和確定密碼的文本框有名字，分別為txtNum，txtPasswd和txtConfirm。提交按鈕的名字為cmdTijiao
3，這一步當然是設定注冊成功后用戶(hù)所進(jìn)的頁(yè)面了，這就由大家決定吧：）
?。ǘ?，添加程序代碼：
1，首先添加原來(lái)已經(jīng)注冊用戶(hù)頁(yè)面的代碼，它主要是處理cmdTijiao_onClick事件，并且判斷用戶(hù)的輸入是否合法，在這個(gè)例子中要求賬號必須是數字，密碼不能為空，代碼如下，其中frmRes是這個(gè)頁(yè)面中窗口的名字，窗口的Action指向http://your/ResJudge.asp
sub cmdTijiao_onClick()
if frmRes.txtNum.value="" or frmRes.txtPasswd.value="" or (Not IsNumeric(frmRes.txtNum.value)) then
Alert"請在賬號和密碼中輸入相應的內容，賬號必須為數字！"
else frmRes.submit
end if
end sub |
2，添加新用戶(hù)登陸的頁(yè)面代碼，這些代碼是用來(lái)處理cmdTijiao_onClick事件的，要求用戶(hù)輸入的賬號必須是數字，密碼和確定密碼必須相同，這個(gè)頁(yè)面的窗口的Action指向http://your/NewRes.asp，代碼如下：
sub cmdTijiao_onClick()
if Not Numeric(frmNew.txtNum.value) or frmNew.txtPasswd.value＜＞frmNew.txtConfirm.value then
Alert"輸入不正確，請重新輸入！"
else frmNew.submit
end if
end sub |
3，創(chuàng )建ResJudge.asp文件，這個(gè)asp文件的主要功能就是打開(kāi)存儲注冊信息的數據庫，查找是否有與前面頁(yè)面提交的賬號和密碼相匹配的紀錄，如果有，就是注冊成功，同時(shí)也可以在數據庫中查找出這個(gè)用戶(hù)的相關(guān)信息來(lái)，應允許這個(gè)用戶(hù)進(jìn)入他所希望進(jìn)去的頁(yè)面，如果沒(méi)有則注冊失敗，整個(gè)代碼如下：
＜html＞＜head＞
＜meta http-equiv="Content-Type" content="text/html;charset=gb2312"＞
＜meta name="GENERATOR" content="Microsoft Fronpage 3.0"＞
＜titile＞注冊判斷＜/title＞＜/head＞
＜body＞＜%
Num=Request.form("txtNum") "把前面窗口傳送來(lái)的內容賦給Num和Passwd兩個(gè)字符串。
Passwd=Request.form("txtPasswd")
dbname="Driver={Microsoft Access Driver(*.mdb)};DBQ="&Server.MapPath("\")"&"\ResDb\Res.mdb;" "dbname是打開(kāi)數據庫要用的
set Cres=Server.CreateObject("ADODB.Connection") "以下是利用Connection對像和Recordset對象聯(lián)結數據庫并查找的代碼。
set res=Server.CreateObject("ADODB.Recordset")
Cres.open dbname
res.ActiveConnection=Cres
res.source="Select*from res where 賬號="&Num&" and 密碼="&Passwd&";"
res.open
if res.BOF then "如果查找結果為空，那么就說(shuō)明注冊不正確，所以在頁(yè)面中顯示下面的文本/
%＞＜p＞注冊不正確， 請返回注冊頁(yè)面重新注冊?。?p＞
＜%
else “否則就說(shuō)明注冊成功，可以進(jìn)入瀏覽頁(yè)面！
%＞
＜!--＃i nclude virtual="/success.htm"--＞ "這里采用了Server Side Include的方法，把允許瀏覽的頁(yè)面包含在這個(gè)文件里面！
＜% res.Close “ 關(guān)閉剛才打開(kāi)的數據庫。
end if %＞
＜/body＞＜/html＞ |
4，創(chuàng )建 NewRes.asp文件，這個(gè)文件的主要功能是把新用戶(hù)的登陸信息存入數據庫，代碼如下：
＜html＞
＜head＞
?。糾eta http-equiv="Content-Type" content="text/html;charset=gb2312"＞
?。糾eta name="GENERATOR" content="Microsoft frontpage 3.0"＞
?。紅itle＞輸入數據庫＜/title＞
＜/head＞
＜body＞
＜!--＃i nclude virtual="/adovbs.inc"＞
“這個(gè)被包含進(jìn)來(lái)的文件adovbs.inc是定義數據庫對象ADO常量的文件。
＜%
Num=Request.form("txtNum") “把前面主頁(yè)傳送過(guò)來(lái)的內容賦給Num和Passwd兩個(gè)變量。
Passwd=Request.form("txtPasswd")
Set res=Server.CreateObject("ADODB.Recordset") “打開(kāi)數據庫。
dbname="Driver={Microsoft Access Driver(*.mdb)};DBQ="&ServerMapPath("\")&"\ResDb\Res.mdb;"
sql="select*from res"
res.open sql,dbName,adOpenKeyset,adLockOptimistic
res.AddNew “添加新紀錄
res(1)=Num “res(1)代表數據庫中的第二個(gè)字段，存儲的是用戶(hù)的賬號。
res(2)=Passwd “res(2)代表數據庫中的第三個(gè)字段，存儲的是用戶(hù)的密碼。
res.Update “更新數據庫/
res.Close %＞
?。紁＞＜b＞＜font face=楷體_gb2312 size=5＞您的賬號和密碼已經(jīng)注冊成功，您現在可以＜a href="http://your/index.htm"＞進(jìn)入＜/a＞了?。?font＞＜/p＞
＜/body＞＜/html＞ |
