在這個例子中涉及了五個頁面，其中有三幅是一般的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>
本文由沙灘小子整理製作，您可以轉載，但請務必註明其出處及保持其完整性，謝謝！
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
