用戶注冊(cè)頁(yè)面要涉及到動(dòng)態(tài)數(shù)據(jù)庫(kù)，因?yàn)闀?huì)出現(xiàn)數(shù)據(jù)回調(diào)的情況。　　數(shù)據(jù)庫(kù) students 用到的表 User_info　　User_info 表的字段：　　user_Id，user_Name，passwrod　　login.asp 頁(yè)面代碼如下：　　<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>　　<!--#include file="../Connections/connection.asp" -->　　<!--連接數(shù)據(jù)庫(kù)的connection.asp文件包含進(jìn)來(lái)-->　1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768<%　Dim Recordset1__MMColParam　Recordset1__MMColParam = "1"　If (Request.QueryString("user_Id") <> "") Then　Recordset1__MMColParam = Request.QueryString("user_Id")　End If　%>　<%　Dim Recordset1　Dim Recordset1_cmd2　Dim Recordset1_numRows　Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")　Recordset1_cmd.ActiveConnection = MM_connection_STRING　Recordset1_cmd.CommandText = "SELECT * FROM dbo.User_info WHERE user_Id = '"& Request.Form("username") &"'""<!--注意改下你的表，建議不要改，把你的數(shù)據(jù)庫(kù)設(shè)置成這個(gè)樣子，不然要改好多地方-->　Set Recordset1 = Recordset1_cmd.Execute　Recordset1_numRows = 0　%>　<%　' *** Validate request to log in to this site.　MM_LoginAction = Request.ServerVariables("URL")　If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)　MM_valUsername = Request.Form("username")　If MM_valUsername <> "" Then　Dim MM_fldUserAuthorization　Dim MM_redirectLoginSuccess　Dim MM_redirectLoginFailed　Dim MM_loginSQL　Dim MM_rsUser　Dim MM_rsUser_cmd　Dim shenfen　Dim mingzi　MM_fldUserAuthorization = ""　MM_redirectLoginSuccess = "####.asp"<!--連接成功轉(zhuǎn)至頁(yè)面-->　MM_redirectLoginFailed = "login.asp"<!--連接不成功轉(zhuǎn)至頁(yè)面-->　MM_loginSQL = "SELECT user_Id,passwrod"　If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization　MM_loginSQL = MM_loginSQL & " FROM dbo.User_info WHERE user_Id = ? AND passwrod = ?"　Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command")　MM_rsUser_cmd.ActiveConnection = MM_connection_STRING　MM_rsUser_cmd.CommandText = MM_loginSQL　MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 10, MM_valUsername) ' adVarChar　MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200, 1, 20, Request.Form("password")) ' adVarChar　MM_rsUser_cmd.Prepared = true　Set MM_rsUser = MM_rsUser_cmd.Execute　If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then　' username and password match - this is a valid user　Session("MM_Username") = MM_valUsername　If MM_valUsername <>"" Then　shenfen = Recordset1.Fields.Item("status").Value　mingzi = Recordset1.Fields.Item("user_Name").Value　session("shenfen")=shenfen　session("mingzi")=mingzi　End If　If (MM_fldUserAuthorization <> "") Then　Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)　Else　Session("MM_UserAuthorization") = ""　End If　if CStr(Request.QueryString("accessdenied")) <> "" And false Then　MM_redirectLoginSuccess = Request.QueryString("accessdenied")　End If　MM_rsUser.Close　Response.Redirect(MM_redirectLoginSuccess)　End If　MM_rsUser.Close　Response.Redirect(MM_redirectLoginFailed)　End If　%>