【正文】 r(String)功能：在返回兩端加上單引號(hào)后的字符串。輸入?yún)?shù)：String輸出參數(shù)：加上單引號(hào)后的字符串2） Function UpperID(ID)功能：將輸入用戶(hù)名轉(zhuǎn)化為大寫(xiě)。輸入?yún)?shù)：ID，一般為用戶(hù)名。輸出參數(shù)：轉(zhuǎn)化后的字符串。3） Sub ReturnErrorPage(ErrorCode)功能：。輸入?yún)?shù)：錯(cuò)誤代碼。輸出參數(shù)：無(wú)。4） Sub ReturnSuccessPage（SuccessCode）功能：。輸入?yún)?shù)：成功代碼。輸出參數(shù)：無(wú)。5） Function Checkreferer()功能：檢查用戶(hù)所訪問(wèn)的上一頁(yè)是否是本站頁(yè)面。輸入?yún)?shù)：無(wú)。輸出參數(shù)：如果是，返回true；如果不是，返回false.6） Function GetuserID()功能：取得用戶(hù)唯一標(biāo)識(shí)數(shù)字，如未登錄，則定向至錯(cuò)誤處理中。輸入?yún)?shù)：無(wú)。輸出參數(shù)：如未登錄，跳出該頁(yè)面。無(wú)返回。如已登錄，返回用戶(hù)唯一標(biāo)識(shí)數(shù)字。 用戶(hù)注冊(cè)模塊 訪問(wèn)數(shù)據(jù)庫(kù)的準(zhǔn)備1） 建立數(shù)據(jù)源建立ODBC數(shù)據(jù)源，選擇SQL Server作為驅(qū)動(dòng)程序。 添加數(shù)據(jù)源對(duì)話框2) 配置數(shù)據(jù)源在此不詳述配置過(guò)程，僅列出配置完后的數(shù)據(jù)源信息。 新建數(shù)據(jù)源信息 登陸首頁(yè)的制作網(wǎng)站為客戶(hù)提供一定的服務(wù)，那么客戶(hù)也必須履行一定的職責(zé)和義務(wù)。所以在客戶(hù)注冊(cè)時(shí)，網(wǎng)站首先得給出相應(yīng)的條文，要客戶(hù)同意了這些條文才可以注冊(cè)。以下便是登陸首頁(yè)的制作過(guò)程：?jiǎn)?dòng)Dreamweaver，選擇Main這個(gè)模板。將其存于/Ebusiness/User/。然后再可編輯區(qū)中更改各項(xiàng)內(nèi)容。在文本域中寫(xiě)出用戶(hù)注冊(cè)協(xié)議。插入兩個(gè)超鏈接“我同意－”、“我不同意－../”。 收集用戶(hù)的個(gè)人信息客戶(hù)同意了注冊(cè)后，就可以進(jìn)行基本資料的輸入了。按輸入提示屬項(xiàng)輸入，基本每一項(xiàng)都有其一定的填寫(xiě)格式或要求，填寫(xiě)不正確，在提交表單后系統(tǒng)會(huì)自動(dòng)顯示出錯(cuò)提示。以下為制作過(guò)程和表單填寫(xiě)屬性：，從模板Main新建一個(gè)注冊(cè)頁(yè)。將其存于/Ebusiness/User/。制作加入收集用戶(hù)資料的表單步驟一： 在Dreamweamer中插入一個(gè)Form，, Method設(shè)為POST。步驟二： 在Form中使用Table將空白區(qū)域分割成一定的小區(qū)域，供各個(gè)輸入框放置。步驟三： 再插入若干個(gè)文本輸入框、密碼輸入框和復(fù)選框。步驟四： 將文本輸入框、密碼輸入框和復(fù)選框命名。請(qǐng)選擇一個(gè)用戶(hù)名：用戶(hù)在本電子商務(wù)網(wǎng)站里的唯一身份標(biāo)識(shí)。最長(zhǎng)字符數(shù)是30個(gè)。 該輸入框名字設(shè)為ID。請(qǐng)選擇一個(gè)密碼： 輔助用戶(hù)身份認(rèn)證，只有同時(shí)擁有用戶(hù)名和密碼，才能以該用戶(hù)身份登錄本網(wǎng)站。最長(zhǎng)字符數(shù)是30個(gè)。該輸入框名字設(shè)為password。請(qǐng)?jiān)佥斎胍淮未_認(rèn)：為了防止用戶(hù)意外疏忽輸入密碼時(shí)，擊錯(cuò)了鍵，而導(dǎo)致一系列的麻煩，要求用戶(hù)再次輸入，予以確認(rèn)。最長(zhǎng)字符數(shù)是30個(gè)。該輸入框名字設(shè)為ID。 該輸入框名字設(shè)為password2。密碼提示問(wèn)題： 當(dāng)用戶(hù)忘記了自己的密碼；如果還記得密碼提示問(wèn)題的答案，仍可向網(wǎng)站請(qǐng)求，提示密碼。最長(zhǎng)字符數(shù)是30個(gè)。該輸入框名字設(shè)為Question。提示問(wèn)題的答案：密碼提示問(wèn)題的答案。最長(zhǎng)字符數(shù)是30個(gè)。 該輸入框名字設(shè)為Answer。 用戶(hù)詳細(xì)資料： 真實(shí)姓名： 用戶(hù)的真實(shí)姓名，最長(zhǎng)字符數(shù)是30個(gè)。該輸入框名字設(shè)為Name。性別： 用戶(hù)性別，該輸入框名字設(shè)為Sex。身份證號(hào)碼： 用戶(hù)身份證號(hào)碼。至少15位數(shù)字。 該輸入框名字設(shè)為IDCardNo。詳細(xì)地址： 用戶(hù)詳細(xì)地址，最長(zhǎng)字符數(shù)是50個(gè)。該輸入框名字設(shè)為Address。電子郵件地址： 用戶(hù)電子郵件地址。最長(zhǎng)字符數(shù)是30個(gè)。該輸入框名字設(shè)為Email。電話號(hào)碼： 用戶(hù)電話號(hào)碼，最長(zhǎng)字符數(shù)是30個(gè)。該輸入框名字設(shè)為T(mén)elephone。信用卡類(lèi)型： 用戶(hù)信用卡類(lèi)型，最長(zhǎng)字符數(shù)是30個(gè)。該輸入框名字設(shè)為CreditType。信用卡號(hào)碼： 用戶(hù)信用卡號(hào)碼，最長(zhǎng)字符數(shù)是30個(gè)。該輸入框名字設(shè)為CreditNo。用戶(hù)的興趣愛(ài)好：網(wǎng)站收集用戶(hù)興趣愛(ài)好的信息，可以將用戶(hù)所愛(ài)好類(lèi)別的新商品推薦給用戶(hù)，發(fā)送到用戶(hù)電子郵箱中。 輸入框名字設(shè)為Interest。輸入包括若干個(gè)復(fù)選輸入控件，這些復(fù)選框使用同一個(gè)名字，在提交這個(gè)表單時(shí)，形成一組同名多值數(shù)據(jù)集，供Asp程序使用。但在本例中使用客戶(hù)端腳本將這些復(fù)選框的狀態(tài)轉(zhuǎn)化為單一的二進(jìn)制數(shù)據(jù)，提交到服務(wù)器端。一個(gè)隱藏框：名字設(shè)為Favorite，用于將復(fù)選框的狀態(tài)轉(zhuǎn)化為單一的二進(jìn)制數(shù)據(jù)后，保存這個(gè)數(shù)據(jù)的。 檢查用戶(hù)輸入正確性，添加腳本編寫(xiě)好登錄的HTML頁(yè)面，用JavaScript語(yǔ)言編寫(xiě)一個(gè)簡(jiǎn)單的程序，對(duì)用戶(hù)輸入Form中的信息進(jìn)行一些必要的檢查，以獲得必要的用戶(hù)信息。CheckForm函數(shù)在HTML代碼中有定義，this是指向名為theForm表單對(duì)象的引用。如果CheckForm函數(shù)返回true，提交動(dòng)作繼續(xù)；如果CheckForm函數(shù)返回false，提交動(dòng)作停止； CheckForm函數(shù)是這樣的：function CheckForm(theForm){39。REM 程序功能模塊1var nFavorite=0。for(i=0。i。i++){ nFavorite*=2。 nFavorite+=((i).checked?1:0) }=nFavorite。39。REM 程序功能模塊2if(3){ ()。 ()。 alert(用戶(hù)名欄錯(cuò)誤:長(zhǎng)度不足3位，請(qǐng)使用3位或以上的用戶(hù)名。)。 return false。}if(==0){ ()。 ()。 alert(姓名欄錯(cuò)誤:請(qǐng)?zhí)钊肽恼婷?，以便送貨時(shí)確認(rèn)您的身份。)。 return false。}if(15){ ()。 ()。 alert(身份證欄錯(cuò)誤:長(zhǎng)度不足15位)。 return false。}if(10){ ()。 ()。alert(詳細(xì)地址欄錯(cuò)誤:長(zhǎng)度不足10位，請(qǐng)務(wù)必準(zhǔn)確填寫(xiě)，\n以便我們能夠?qū)⒇浰偷健?。 return false。}if(!((@))){ ()。 ()。 alert(不是合法的Email地址,請(qǐng)務(wù)必準(zhǔn)確填寫(xiě)，\n以便我們能夠與你聯(lián)系。)。 return false。}}上述程序中程序功能模塊1，是用于將名為Interest復(fù)選框的數(shù)據(jù)轉(zhuǎn)化為二進(jìn)制數(shù)據(jù)。(i).checked取得第i個(gè)復(fù)選框的狀態(tài)。如果該屬性值是true，將nFavorite的最低位賦為1，否則賦為0。每次循環(huán)將nFavorite值乘2，即右移一位。這樣即可將復(fù)選框的狀態(tài)轉(zhuǎn)化到nFavorite的相應(yīng)位上，成為nFavorite中的二進(jìn)制數(shù)據(jù)信息。然后，將nFavorite賦給名為Favorite的隱藏框。程序功能模塊2，是用于檢查用戶(hù)輸入的合法性，比如：用戶(hù)名不能少于3位，否則，Asp程序?qū)⒁暈殄e(cuò)誤，而要求用戶(hù)重新輸入。各個(gè)輸入要求羅列如下：用戶(hù)輸入錯(cuò)誤一：用戶(hù)名欄錯(cuò)誤:長(zhǎng)度不足3位，請(qǐng)使用3位或以上的用戶(hù)名。用戶(hù)輸入錯(cuò)誤二：姓名欄錯(cuò)誤:請(qǐng)?zhí)钊肽恼婷员闼拓洉r(shí)確認(rèn)您的身份。)用戶(hù)輸入錯(cuò)誤三：身份證欄錯(cuò)誤:長(zhǎng)度不足15位用戶(hù)輸入錯(cuò)誤四：詳細(xì)地址欄錯(cuò)誤:長(zhǎng)度不足10位，請(qǐng)務(wù)必準(zhǔn)確填寫(xiě)，\n以便我們能夠?qū)⒇浰偷健?用戶(hù)輸入錯(cuò)誤五：不是合法的Email地址,請(qǐng)務(wù)必準(zhǔn)確填寫(xiě)，\n以便我們能夠與你聯(lián)系。)Input輸入框的方法 focus()是使該框得到輸入焦點(diǎn)，方便用戶(hù)操作；select()方法是是該輸入框中文本被選中，同樣也方便用戶(hù)更改輸入時(shí)使用。 用戶(hù)中心模塊該首頁(yè)要完成如下對(duì)用戶(hù)登錄狀態(tài)的判定功能：216。 如果用戶(hù)已登錄，顯示歡迎信息，包括用戶(hù)名字、性別和上次訪問(wèn)時(shí)間。216。 如果用戶(hù)尚未登錄，提示用戶(hù)登錄216。 對(duì)于第一次來(lái)本站的訪問(wèn)者，提示他注冊(cè)。進(jìn)入用戶(hù)中心提示登錄顯示歡迎信息提示注冊(cè)，在此頁(yè)面中，未注冊(cè)的客戶(hù)可以注冊(cè)。已注冊(cè)的客戶(hù)可以直接登錄，并且修改資料及密碼如果忘了密碼可以通過(guò)提問(wèn)，等待驗(yàn)證后可取回密碼。如果客戶(hù)已購(gòu)物也可查看其購(gòu)物車(chē)，確認(rèn)信息，顧客想離開(kāi)網(wǎng)站可選擇注銷(xiāo)。 用戶(hù)中心首頁(yè)用戶(hù)中心首頁(yè)要完成以上功能可以靠以下ASP代碼來(lái)實(shí)現(xiàn)：p align=centerfont color=CC00CC size=6歡迎訪問(wèn)Asp電子商務(wù)網(wǎng)站/font/p% If IsEmpty(Session(User_ID)) Or Session(User_ID) Then% p align=centerfont size=3 color=CC00CC 你是amp。nbsp。%=Session(User_Name)%amp。nbsp。 %=Session(User_Sex)% /font/p p align=center你是第%=Session(User_Visit_Times)%次訪問(wèn)本站/p p align=center你上次訪問(wèn)的時(shí)間是%=Session(User_Last_Visit_Time)%/p% Else % center 你尚未登錄，只能瀏覽商品，不能定購(gòu)。br 請(qǐng)先a Href=登陸/a，如果您還未注冊(cè)，須先a Href=注冊(cè)/a /center % End If%1） “用戶(hù)信息”頁(yè)中，程序查到該用戶(hù)的記錄后，逐個(gè)字段訪問(wèn)輸出，在網(wǎng)頁(yè)的表格中使用%=Rs(字段名)%輸出該記錄的各字段的值。對(duì)于User_Favorite字段的值可以使用JavaScript程序轉(zhuǎn)化為復(fù)選框狀態(tài)。script language=Javascript39。REM 將User_Favorite數(shù)據(jù)輸出var nFavorite=%=Rs(User_Favorite)%。 for(i=。i=0。i) { (i).checked=((nFavorite%2==1)?true:false) (i).disabled=true nFavorite=(nFavorite(nFavorite%2))/2。 }/script2） “修改資料”頁(yè)中。不同之處在于可編輯區(qū)域main中的內(nèi)容。(字段名)的值直接輸出，Rs(字段名)的值必須輸出到INPUT標(biāo)簽中。例：input name=Question size=30 value=%=Rs(User_Question)%這樣將輸入框的初始值設(shè)為Rs(字段名)，用戶(hù)就可以在原資料的基礎(chǔ)上再進(jìn)行更改。另外，在后者代碼中，必須加入一個(gè)Form，用于提交時(shí)，攜帶數(shù)據(jù)。在提交時(shí)，使用onsubmit=CheckForm(this)判斷用戶(hù)輸入的正確性。3） “修改密碼”頁(yè)中，首先，取得用戶(hù)的唯一標(biāo)識(shí)數(shù)字；并且判斷用戶(hù)輸入的兩個(gè)密碼是否一樣，若不一樣，引發(fā)wsecPassword異常。然后訪問(wèn)數(shù)據(jù)庫(kù)，查出當(dāng)前用戶(hù)的密碼，比較判斷用戶(hù)輸入的舊密碼和這個(gè)密碼是否一樣，若不一樣，引發(fā)wsecLogonWrongPassword異常；若一樣，更新數(shù)據(jù)庫(kù)，將新密碼覆蓋原密碼。成功后，引發(fā)成功信號(hào)wsscModifyMM。 %@Language=VBScript%! include virtual = /Ebusiness/general/ %OldPassword=(OldPassword)NewPassword=(NewPassword)NewPassword2=(NewPassword2)ID=GetUserID()If NewPasswordNewPassword2 Then ReturnErrorPage wsecPasswordEnd IfSet DataCon=()Set Rs=()=20 DSN=EBusiness,EBAdmin,111111SQLQuery=Select * From Customer Where ID=amp。IDSet Rs=(SQLQuery)If =True Then ReturnErrorPage wsecLogonNoUserEnd IfIf Rs(User_Password)OldPassword Then ReturnErrorPage wsecLogonWrongPasswordEnd IfSQLQuery=Update Customer Set User_Password=amp。sqlstr(NewPassword)SQLQuery=SQLQueryamp。 Where ID=amp。ID SQLQueryReturnSuccessPage wsscModifyMM%4） “找回密碼”頁(yè)中，共有以下幾個(gè)要點(diǎn)(Step)確定這次訪問(wèn)是第幾步。Step為一個(gè)隱藏輸入框。然后，將這個(gè)字符串值賦給sStep，如果Request(Step)為空，則將One賦給sStep，這表示默認(rèn)是第一步。，插入一個(gè)Form，即鏈接到自身。再插入一個(gè)隱藏框，Name設(shè)為Step，用于記錄下一步是第幾步，即提交表單時(shí)，先將Step賦予One、Two、Three、Four其中之一。然后，用Select Case 分支語(yǔ)句，按sStep，選擇本步驟中需輸出的內(nèi)容。3.第一步：sStep