【導(dǎo)讀】大的平臺來實(shí)現(xiàn)的網(wǎng)上購物。對于企業(yè)來講，無論是企業(yè)之間,還是企。近幾年，隨著網(wǎng)絡(luò)數(shù)據(jù)庫技術(shù)的進(jìn)一步發(fā)展，使得這一設(shè)想逐漸成為。運(yùn)用ASP技術(shù)和網(wǎng)絡(luò)數(shù)據(jù)庫原理，基于B/S模式我開發(fā)了一個(gè)網(wǎng)上購物系統(tǒng)。品的詳細(xì)資料，然后根據(jù)各人的喜好購買心儀的商品。系統(tǒng)會自動為顧客生成訂。單，按照顧客所填寫的信息提交訂單并發(fā)貨。系統(tǒng)管理員則可以對現(xiàn)有的商品進(jìn)。行添加和編輯，審查已注冊的用戶并對提交的訂單進(jìn)行處理。

　　

【正文】 re anclassid=amp。anclassid,conn,1,1 if and then SCRIPT language=JavaScriptalert(39。參數(shù)錯(cuò)誤！ 39。)。 javascript:(1)/SCRIPT end if anclassname=rs(anclass) select * from wq_sort2 where nclassid=amp。nclassid,conn,1,1 if and then SCRIPT language=JavaScriptalert(39。參數(shù)錯(cuò)誤！ 39。)。 javascript:(1)/SCRIPT end if nclassname=rs(nclass) % tr td colspan=4font color=FF0000font color=333399商品分類： /font/font 【 a href=?id=bigamp。anid=%=anclassid%%=anclassname%/a 】 【 a href=?id=smallamp。anid=%=anclassid%amp。nid=%=nclassid%%=nclassname%/a】 /td /tr % case sale % 第 31 頁 共 38 頁 tr td colspan=4font color=FF0000font color=333399特價(jià)商品/font/font/td /tr % case news % tr td colspan=4font color=FF0000font color=333399新品上架/font/font/td /tr % case else % tr td colspan=4font color=FF0000font color=333399新品上架/font/font/td /tr % end select% tr td colspan=4 height=1 background=images//td /tr /table %set rs=() if leixing=big then select * from wq_books where anclassid=amp。anclassidamp。 order by adddate desc,conn,1,1 elseif leixing=small then select * from wq_books where anclassid=amp。anclassidamp。 and nclassid=amp。nclassidamp。 order by adddate desc,conn,1,1 elseif leixing=sale then select * from wq_books where tejiabook=1 order by adddate desc,conn,1,1 elseif leixing=news then select * from wq_books where newsbook=1 order by adddate desc,conn,1,1 else select * from wq_books where newsbook=1 order by adddate desc,conn,1,1 end if if =0 then % table width=370 border=0 cellspacing=0 cellpadding=5 第 32 頁 共 38 頁 align=center tr td align=center暫無商品 /td /tr /table % else =6 39。每頁記錄條數(shù) iCount= 39。記錄總數(shù) iPageSize= maxpage= page=request(page) if Not IsNumeric(page) or page= then page=1 else page=cint(page) end if if page1 then page=1 elseif pagemaxpage then page=maxpage end if =Page if page=maxpage then x=iCount(maxpage1)*iPageSize else x=iPageSize end if For i=1 To x % !include file= % next call PageControl(iCount,maxpage,page,border=0 align=center,p align=center) end if set rs=nothing Sub PageControl(iCount,pagecount,page,table_style,font_style) 第 33 頁 共 38 頁 39。生成上一頁下一頁鏈接 Dim query, a, x, temp action = amp。 (HTTP_HOST) amp。 (SCRIPT_NAME) query = Split((QUERY_STRING), amp。) For Each x In query a = Split(x, =) If StrComp(a(0), page, vbTextCompare) 0 Then temp = temp amp。 a(0) amp。 = amp。 a(1) amp。 amp。 End If Next (table amp。 Table_style amp。 amp。 vbCrLf ) (form method=get onsubmit= = 39。 amp。 action amp。 ? amp。 temp amp。 Page=39。+ 。return false。TR amp。 vbCrLf ) (TD align=right amp。 vbCrLf ) (font_style amp。 vbCrLf ) if page=1 then (首頁 amp。 vbCrLf) (上頁 amp。 vbCrLf) else (A HREF= amp。 action amp。 ? amp。 temp amp。 Page=1首頁 /A amp。 vbCrLf) (A HREF= amp。 action amp。 ? amp。 temp amp。 Page= amp。 (Page1) amp。 上頁 /A amp。 vbCrLf) end if if page=pagecount then (下頁 amp。 vbCrLf) (尾頁 amp。 vbCrLf) else (A HREF= amp。 action amp。 ? amp。 temp amp。 Page= amp。 (Page+1) amp。 下頁 /A amp。 vbCrLf) (A HREF= amp。 action amp。 ? amp。 temp amp。 Page= amp。 pagecount amp。 尾頁 /A amp。 vbCrLf) end if ( 頁次： amp。 page amp。 / amp。 pageCount amp。 頁 amp。 vbCrLf) ( 共有 amp。 iCount amp。 種商品 amp。 vbCrLf) ( 轉(zhuǎn)到 amp。 INPUT TYEP=TEXT NAME=page SIZE=1 Maxlength=5 VALUE= amp。 page amp。 amp。 頁 amp。 vbCrLf amp。 INPUT type=submit style=fontsize: 9pt value=GO class=b2) 第 34 頁 共 38 頁 (/TD amp。 vbCrLf ) (/TR/form amp。 vbCrLf ) (/table amp。 vbCrLf ) End Sub % /div /td td width=1 valign=top background=images//td td width=178 valign=top bordercolor=FFFFFF bgcolor=FFFFFF %39。會員登陸 % %if (hww)(username)= and (hww)(shjianame)= then% !include file= %elseif (hww)(username) then% !include file= %end if% %39。登陸結(jié)束 % 5． 1． 2 會員注冊 會員注冊頁面： 第 35 頁 共 38 頁 在會員注冊中，首先是檢查該顧客所申請的用戶名是否以被人申請了，若已被人申請了該用戶名，則系統(tǒng)將提示給用戶“該用戶名已存在”的信息。其方法還是使用對數(shù)據(jù)庫的操作： set rs=() sqltext=select * from Wq_action where UserId=39。 amp。 (uid) amp。 39。 sqltext,conn,1,1 39。查找數(shù)據(jù)庫，檢查用戶名是否已經(jīng)注冊過 if = 1 then if rs(userid)=(uid) then ?msg=此用戶名已經(jīng)注冊過，請選用其他用戶名 ! end if end if 之后進(jìn)入用戶詳細(xì)資料登記的頁面（ ）： 第 36 頁 共 38 頁 另外還將調(diào)用頁面 ，它將使用大量的 Javascript 的語言開發(fā)的程序，用來檢查用戶填入字符的正確性。其主要的程序看后面源程序代碼，詳細(xì)的介紹各程序單元所完成的功能和作用。 在用戶登記個(gè)人的詳細(xì)資料時(shí)，仍然使用 ASP 中的 Recordset 的對象，對數(shù)據(jù)庫進(jìn)行添加的操作，其方法如下： rs(UserId)=(uid) rs(PassWD)=(pwd) rs(WtPass)=(question) rs(DaPass)=(answer) rs(Name)=(Name) rs(Sex)=(Sex) rs(Email)=(Email) rs(Phone)=(usephone) rs(Address)=(haddr) rs(Zip)=(postcode) % % se