網(wǎng)頁(yè)設(shè)計(jì)課程設(shè)計(jì)報(bào)告—電子商務(wù)網(wǎng)站開(kāi)發(fā)與建設(shè)

1、課程設(shè)計(jì)電子商務(wù)網(wǎng)站開(kāi)發(fā)與建設(shè) 姓 名： 學(xué) 號(hào)： 專(zhuān) 業(yè)： 指導(dǎo)教師： 聯(lián)系方式： 2013年06 月 14 日一、書(shū)店首頁(yè)實(shí)現(xiàn)代碼：圓圓書(shū)店歡迎來(lái)到圓圓書(shū)店！首頁(yè)用戶(hù)登錄用戶(hù)注冊(cè)購(gòu)物車(chē) 自然類(lèi) 歷史類(lèi) 文學(xué)類(lèi) 藝術(shù)類(lèi) 數(shù)學(xué)類(lèi) 政治類(lèi) 地理類(lèi) 天文類(lèi) 漫畫(huà)類(lèi) top 1 top2 top3 實(shí)現(xiàn)效果：2、 數(shù)據(jù)庫(kù)購(gòu)物車(chē)數(shù)據(jù)庫(kù)會(huì)員信息數(shù)據(jù)庫(kù)圖書(shū)信息數(shù)據(jù)庫(kù)訂單信息數(shù)據(jù)庫(kù)數(shù)據(jù)庫(kù)連接語(yǔ)句三、登錄頁(yè)面代碼：用戶(hù)登錄圓圓書(shū)店！親，先登錄吧！用戶(hù)名：登錄密碼：實(shí)現(xiàn)效果：四、注冊(cè)界面代碼： sub check dim theform set theform=document.myform if thefor

2、m.username.value= then msgbox 用戶(hù)名不能為空! exit sub end ifif len(theform.username.value)20 then msgbox 用戶(hù)名必須在6-20個(gè)字符和數(shù)字之間! exit sub end ifif len(theform.password.value)20 then msgbox 密碼必須為6-20個(gè)字符和數(shù)字之間! exit subend ifif theform.password.valuetheform.repassword.value then msgbox 再次輸入密碼必須與以上相同! exit sub en

3、d if if theform.question.value= then msgbox 問(wèn)題不能為空! exit sub end if if theform.answer.value= then msgbox 答案不能為空! exit sub end if if theform.firstname.value= then msgbox 姓名不能為空! exit sub end if if theform.phonenumber.value= then msgbox 聯(lián)系方式不能為空! exit sub end if dim pos,txt,atxt=theform.email.valuepos

4、=a=instr(txt,pos)if a=0 then msgbox電子郵箱地址不正確! exit sub end iftheform.submit end sub用戶(hù)注冊(cè)歡迎光臨圓圓書(shū)店！先注冊(cè)吧，成為我們的會(huì)員！ 標(biāo)注*項(xiàng)為必填選項(xiàng) 請(qǐng)輸入您的用戶(hù)名。 用戶(hù)名指南 必須為620個(gè)字符 用戶(hù)名:* 請(qǐng)輸入您的用戶(hù)登錄密碼。 密碼指南 請(qǐng)輸入620個(gè)字符或數(shù)字。 密碼:* 請(qǐng)?jiān)俅屋斎朊艽a：* 請(qǐng)輸入密保問(wèn)題和密碼。 密保問(wèn)題指南 這些問(wèn)題將在你忘記用戶(hù)名或密碼的時(shí)候?qū)δ阌兴鶐椭?問(wèn)題:* ? 答案：* 請(qǐng)輸入您的聯(lián)系信息。 姓名：* 聯(lián)系方式：* 電子郵箱:* 實(shí)現(xiàn)效果：輸出注冊(cè)結(jié)果代碼：

5、 % dim username dim password dim question dim answer dim name dim phonenumber dim mail username=request.form(username) password=request.form(password) question=request.form(question) answer=request.form(answer) name=request.form(name) phonenumber=request.form(phonenumber) mail=request.form(mail) res

6、ponse.write response.write username: response.write&username& response.write password: response.write&password& response.write question: response.write&question& response.write answer: response.write&answer& response.write name: response.write&name& response.write phonenumber: response.write&phonenu

7、mber& response.write e-mail: response.write&mail& response.write % 虛擬目錄建立步驟(1)在計(jì)算機(jī)管理建立虛擬目錄（2）創(chuàng)建虛擬目錄名稱(chēng)、并瀏覽html存放的文件(3)通過(guò)虛擬目錄瀏覽文件（4） 注冊(cè)信息填寫(xiě)并提交用戶(hù)登錄（檢查用戶(hù)登錄信息是否正確di.asp）% set conn=server.createobject(adodb.connection) strprovider=driver=microsoft access driver (*.mdb);dbq= &server.mappath(liyuanyuan.mdb)

8、 set rs=server.createobject(adodb.recordset) username=request(username) password=request(password) if len(username)6 then checkpass=false if len(password)五、購(gòu)物車(chē)界面 往購(gòu)物車(chē)?yán)锾砑由唐罚寒?dāng)單擊商品信息頁(yè)面中的“加入購(gòu)物車(chē)”按鈕后，就會(huì)調(diào)用“cart.asp”頁(yè)面，同時(shí)傳遞當(dāng)前商品的編號(hào)?！癱art.asp”頁(yè)面接受商品編號(hào)以后，把該商品信息添加到購(gòu)物車(chē)信息數(shù)據(jù)庫(kù)表中，然后顯示當(dāng)前的購(gòu)物車(chē)商品。添加時(shí)使用insert into語(yǔ)句，用法如下

9、：sql=insert into cartitem(cartid,productid,&_productquantity) value(&cartid&,&productid&_,&productquantity&) cart.asp完整代碼如下：%dim userid,productid,productquantity.productprice,cartiduserid=session(userid)if userid=thenresponse.write對(duì)不起，你還沒(méi)有登錄，所以不能訂購(gòu)商品。&_如果你已經(jīng)注冊(cè)，請(qǐng)按這里登錄。&_如果沒(méi)有，請(qǐng)按這里注冊(cè)。set conn=nothingre

10、sponse.endproductid=request.form(productid)productprice=request.form(productprice)productquantity=1set rscart=server.createobject(adodb.recordset)sql=select*form carts where userid=&useridrscart.open sql,conn,3,2if recart.eof and recart.bof thenrscart.addnewrscart(userid)=useridrscart.updateend ifrs

11、cart.movelastcartid=rscart(cartid)rscart.closeset rscart=nothingset rsitem=server.createobject(adodb.recordset)if productidthensql=delete from cartitem where cartid=&cartid&_and productid=&productidconn.execute sqlsql=insert into cartitem(cartid,productid,&_productquantity,productprice)value(&cartid

12、&,&productid&_,&productquantity &,&productprice&)conn.execute sqlend ifsql=select cartitem.cartid,cartitem.productid,cartitem.productquantity,&_products.productprice,products.productname&_from cartitem,products&_where cartitem.productid=products.productid and&_cartitem.cartid=&cartid&_order by carti

13、tem.productidrsitem.open sql,conn,0,1%歡迎光臨購(gòu)物車(chē)input type=hidden name=cartid value=購(gòu)物車(chē)序號(hào)商品數(shù)量單價(jià)金額%end ifinput type=text size=3 name=pqvalue=input type=checkbox name=pd value=1合計(jì)input type=hidden name=cartid value=.實(shí)現(xiàn)效果：點(diǎn)擊圖書(shū)致青春詳情表下面的“加入購(gòu)物車(chē)”按鈕，出現(xiàn)如下頁(yè)面（其代碼在下面圖書(shū)詳情代碼中再詳細(xì)給出）：數(shù)據(jù)庫(kù)如下：六、分類(lèi)檢索-以文學(xué)類(lèi)為例代碼：圓圓書(shū)店圓圓書(shū)店 文學(xué)類(lèi)

14、 致我們終將逝去的青春平版 誰(shuí)殺了我的牛？ 妙語(yǔ)人生   實(shí)現(xiàn)結(jié)果：點(diǎn)擊致青春的書(shū)名或圖片。其代碼及實(shí)現(xiàn)頁(yè)面如下代碼：圓圓書(shū)店圓圓書(shū)店 致我們終將逝去的青春(附珍藏卡冊(cè)) 平裝 待添加的隱藏文字內(nèi)容2 作者：辛夷塢 價(jià)格：￥ 15 免運(yùn)費(fèi) 庫(kù)存數(shù)量：2件 圖書(shū)描述 鄭微，心懷對(duì)林靜的愛(ài)意考上林靜所在城市大學(xué)，發(fā)現(xiàn)林靜已出國(guó)，后愛(ài)上同校陳孝正，一個(gè)板正又敏感的男孩。兩個(gè)人走到一起，陳孝正卻選擇出國(guó)，放棄鄭微。幾年后，林靜陳孝正出現(xiàn)，鄭微會(huì)傾向于哪邊呢？ 出版社: 百花洲文藝出版社; 第1版 (2013年5月1日) 平裝: 298頁(yè) 語(yǔ)種： 簡(jiǎn)體中文商品尺寸: 23.6 x 16.8 x

15、 2.4 c      其中“best.asp”源碼如下： 實(shí)現(xiàn)頁(yè)面：點(diǎn)擊首頁(yè)top1圖書(shū)，出現(xiàn)以下界面：7、 搜索查詢(xún)代碼： 搜索圖書(shū) 圖書(shū)名稱(chēng) 作者 出版社 價(jià)格 操作界面：搜索查詢(xún)結(jié)果：8、 訂單詳情代碼：歡迎光臨本書(shū)店 訂單詳情 % if session(userid) then % 訂單編號(hào) 購(gòu)書(shū)人 購(gòu)書(shū)時(shí)間接收人金額 % set rs = server.createobject(adodb.recordset)sql = select * from orderlist where userid = &session(userid)&rs.open sql,conn,3,3if isnumeric(request(page)=fal