編輯“ASP實例如2”

在[[ASP]]中實現(xiàn)購物小車<br>
在程序中，我們定義了一個sp數(shù)組并對其賦值，然后用一個循環(huán)實現(xiàn)其數(shù)據(jù)顯示及對下一個程序的數(shù)據(jù)傳遞。程序部分代碼如下： <br>

＜％ i=1 <br>
do while (i＜=5) ％＞ <br>
＜tr ＞ ＜td＞＜％=sp(i)％＞＜/td＞ <br>
＜td＞＜a href=“cart.asp?spid=＜％=sp(i)％＞”＞訂購＜/a＞＜/td＞ ＜/tr＞ <br>
＜％ i=i＋1 <br>
loop ％＞ <br>

   構(gòu)建購物小車 <br>
　　為處理用戶訂購商品的操作，我們自定義了兩個Session的屬性，分別是“spid”(用來保存商品名稱)和“num”(用來保存相應(yīng)商品的訂購數(shù)量)。當用戶訂購了一種商品后，我們分三種情況對Session進行處理： <br>
●購物小車為空，即Session(“spid")=“",直接將spid與num加入Session； <br>
●購物小車非空且當前訂購的商品是購物小車中沒有的，則處理方法同上； <br>
●購物小車非空但當前訂購的商品是購物小車中已有的，Session保持不變。 <br>
程序?qū)崿F(xiàn)的要點是如何判別當前訂購的商品在購物小車中是否存在，因此，首先要將Session變量的內(nèi)容拆分并存入數(shù)組： <br>
array1=split(Session(“spid”),“:”) <br>
然后用循環(huán)語句判別array1中是否有元素與傳遞來的spid相同并將結(jié)果存入變量ifbuy： <br>

for i=0 to ubound(array1)－1 <br>
if array1(i)= Request.QueryString(“spid”) then <br>
ifbuy=true <br>
exit for <br>
end if <br>
next <br>

將新增的商品信息加入Session： <br>
Session(“spid”)=Session(“spid”)＆ Request. <br>
QueryString(“spid”)＆“:” <br>
Session對象的另一個自定義屬性num的處理同spid相同。 <br>
    購物小車的顯示 
　　顯示用戶已經(jīng)購買的商品信息，即是顯示Session變量的內(nèi)容。只要將Session變量的內(nèi)容拆分，存入數(shù)組中，再顯示數(shù)組的內(nèi)容即可。購物小車的顯示界面如圖1所示，其中“數(shù)量”欄的類型為“text",“取消本商品”欄的類型為“checkbox”。這兩欄的數(shù)據(jù)是可以變動的，在“取消本商品”欄中打“√”，再按“重新計算”，將在購物小車中取消該商品。<br>








“重新計算”和“繼續(xù)購買”兩個命令按鈕用JavaScript實現(xiàn)： <br>

＜script language=“JavaScript"＞ <br>
＜!－－ <br>
function onback(theForm) <br>
{window.history.back() } <br>
function recal(theForm) <br>
{theform.action=“modifycart.asp" } <br>
－－＞ <br>
＜/script＞ <br>



實現(xiàn)顯示購物小車的代碼如下： <br>

＜％ <br>
dim k <br>
array1=split(Session(“spid”),“:”) <br>
array2=split(Session(“num”),“:”) <br>
k=0 <br>
do while k＜ubound(array1) ％＞ <br>
＜tr＞ <br>
＜td＞＜p align=“center”＞＜％=array1(k)％＞ <br>
＜/p＞＜/td＞ <br>
＜td＞＜p＞＜input type=“text” name=“t1” size=“10” value=“＜％=array2(k)％＞”＞＜/p＞＜/td＞ <br>
＜td＞＜p＞＜input type=“checkbox” name= <br>
“ifcancel” value=＜％=k％＞ ＞＜/p＞＜/td＞＜/tr＞ <br>
＜％ k=k＋1 <br>
loop ％＞ <br>
＜tr＞ <br>
＜td align=center height=“42” colspan=“2”＞ <br>
＜input type=“submit” name=“submit” value=“重新計算” <br>
onclick=“return recal(this.form)”＞＜/td＞ <br>
＜td align=center height=“42” colspan=“3”＞ <br>
＜input type=“submit” name=“Submit” value=“繼續(xù)購買” <br>
onclick=“return onback(this.form)”＞＜/td＞ <br>
＜/tr＞ <br>

   購物小車的修改 <br>
　　在用戶點擊“重新計算”按鈕后，需要對購物小車的內(nèi)容進行修改，包括對數(shù)量的修改和將被取消的商品從Session中刪除。 <br>
　　對于數(shù)量的修改，只要將文本框中被變動過的數(shù)據(jù)重新存入Session中即可： 
<br>
＜％ <br>
’首先將保存在Session變量中的訂購數(shù)量提取出來 <br>
array=split(Session(“num”),“:”) <br>
’將文本框t1中商品的數(shù)量提取出來，存入array數(shù)組中 <br>
if Request.Form(“t1”)＜＞“”then <br>
Session(“num”)=“” <br>
j=0 <br>
for each item in Request.Form(“t1”) <br>
array(j)=item <br>
j=j＋1 <br>
next <br>
’將提交后的商品數(shù)量放入Session變量中 <br>
for i=0 to ubound(array)－1 <br>
Session(“num”)=Session(“num”)＆array(i)＆“:” 
<br>next <br>
end if ％＞ <br>

　　要從Session中刪除被選中的商品，首先要取得“checkbox”的返回值，它用來定位被取消的商品在Session變量中的位置?！癱heckbox”的返回值k是一個循環(huán)變量，是商品所在行的行數(shù)，其實也就是被選中商品在Session中的位置。如果不加返回值定義的話，“checkbox”的返回值是按自然數(shù)順序排列的。例如，在圖1所示的情況下，如果“電視機”和“書籍”兩行被選中，若是“checkbox”不加返回值定義，它的返回值將分別為1和2，這樣就會導(dǎo)致把“電視機”和“鋼筆”從Session中刪除的錯誤。 <br>

＜％ dim array1,array2,ifcancel(20),m1,m2,i,j <br>
array1=split(Session(“spid”),“:”) <br>
array2=split(Session(“num”),“:”) <br>
m1=ubound(array1)－1 <br>
m2=ubound(array2)－1 <br>
’保存復(fù)選框checkbox的值 <br>
for i=1 to Request.Form (“ifcancel”).Count <br>
ifcancel(i)=Request.Form (“ifcancel”)(i) <br>
next <br>
for i=1 to Request.Form (“ifcancel”).Count <br>
’將checkbox選中的spid和num從Session中去掉 <br>
for j=ifcancel(j) to m1－1 <br>
array1(j)=array1(j＋1) <br>
array2(j)=array2(j＋1) <br>
next <br>
’將總數(shù)減1，并將后面的checkbox的值減1 <br>
m1=m1－1 <br>
for p=i to Request.Form (“ifcancel”).Count <br>
ifcancel(p)=ifcancel(p)－1 <br>
next <br>
’將處理后的spid和num放回Session <br>
Session(“spid”)=“” <br>
Session(“num”)=“” <br>
for j=0 to m1 <br>
Session(“spid”)=Session(“spid”)＆array1(j)＆“:” <br>
Session(“num”)=Session(“num”)＆array2(j)＆“:” <br>
next <br>
next ％＞  <br>

　　本文重點說明購物小車的實現(xiàn)與修改，所以對數(shù)據(jù)進行了簡單化處理。在實際的商業(yè)系統(tǒng)中，對數(shù)據(jù)的處理要復(fù)雜得多，例如需要例外及安全驗證等。 <br>
[[category:ASP]]