(一),設定注冊頁面的外觀:
在這個例子中涉及了五個頁面,其中有三幅是一般的htm文件,另外的兩幅是asp文件,在這裡制作利用的工具是FrontPage98,但是大部分的ASP代碼還是要自己輸入的:
1,設定原來已經注冊的用戶進入的外觀:在這裡設置了兩個文本框,一個超級鏈接和兩個按鈕。兩個文本框分別用來輸入帳號(txtNum)和密碼(txtPasswd),超級鏈接(New)鏈接到新用戶進行注冊的頁面,兩個按鈕是用來提交和清除的,用來清除的按鈕(cmdReset)直接選擇為Reset類型,不過用來提交的按鈕(cmdTijiao)並不要選擇為Submit類型,而選擇的是Normal類型,這是為了在這個按鈕的onClick事件中添加代碼,並且判斷用戶的輸入是否合法!
2,設定新用戶登陸的頁面外觀:一般都是要新用戶輸入帳號,密碼,姓名,及相關的一些信息,在這裡我們有五個文本框,一個下拉式列表框和兩個按鈕,五個文本框就分別是讓用戶輸入姓名,email,帳號,密碼,確定密碼。但是其中只有用來輸入帳號,密碼和確定密碼的文本框有名字,分別為txtNum,txtPasswd和txtConfirm。提交按鈕的名字為cmdTijiao
3,這一步當然是設定注冊成功後用戶所進的頁面了,這就由大家決定吧:)
(二),添加程序代碼:
1,首先添加原來已經注冊用戶頁面的代碼,它主要是處理cmdTijiao_onClick事件,並且判斷用戶的輸入是否合法,在這個例子中要求帳號必須是數字,密碼不能為空,代碼如下,其中frmRes是這個頁面中窗口的名字,窗口的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,添加新用戶登陸的頁面代碼,這些代碼是用來處理cmdTijiao_onClick事件的,要求用戶輸入的帳號必須是數字,密碼和確定密碼必須相同,這個頁面的窗口的Action指向http://your/NewRes.asp,代碼如下:
sub cmdTijiao_onClick()
if Not IsNumeric(frmNew.txtNum.value) or frmNew.txtPasswd.value<>frmNew.txtConfirm.value then
Alert"輸入不正確,請重新輸入!"
else frmNew.submit
end if
end sub
3,創建ResJudge.asp文件,這個ASP文件的主要功能就是打開存儲注冊信息的數據庫,查找是否有與前面頁面提交的帳號和密碼相匹配的紀錄,如果有,就是注冊成功,同時也可以在數據庫中查找出這個用戶的相關信息來,應允許這個用戶進入他所希望進去的頁面,如果沒有則注冊失敗,整個代碼如下:
<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") "把前面窗口傳送來的內容賦給Num和Passwd兩個字符串。
Passwd=Request.form("txtPasswd")
dbname="Driver={Microsoft Access Driver(*.mdb)};DBQ="&Server.MapPath("\")"&"\ResDb\Res.mdb;" "dbname是打開數據庫要用的
set Cres=Server.CreateObject("ADODB.Connection") "以下是利用Connection對像和Recordset對象聯結數據庫並查找的代碼。
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 "如果查找結果為空,那麼就說明注冊不正確,所以在頁面中顯示下面的文本/
%><p>注冊不正確, 請返回注冊頁面重新注冊!</p>
<%
else “否則就說明注冊成功,可以進入浏覽頁面!
%>
<!--#Include virtual="/success.htm"--> "這裡采用了Server Side Include的方法,把允許浏覽的頁面包含在這個文件裡面!
<% res.Close “ 關閉剛才打開的數據庫。
end if %>
</body></Html>
4,創建 NewRes.ASP文件,這個文件的主要功能是把新用戶的登陸信息存入數據庫,代碼如下:
<Html><head>
<meta http-equiv="Content-Type" content="text/Html;charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>輸入數據庫</title></head>
<body><!--#Include virtual="/adovbs.inc"> “這個被包含進來的文件adovbs.inc是定義數據庫對象ADO常量的文件。
<%
Num=Request.form("txtNum") “把前面主頁傳送過來的內容賦給Num和Passwd兩個變量。
Passwd=Request.form("txtPasswd")
Set res=Server.CreateObject("ADODB.Recordset") “打開數據庫。
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)代表數據庫中的第二個字段,存儲的是用戶的帳號。
res(2)=Passwd “res(2)代表數據庫中的第三個字段,存儲的是用戶的密碼。
res.Update “更新數據庫/
res.Close %>
<p><b><font face=楷體_gb2312 size=5>您的帳號和密碼已經注冊成功,您現在可以<a href="http://your/index.htm">進入</a>了!</font></p>
</body></Html>