用ASP實現一個真正的注冊頁面

2019-11-18 22:45:15

字體：大中小

來源：轉載

供稿：網友

沙灘小子

（一），設定注冊頁面的外觀：

在這個例子中涉及了五個頁面，其中有三幅是一般的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 "如果查找結果為空，那么就說明注冊不正確，所以在頁面中顯示下面的文本/
 %>注冊不正確，請返回注冊頁面重新注冊！
 <%
 else “否則就說明注冊成功，可以進入瀏覽頁面！
 %>
  "這里采用了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 %>
 您的帳號和密碼已經注冊成功，您現在可以<a href="http://your/index.htm">進入</a>了！
 </body></html>