【導(dǎo)讀】摘要：阿里巴巴集團(tuán)董事局主席馬云表示：“雙11”并非所謂電商大戰(zhàn)，貿(mào)易商們將會發(fā)現(xiàn)：今天的形勢變了，新經(jīng)濟(jì)起來的時間到了！簡單的網(wǎng)絡(luò)操作，足不出戶，即可送貨上門，并具有完善的售后服務(wù)。設(shè)計(jì)的課題，希望能從中學(xué)到更多現(xiàn)代計(jì)算機(jī)技術(shù)的知識。開發(fā)出來的網(wǎng)上購物系統(tǒng)。它的主要功能是實(shí)現(xiàn)網(wǎng)上商品的展示、顧客在。本軟件界面比較簡單明快，主題突出，以網(wǎng)絡(luò)營銷為本?？唾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用戶名不能為空 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電話號碼不能為空 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 有錯誤 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用戶名已被別人注冊 founderr=true end if % （ 2） 將資料存入數(shù)據(jù) 庫中的代碼實(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） 用戶注冊資料的更改 只有當(dāng)用戶登陸以后系統(tǒng)才會顯示并執(zhí)行這項(xiàng)功能， % if session(user_name)= then else user_name=session(user_name) % 用戶點(diǎn)擊導(dǎo)航欄的“更改資料”后，就進(jìn)入更改資料頁面，填寫除用戶名外的其他資料后， 頁面就會將用 戶的新資料重新寫入數(shù)據(jù)庫中，更新原來的頁面。 （二） 用戶登陸 當(dāng)用戶輸入用戶名和密碼后， 就打開一個記錄集，從數(shù)據(jù)庫中提取該用戶名： sql=select * from user where user_name=39。amp。user_nameamp。39。 如果沒有此用戶名則顯示“你輸入的用戶不存在 ”；如有此用戶名則接著檢查該用戶密碼： if user_pass=rs(user_pass) 密碼正確則將用戶的登陸時間和 IP 寫入數(shù)據(jù)庫： rs(user_lasttime)=now() rs(user_lastip)=(remote_addr) 并顯示登陸成功信息 否則顯示錯誤信息： errmsg=errmsg+br+li你輸入的密碼錯誤 ! ２９ （三） 用戶資料管理 將所有的用戶資料分頁顯示，主要代碼如下： % 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暫且沒有任何用戶注冊 /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 % （四） 用戶搜索 管理員輸入用戶名后， 打開一個記錄集，搜索出該用戶的詳細(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 并將其分頁顯示，程序與用 戶資料模塊中的差不多，在此就不多講了。 31 結(jié) 論 通過三個月的努力，在老師與同學(xué)們的指導(dǎo)幫助下，網(wǎng)上購物系統(tǒng)總算可以告一段落。雖然它是一個模擬實(shí)現(xiàn)的軟件，但是在數(shù)據(jù)庫的開發(fā)方面，我學(xué)到了不少關(guān)于 ASP 和 SQL 的知識。開發(fā)時遇到了許多的困難，但是通過自己的努力，還有老師同學(xué)們的幫助，最終還是迎刃而解了。 這次畢業(yè)設(shè)計(jì)完全是按照軟件工程學(xué)的方法來進(jìn)行設(shè)計(jì)和開發(fā)的，我覺得這樣做使我的思路更清晰，有了需求分析，就知道自己應(yīng)該做什么。當(dāng)然，這次設(shè)計(jì)中，我發(fā)現(xiàn)了自己的很多不足。首先，對 DREAWEAVER 這 個開發(fā)工具的掌握不夠，對 ASP 語言的運(yùn)用不夠熟練，以至于多走了很多彎路。其次，那就是缺少鉆研精神，很多東西不去用新方法解決，而是追求能解決就好。再者，是對整個軟件開發(fā)的把握能力有待于進(jìn)一步提高。這些都是我今后應(yīng)該注意和提高的。 32 致 謝 在這段日子里，老師和同學(xué)給了我很多的幫助，尤其是我的指導(dǎo)老師李建國教授 認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實(shí)踐中，都給我很大的幫助，使我得到不少的提高，這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他 給予了耐心的教導(dǎo)。 在此，對所有給我支持與幫助的老師與同學(xué)衷心的道一聲 ” 謝謝 ” !如果沒有大家的幫助，我這個程序肯定不是以現(xiàn)在面目出現(xiàn)的。 33 參考文獻(xiàn) [1] 網(wǎng)星工作室編著，《 Dreamweaver 完全自學(xué)手冊》 , 北京希望電子出版社。 [2] 楊繼平 吳華編著，《 SQL Server 20xx 自學(xué)教程》，清華大學(xué)出版社。 [3] 薛元昀 顧家瑛編著《網(wǎng)頁數(shù)據(jù)庫設(shè)計(jì)與發(fā)布》，清華大學(xué)出版社。 [4] 數(shù)位文化編著 《網(wǎng)頁數(shù)據(jù)庫實(shí)例應(yīng)用寶典》，清華大學(xué)出版社。 [5] 杜宏毅 鄭玄宜編著 《完全接觸 ASP 之 VBScript》，電子工業(yè)出版社。 [6] 張海潘 編著 《軟件工程導(dǎo)論》，清華大學(xué)出版社。