【導(dǎo)讀】摘要：阿里巴巴集團(tuán)董事局主席馬云表示：“雙11”并非所謂電商大戰(zhàn)，貿(mào)易商們將會(huì)發(fā)現(xiàn)：今天的形勢(shì)變了，新經(jīng)濟(jì)起來(lái)的時(shí)間到了！簡(jiǎn)單的網(wǎng)絡(luò)操作，足不出戶(hù)，即可送貨上門(mén)，并具有完善的售后服務(wù)。設(shè)計(jì)的課題，希望能從中學(xué)到更多現(xiàn)代計(jì)算機(jī)技術(shù)的知識(shí)。開(kāi)發(fā)出來(lái)的網(wǎng)上購(gòu)物系統(tǒng)。它的主要功能是實(shí)現(xiàn)網(wǎng)上商品的展示、顧客在。本軟件界面比較簡(jiǎn)單明快，主題突出，以網(wǎng)絡(luò)營(yíng)銷(xiāo)為本?？唾Y料的管理方面的設(shè)計(jì)思想和實(shí)現(xiàn)的關(guān)鍵技術(shù)。

　　

【正文】 wxyz_., c) = 0 and not IsNumeric(c) then IsValidEmail = false exit function end if next if Left(name, 1) = . or Right(name, 1) = . then IsValidEmail = false exit function end if next if InStr(names(1), .) = 0 then IsValidEmail = false exit function end if i = Len(names(1)) InStrRev(names(1), .) if i 2 and i 3 then IsValidEmail = false exit function end if if InStr(, ..) 0 then IsValidEmail = false end if end function dim user_name,user_pass,user_pass2,user_mail,user_adds,user_tel,uesr_postcode ２６ if trim(request(user_name))= then errmsg=errmsg+br+li用戶(hù)名不能為空 founderr=true else user_name=trim(request(user_name)) end if if trim(request(user_pass))= or trim(request(user_pass2))= then errmsg=errmsg+br+li密碼或確認(rèn)不能為空 founderr=true else user_pass=trim(request(user_pass)) user_pass2=trim(request(user_pass2)) end if if user_pass user_pass2 then errmsg=errmsg+br+li兩次密碼不同 founder=true end if if request(user_adds)= then errmsg=errmsg+Br+li地址不 能為空 founderr=true else user_adds=request(user_adds) end if if request(user_tel)= then if not IsNumeric(request(user_tel)) then errmsg=errmsg+br+li電話(huà)號(hào)碼不能為空 founderr=true end if else user_tel=request(user_tel) ２７ end if if isvalid(trim(request(user_mail)))=false then errmsg=errmsg+br+li你的 Email 有錯(cuò)誤 founderr=true else user_mail=trim(request(user_mail)) end if if request(user_postcode)= then errmsg=errmsg+br+li郵編不能為空 founderr=true else user_postcode=request(user_postcode) end if sql=select * from user where user_name=39。amp。user_nameamp。39。 sql,conn,3,3 if not then errmsg=errmsg+br+li用戶(hù)名已被別人注冊(cè) founderr=true end if % （ 2） 將資料存入數(shù)據(jù) 庫(kù)中的代碼實(shí)現(xiàn) %if founderr=false then sql=select * from user where user_name=39。amp。user_nameamp。39。 sql,conn,3,3 rs(user_name)=user_name rs(user_pass)=user_pass rs(user_adds)=user_adds rs(user_mail)=user_mail ２８ rs(user_tel)=user_tel rs(user_regip)=(remote_addr) rs(user_postcode)=user_postcode rs(user_namec)=request(user_namec) % （ 3） 用戶(hù)注冊(cè)資料的更改 只有當(dāng)用戶(hù)登陸以后系統(tǒng)才會(huì)顯示并執(zhí)行這項(xiàng)功能， % if session(user_name)= then else user_name=session(user_name) % 用戶(hù)點(diǎn)擊導(dǎo)航欄的“更改資料”后，就進(jìn)入更改資料頁(yè)面，填寫(xiě)除用戶(hù)名外的其他資料后， 頁(yè)面就會(huì)將用 戶(hù)的新資料重新寫(xiě)入數(shù)據(jù)庫(kù)中，更新原來(lái)的頁(yè)面。 （二） 用戶(hù)登陸 當(dāng)用戶(hù)輸入用戶(hù)名和密碼后， 就打開(kāi)一個(gè)記錄集，從數(shù)據(jù)庫(kù)中提取該用戶(hù)名： sql=select * from user where user_name=39。amp。user_nameamp。39。 如果沒(méi)有此用戶(hù)名則顯示“你輸入的用戶(hù)不存在 ”；如有此用戶(hù)名則接著檢查該用戶(hù)密碼： if user_pass=rs(user_pass) 密碼正確則將用戶(hù)的登陸時(shí)間和 IP 寫(xiě)入數(shù)據(jù)庫(kù)： rs(user_lasttime)=now() rs(user_lastip)=(remote_addr) 并顯示登陸成功信息 否則顯示錯(cuò)誤信息： errmsg=errmsg+br+li你輸入的密碼錯(cuò)誤 ! ２９ （三） 用戶(hù)資料管理 將所有的用戶(hù)資料分頁(yè)顯示，主要代碼如下： % page=(page) if page= then page=1 if not(isnumeric(page)) then page=1 if page1 then page=1 page=int(page) sql=select * from user order by user_id DESC sql,conn,3,3 if then % td width=760 colspan=6暫且沒(méi)有任何用戶(hù)注冊(cè) /td/tr %else =20 totalrec= totalpage= if pagetotalpage then page=totalpage =page = i=0 dim user_id(),user_name(),user_mail(),user_postcode(),user_regtime() do while not and (i) i=i+1 redim preserve user_id(i),user_name(i),user_mail(i),user_postcode(i),user_reg time(i) user_id(i)=rs(user_id) user_name(i)=rs(user_name) user_mail(i)=rs(user_mail) user_postcode(i)=rs(user_postcode) user_regtime(i)=rs(user_regtime) ３０ loop for i=1 to ubound(user_id) % tr td width=16%%=user_id(i)%/td td width=16%%=user_name(i)%/td td width=16%%=user_mail(i)%/td td width=16%%=user_postcode(i)%/td td width=17%%=user_regtime(i)%/td td width=17%a href=javascript:user(%=user_id(i)%) 查 看 詳 細(xì) 信 息/a/td /tr %next % （四） 用戶(hù)搜索 管理員輸入用戶(hù)名后， 打開(kāi)一個(gè)記錄集，搜索出該用戶(hù)的詳細(xì)數(shù)據(jù)： set rs=() user_name=request(user_name) sql=select * from user where user_name like 39。%amp。user_nameamp。%39。 order by user_id DESC sql,conn,3,3 并將其分頁(yè)顯示，程序與用 戶(hù)資料模塊中的差不多，在此就不多講了。 31 結(jié) 論 通過(guò)三個(gè)月的努力，在老師與同學(xué)們的指導(dǎo)幫助下，網(wǎng)上購(gòu)物系統(tǒng)總算可以告一段落。雖然它是一個(gè)模擬實(shí)現(xiàn)的軟件，但是在數(shù)據(jù)庫(kù)的開(kāi)發(fā)方面，我學(xué)到了不少關(guān)于 ASP 和 SQL 的知識(shí)。開(kāi)發(fā)時(shí)遇到了許多的困難，但是通過(guò)自己的努力，還有老師同學(xué)們的幫助，最終還是迎刃而解了。 這次畢業(yè)設(shè)計(jì)完全是按照軟件工程學(xué)的方法來(lái)進(jìn)行設(shè)計(jì)和開(kāi)發(fā)的，我覺(jué)得這樣做使我的思路更清晰，有了需求分析，就知道自己應(yīng)該做什么。當(dāng)然，這次設(shè)計(jì)中，我發(fā)現(xiàn)了自己的很多不足。首先，對(duì) DREAWEAVER 這 個(gè)開(kāi)發(fā)工具的掌握不夠，對(duì) ASP 語(yǔ)言的運(yùn)用不夠熟練，以至于多走了很多彎路。其次，那就是缺少鉆研精神，很多東西不去用新方法解決，而是追求能解決就好。再者，是對(duì)整個(gè)軟件開(kāi)發(fā)的把握能力有待于進(jìn)一步提高。這些都是我今后應(yīng)該注意和提高的。 32 致 謝 在這段日子里，老師和同學(xué)給了我很多的幫助，尤其是我的指導(dǎo)老師李建國(guó)教授 認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無(wú)論在理論上還是在實(shí)踐中，都給我很大的幫助，使我得到不少的提高，這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他 給予了耐心的教導(dǎo)。 在此，對(duì)所有給我支持與幫助的老師與同學(xué)衷心的道一聲 ” 謝謝 ” !如果沒(méi)有大家的幫助，我這個(gè)程序肯定不是以現(xiàn)在面目出現(xiàn)的。 33 參考文獻(xiàn) [1] 網(wǎng)星工作室編著，《 Dreamweaver 完全自學(xué)手冊(cè)》 , 北京希望電子出版社。 [2] 楊繼平 吳華編著，《 SQL Server 20xx 自學(xué)教程》，清華大學(xué)出版社。 [3] 薛元昀 顧家瑛編著《網(wǎng)頁(yè)數(shù)據(jù)庫(kù)設(shè)計(jì)與發(fā)布》，清華大學(xué)出版社。 [4] 數(shù)位文化編著 《網(wǎng)頁(yè)數(shù)據(jù)庫(kù)實(shí)例應(yīng)用寶典》，清華大學(xué)出版社。 [5] 杜宏毅 鄭玄宜編著 《完全接觸 ASP 之 VBScript》，電子工業(yè)出版社。 [6] 張海潘 編著 《軟件工程導(dǎo)論》，清華大學(xué)出版社。