【導(dǎo)讀】具有一定的廣泛性和實(shí)用性，結(jié)論明確。要求正文字?jǐn)?shù)不少于10000字。體部分應(yīng)按照軟件工程的思想進(jìn)行論述。

　　

【正文】 ){ if ( == 4) { try{ var errMsg = 。 var showErr = (u_id)。 if(errMsg == 1){ =font color=red不可用， br用戶名不能為空！ /font。 }else if(errMsg == 2){ =font color=red對(duì)不起， br此用戶已經(jīng)存在！ /font。 }else if(errMsg == 3){ =font color=red恭喜！ br此用戶名可用！ /font。 } }catch(e1){} } } (null)。 }catch(e2){} } 在 頁(yè)面中，自定義一個(gè)函數(shù) checkUserName(checkName)。在該函數(shù)中獲取傳遞的用戶名稱，創(chuàng)建記錄集查詢數(shù)據(jù)表中是否存在同名記錄，并根據(jù)不同情況給 ErrStr 變量賦值，然后將 ErrStr 變量賦值予 checkUserName。在該頁(yè)面中使用 Response 對(duì)象的 write 方法輸出 checkUserName 函數(shù)的返回值。 代碼位置： !include file=include/ 30 % userName = request(userName) (checkUserName(userName)) function checkUserName(checkName) dim ErrStr if(checkName=) then ErrStr = 1 else set rs_u= () sql=select id from tab_user_reg where Uname=39。 amp。 checkName amp。 39。 sql,conn,1,1 if not and not then ErrStr = 2 else ErrStr = 3 end if set rs=nothing end if checkUserName = ErrStr end function % 實(shí)現(xiàn)會(huì)員注冊(cè) 在會(huì)員注冊(cè)頁(yè)面中，用戶單擊“提交”按鈕時(shí)程序會(huì)自動(dòng)檢查用戶輸入的數(shù)據(jù)格式是否正確，如果符合標(biāo)準(zhǔn)，則調(diào)用自定義的 add()子過(guò)程將數(shù)據(jù)插入到會(huì)員注冊(cè)信息表中。在 add()子過(guò)程中，首先獲取表單傳遞的數(shù)據(jù)，并判斷是否存在重復(fù)的用戶名，然后使用 Recordset 對(duì)象的 AddNew 方法將數(shù)據(jù)插入到數(shù)據(jù)庫(kù)中。代碼如下： 代碼位置： script language=javascript function Mycheck(form){ for(i=0。i。i++){ if([i].value==){ alert([i].name + 不能為空 !)。return false。} else{ if([3].6){ alert(39。密碼長(zhǎng)度應(yīng)大于或者等于 6 位！ 39。)。return false。} if([3].value!=[4].value){ 31 alert(39。密碼與確認(rèn)密碼不一致！ 39。)。return false。} if(!checkEmail([9].value)){ alert(39。Email 地址輸入不正確！ 39。)。return false。} if(!checkCode([10].value)){ alert(39。身份證號(hào)碼不準(zhǔn)確！ 39。)。return false。}} } } /script !include file=include/ % 39。添加新記錄 Sub add() str1=Str_filter((用戶名稱 )) str2=Str_filter((性別 )) str3=Str_filter((密碼 )) str4=Str_filter((密碼提示問(wèn)題 )) str5=Str_filter((問(wèn)題答案 )) str6=Str_filter((真實(shí)姓名 )) str7=Str_filter((聯(lián)系方式 )) str8=Str_filter((Email)) str9=Str_filter((身份證號(hào) )) str10=Str_filter((通信地址 )) str11=Str_filter((郵編 )) If str1 and str2 and str3 and str4 and str5 and str6 and str7 and str8 and str9 and str10 and str11 Then Set rs=() sqlstr=select * from tab_user_reg where Uname=39。amp。str1amp。39。 sqlstr,conn,1,3 If Not Then (script language=39。javascript39。alert(39。用戶名已存在，請(qǐng)重新輸入！ 39。)。()。/script) Else rs(Uname)=str1 rs(Usex)=str2 rs(Upasswd)=str3 rs(Uquestion)=str4 rs(Uanswer)=str5 rs(Urname)=str6 rs(Utel)=str7 rs(U)=str8 rs(Ucode)=str9 rs(Uaddress)=str10 rs(Upcode)=str11 32 temp= =temp Uid=rs(id) Set rs=Nothing Session(Uname)=str1 Set rsa=(insert into tab_user_account(Uid,Uname) values(amp。Uidamp。,39。amp。str1amp。39。)) 39。將新用戶的消費(fèi)情況初始化 Set rsa=Nothing (script language=39。javascript39。alert(39。恭喜您 ,會(huì)員注冊(cè)成功！39。)。=39。39。/script) End If Else (script language=39。javascript39。alert(39。 請(qǐng)將信息填寫完整！39。)。(1)。/script) End If End Sub If Not Isempty(Request(add)) Then call add() % 二、 會(huì)員登錄模塊設(shè)計(jì) 本模塊使用表： tab_user_reg 會(huì)員登錄的主要功能是為會(huì)員提供登錄網(wǎng)站的入口。如果會(huì)員選擇了自動(dòng)登錄，系統(tǒng)會(huì)自動(dòng)記錄會(huì)員信息，在一天之內(nèi)，會(huì)員可直接進(jìn)入會(huì)員中心而無(wú)需重復(fù)性輸入用戶名和密碼。會(huì)員登錄頁(yè)面的運(yùn)行效果如圖 所示。 圖 用戶登錄界面 設(shè)計(jì)登錄頁(yè)面 新建一個(gè) ASP 頁(yè)面， 命名為 。在該頁(yè)面中建立表格和表單，用于放置文本框、復(fù)選框、按鈕、圖片等 HTML 元素。會(huì)員登錄頁(yè)面中涉及的重要表單元素如表 所示。 33 表 Form1 表單元素 名稱 類型 含義 重要屬性 form_login form 用戶登錄表單 method=”post” action=”” txt_name input “用戶名”文本框 type=”text” class=”textbox” txt_passwd input “密碼”文本框 type=”password” class=”textbox” cb_auto input 用于標(biāo)識(shí)是否自動(dòng)登錄 type=”checkbox” value=”1” login input “登錄”按鈕 type=”submit” class=button” value=” 登錄 ” submit3 input “找回密碼”按鈕 type=”button” name=Submit3” value=”找回密碼 ” class=”button” onclick=”javascript: (‘’,’new’,’height=220,width=570’)?！? 實(shí)現(xiàn)會(huì)員自動(dòng)登錄 在會(huì)員登錄頁(yè)面中，當(dāng)用戶單擊“登錄”按鈕后，程序?qū)⑹紫全@取表單傳遞的數(shù)據(jù)，并根據(jù)“自動(dòng)登錄”復(fù)選框的值來(lái)判斷是否使用 cookie 保存用戶信息，然后依次將用戶輸入的用戶名和密碼與會(huì)員注冊(cè)信息表中的數(shù)據(jù)進(jìn)行比較，如果數(shù)據(jù)表中存在記錄則允許用戶進(jìn)入到“會(huì)員中心”進(jìn)行操作。代碼如下： % If Not Isempty(Request(login)) Then str1=Str_filter((txt_name)) str2=Str_filter((txt_passwd)) 34 str3=Str_filter((cb_auto)) str1_other=(UserName) str2_other=(UserPwd) If str1 and str2 Then call login(str1,str2) If str3 Then (UserName)=str1 (UserName).expires=DateAdd(d,1,now()) (UserPwd)=str2 (UserPwd).expires=DateAdd(d,1,now()) End If Else If str1= and str2= and str1_other and str2_other Then str1=str1_other str2=str2_other call login(str1,str2) Else (script lanuage=39。javascript39。alert(39。請(qǐng)輸入完整信息 !39。)。/script) () End If End If Sub login(str1,str2) Set rs=(select Uname,Upasswd from tab_user_reg where Uname=39。amp。str1amp。39。) If Then (script lanuage=39。javascript39。alert(39。您輸入的用戶名不正確 ,請(qǐng)重新輸入 !39。)。/script) Else If rs(Upasswd)str2 Then (script lanuage=39。javascript39。alert(39。您輸入的密碼不正確 ,請(qǐng)重新輸入 !39。)。/script) Else Session(Uname)=rs(Uname) (script lanuage=39。javascript39。alert(39。登錄成功 !39。)。=39。39。/script) End If End If End Sub End If % 三、 找回密碼模塊設(shè)計(jì) 35 找回密碼是為 了讓已經(jīng)注冊(cè)為網(wǎng)站的會(huì)員因忘記密碼而提供的解決方案。在網(wǎng)站前臺(tái)首頁(yè)的“注冊(cè)登錄”欄目中，單擊“找回密碼”按鈕，即可打開找回密碼的首頁(yè)。找回密碼主要分為 3 步：首先輸入用戶名；然后系統(tǒng)會(huì)根據(jù)輸入的用戶名將相應(yīng)的密碼問(wèn)題展示給用戶在頁(yè)面中，并要求用戶輸入密碼問(wèn)題答案；最后，如果用戶輸入的密碼問(wèn)題答案正確則將返回密碼給用戶。找到密碼頁(yè)面的運(yùn)行結(jié)果如圖 — 所示。 圖 找回密碼一 圖 找回密碼二 36 圖 找回密碼三 實(shí)現(xiàn)找回密碼第一步 —— 輸入會(huì)員名稱 在找回密碼頁(yè)面中，首先定義 4 個(gè)標(biāo)志變量，并在適當(dāng)?shù)那闆r中設(shè)置變量的值，然后根據(jù)變量的值來(lái)確定在頁(yè)面中顯示的密碼找回每一步的具體內(nèi)容。代碼如下： 代碼位置： !include file=include/ % Flag_1 = 0 39。標(biāo)識(shí)是否輸入用戶名， 0 表示未輸入用戶名， 1 表示已輸入用戶名 Flag_2 = 0 39。標(biāo)識(shí)用戶名是否存在， 0 表示不存在， 1 表示存在 Flag_3 = 0 39。標(biāo)識(shí)是否輸入密碼問(wèn)題答案， 0 表示未輸入密碼問(wèn)題答案， 1 表示一輸入密碼問(wèn)題答案 Flag_4 = 0 39。標(biāo)識(shí)密碼問(wèn)題答案是否準(zhǔn)確， 0 表示不準(zhǔn)確， 1 表示準(zhǔn)確 getstuid = Replace