網(wǎng)上購(gòu)物系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)—免費(fèi)計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文(編輯修改稿)
2025-01-08 16:08 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 pan class=price*/span span class=brief請(qǐng)?zhí)顚?xiě)您常用的電子郵件地址 ，用戶發(fā)送訂單和取回密碼 /span/td /tr tr td所在地區(qū) : % select * from province where flag0,conn,0,1 dim count% script language = JavaScript var onecount。 onecount=0。 subcat = new Array()。 %count = 0 do while not % subcat[%=count%] = new Array(%=rs(1)%,%=rs(2)%,%=rs(0)%)。 %count = count + 1 15 loop % onecount=%=count%。 function changelocation(locationid) { = 0。 var locationid=locationid。 var i。 for (i=0。i onecount。 i++) { if (subcat[i][1] == locationid) { [] = new Option(subcat[i][0], subcat[i][2])。 } } } /script % select id,name from province where flag=0 order by name,conn,1,1 if and then else% select name=province class=select onChange=changelocation([lectedIndex].value) option value=省 /直轄市 /option %do while not % option value=%=rs(0)%%=rs(1)%/option % loop end if % /select select name=city class=select option value=市 /縣 /區(qū) /option /select span class=price*/span /td /tr tr td /td /tr 16 tr td您的 ＱＱ : input name=qq type=text class=text_input id=qq onkeyup=value=(/[^\d]/g,39。39。) maxlength=12onbeforepaste=(39。text39。,(39。text39。).replace(/[^\d]/g,39。39。))amp。/td /tr tr td郵政地址 : input name=address type=text class=text_input1 id=address span class=brief 用于郵寄商品 ， 對(duì)外保密 /span/td /tr tr td郵政編碼 : input name=postcode type=text class=text_input id=postcode onkeyup=value=(/[^\d]/g,39。39。) onbeforepaste=(39。text39。,(39。text39。).replace(/[^\d]/g,39。39。))amp。/td /tr tr td聯(lián)系電話 : input name=tel type=text class=text_input1 id=tel onkeyup=value=(/[^\d]/g,39。39。) onbeforepaste=(39。text39。,(39。text39。).replace(/[^\d]/g,39。39。))amp。 span class=brief固定電話或手機(jī) ， 固定電話請(qǐng)加上區(qū)號(hào) /span/td /tr tr td真實(shí)姓名 : input name=truename type=text class=text_input id=truename onkeydown=if(==13)=9 onkeyup=value=(/[ ~]/g,39。39。) span class=brief用于郵寄商品 ， 對(duì)外保密 /span/td /tr tr td /td /tr tr td/td /tr tr td colspan=3 align=centerinput name=imageField type=image src=images/ width=38 height=18 border=0 align=absmiddle [帶 span class=price*/span 的必須填寫(xiě) ]/td 17 /tr/form /table /*下面一段代碼是用 JAVASCRIPT驗(yàn)證用戶所填寫(xiě)注冊(cè)信息的有效性 */ script language=javascript function chk() { if (==) {alert(請(qǐng)?zhí)顚?xiě)用戶名 )。return false。} if (strlen()16) {alert(用戶名長(zhǎng)度只能為 1～ 16個(gè)字母、數(shù)字或 1～ 8個(gè)漢字 )。return false。} if ((==)||(==)) {alert(請(qǐng)?zhí)顚?xiě)密碼 )。return false。} if (!=) {alert(兩次輸入的密碼不一致 ， 請(qǐng)重新輸入 )。return false。} if ((strlen()20)||(strlen(e)4)) {alert(密碼長(zhǎng)度必須為 4～ 20個(gè)字符 )。return false。} if ((strlen()20)||(strlen(e)4)) {alert(密碼長(zhǎng)度必須為 4～ 20個(gè)字符 )。return false。} if (==) {alert(請(qǐng)?zhí)?寫(xiě)提示問(wèn)題 )。return false。} if (strlen()40) {alert(提示問(wèn)題不能超過(guò) 20個(gè)漢字 )。return false。} if (==) {alert(請(qǐng)?zhí)顚?xiě)提示問(wèn)題答案 )。return false。} if (strlen()40) {alert(提示問(wèn)題答案不能超過(guò) 20個(gè)漢字 )。return false。} if (notmail()) {alert(您填寫(xiě)的電子郵件地址不合法 )。return false。} if (!=) { if (strlen()!=6) {alert(郵政編碼只能為 6位 )。return false。} } if (==) {alert(請(qǐng)選擇您所在的省或直 轄市 )。return false。} if (==) {alert(請(qǐng)選擇您所在的市、縣或地區(qū) )。return false。} return true。 } /script 18 %char end sub sub disagree alert 如果要使用本站的服務(wù) ， 您必須接受用戶注冊(cè)協(xié)議 end sub% 有些信息必須填寫(xiě) ,不能空白 ,否則出現(xiàn)提示錯(cuò)誤信息 .有的內(nèi)容需要規(guī)定其長(zhǎng)度以便得以控制 ,以及各種規(guī)格都具有其填寫(xiě)的要求 . ,把注冊(cè)會(huì)員的信息寫(xiě)入數(shù)據(jù)庫(kù)并加以保存 .添加一個(gè)用戶到數(shù)據(jù)庫(kù)，其實(shí)現(xiàn)過(guò)程為： % dim act /*定義變量 ,判斷取值 */ act=request(act) if act=reg then reg else info end if sub reg /*查詢數(shù)據(jù)庫(kù) ,驗(yàn)證用戶名是否存在 */ select id from [user] where username=39。amp。request(username)amp。39。,conn,1,1 if not and not then alert 該用戶名已經(jīng)被注冊(cè)，請(qǐng)重新填寫(xiě)一個(gè)用戶名 end if /*如果該用戶名沒(méi)有被使用 ,則添加數(shù)據(jù)庫(kù) */ select * from [user],conn,0,2 /*下面一段代碼對(duì)注冊(cè)表單傳遞過(guò)來(lái)的數(shù)據(jù)進(jìn)行處理 */ rs(username)=request(username) rs(password)=md5(request(password1),16) rs(question)=request(question) rs(answer)=md5(request(answer),16) rs()=request() rs(address)=request(address) rs(postcode)=request(postcode) rs(tel)=request(tel) rs(truename)=request(truename) rs(score)=0 rs(money)=0 rs(logins)=1 rs(lastlogin)=now() 19 rs(qq)=request(qq) rs(lastip)=(REMOTE_ADDR) dim rs1,province,city set rs1= () select name from province where id=amp。cint(request(province)),conn,0,1 province=rs1(0) select name from province where id=amp。cint(request(city)),conn,0,1 city=rs1(0) set rs1=nothing rs(province)=province rs(city)=city /*返回注冊(cè)信息 */ sub info% td colspan=3 class=b style=fontweight: bold注冊(cè)成功！歡迎您光臨 %= sinfo(0) %！ /td /tr tr td class=r_split/td td width=484 align=center您的用戶名： %=session(username)%br %if sendmail=ok then 您的資料已經(jīng)發(fā)送郵箱， % /td td class=r_split/td /tr tr td colspan=3 /td /tr /table %end sub% 進(jìn)入注冊(cè)新會(huì)員界面后 ,用戶首先填寫(xiě)新會(huì)員資料 ,再判斷帶 *號(hào)的必填項(xiàng)是否已填寫(xiě)齊全 ,用戶名是否重復(fù) ,地址 ,Email等資料是否有效等等 .如果所有數(shù)據(jù)有效 ,系統(tǒng)則再數(shù)據(jù)庫(kù)中添加一條新記錄 ,存儲(chǔ)新會(huì)員信息 ,完成新會(huì)員的注冊(cè) . 2. 客戶登陸 注冊(cè)會(huì)員可以通過(guò)此處實(shí)現(xiàn)會(huì)員的登陸 .登陸審查頁(yè)有 。 如果輸入正確，記錄用戶，登陸 成功則返回首頁(yè) ,如果登陸出現(xiàn)密碼或帳戶錯(cuò)誤 ,則出現(xiàn)提示信息重新要求登陸并返回首頁(yè) .其實(shí)現(xiàn)過(guò)程： 20 %dim act /*定義變量 ,判斷取值 */ act=request(act) if act=logout then logout elseif act=chk then chk else login end if /*判斷用戶名是否為空 */ sub logout (delete from bag where user=39。amp。session(username)amp。39。)session(username)= () end sub sub chk /*定義兩個(gè)變量，對(duì)用戶名和密碼
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1