實(shí)訓(xùn)四、用戶登錄模塊

《實(shí)訓(xùn)四、用戶登錄模塊》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫(kù)。

1、實(shí)驗(yàn)四、用戶登錄模塊實(shí)驗(yàn)?zāi)康模和ㄟ^(guò)完成班級(jí)網(wǎng)站的用戶登錄和用戶密碼的更改，理解UPDATE語(yǔ)句的格式和功能。一、（用戶登錄模塊的制作）1、啟動(dòng)DREAMWEAVERCS32、單擊[文件]菜單--打開(kāi)，打開(kāi)E:CLASS文件夾下的網(wǎng)站主頁(yè)index.asp3、用戶登錄的前臺(tái)頁(yè)面已經(jīng)制作完畢了，（請(qǐng)大家看老師的制作過(guò)程，理解）如下圖示：具體做法是：在頁(yè)面上插入了一個(gè)表單，在表單內(nèi)又插入了一個(gè)四行兩列的表格，在表格內(nèi)插入了兩個(gè)文本域三個(gè)按鈕，其中，用戶名后的文本域的屬性設(shè)置如下：密碼后的文本域的屬性設(shè)置如下：其它三個(gè)按鈕的屬性請(qǐng)大家自己參

2、閱屬性面板。另外，表單中用戶輸入信息的正確與否的驗(yàn)證，這里要求用戶名、密碼均要非空，具體做法同實(shí)驗(yàn)三，教師已經(jīng)做好，不需再做了。4、單擊[窗口]菜單—行為，打開(kāi)行為面板，再選中[注冊(cè)]按鈕，在行為面板上單擊+按鈕，選擇[轉(zhuǎn)到URL]，設(shè)置如下圖：9完成后，在行為面板上出現(xiàn)如下圖示的行為，表明當(dāng)用戶單擊[注冊(cè)]按鈕時(shí)，會(huì)轉(zhuǎn)到新用戶注冊(cè)的頁(yè)面register.asp中去：5、下面利用服務(wù)器行為，完成用戶登錄信息的驗(yàn)證。單擊選中[登錄](méi)按鈕，在服務(wù)器行為面板上單擊+按鈕，選擇[用戶身份驗(yàn)證]-[登錄用戶]，設(shè)置如下：6、為了在登錄成功的頁(yè)面

3、上顯示用戶名，我們還需要保存登錄用戶的用戶名信息，具體做法是：在[綁定]面板上，單擊[+]按鈕，選擇[階段變量]，在其中輸入變量為MM_Username，設(shè)置如下：7、另外，在用戶登錄的表單中，老師已經(jīng)做好了登錄成功的歡迎界面，見(jiàn)網(wǎng)頁(yè)中的代碼：9
<%=Session("MM_Username")%>  您好！歡迎光臨本網(wǎng)站

退出

4、  銷(xiāo)戶  修改密碼8、下面，通過(guò)更改DREAMWEAVER自動(dòng)生成的代碼，實(shí)現(xiàn)用戶登錄成功和失敗的兩種導(dǎo)向，單擊[代碼]按鈕，切換到代碼設(shè)計(jì)狀態(tài)，找到登錄用戶產(chǎn)生的代碼如下：<%'***Validaterequesttologintothissite.MM_LoginAction=Request.ServerVariables("URL")IfReq

5、uest.QueryString<>""ThenMM_LoginAction=MM_LoginAction+"?"+Server.HTMLEncode(Request.QueryString)MM_valUsername=CStr(Request.Form("UName"))IfMM_valUsername<>""ThenDimMM_fldUserAuthorizationDimMM_redirectLoginSuccessDimMM_redirectLoginFailedDimMM_loginSQLDimMM_rsUserDimMM

6、_rsUser_cmdMM_fldUserAuthorization=""MM_redirectLoginSuccess="index.asp"MM_redirectLoginFailed="index.asp"MM_loginSQL="SELECTuname,upass"IfMM_fldUserAuthorization<>""ThenMM_loginSQL=MM_loginSQL&","&MM_fldUserAuthorizationMM_loginSQL=MM_loginSQL&"FROMdbo.userloginWHEREun

7、ame=?ANDupass=?"SetMM_rsUser_cmd=Server.CreateObject("ADODB.Command")MM_rsUser_cmd.ActiveConnection=MM_conn_STRINGMM_rsUser_cmd.CommandText=MM_loginSQLMM_rsUser_cmd.Parameters.AppendMM_rsUser_cmd.CreateParameter("param1",200,1,50,MM_valUsername)'adVarCharMM_rsUser_cmd.P

8、arameters.AppendMM_rsUser_cmd.CreateParameter("param2",200,1,10,Request.Form("UPass"))'adVarCharMM_rsUser_cmd.