?? shopcart.asp
字號:
<!-- #include file = "include/conndb.asp"-->
<!-- #include file = "include/config.asp"-->
<!-- #include file = "include/memberbase.asp"-->
<!-- #include file = "include/productbase.asp"-->
<!-- #include file = "include/cartbase.asp"-->
<HTML><HEAD>
<!-- #include file = "include/head.asp"-->
</HEAD>
<BODY>
<TABLE align = center cellSpacing = 0 cellPadding = 0 width = "750" border = 0 ID = "tabMain" class = tabframe>
<TBODY>
<TR>
<TD >
<% ShowHeadAndMenu() %>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE align = center cellSpacing = 0 cellPadding = 0 width = "750" border = 0 height = "411" ID = "Table3" class = tabframe>
<TBODY><TR>
<TD vAlign = top align = middle width = 180 height = "50">
<table width = 95% ID = "Table1"><tr><td>
<!-- #include file = "include/left.asp"-->
</td></tr></table>
</TD>
<TD vAlign = top align = right height = "411">
<TABLE cellSpacing = 0 borderColorDark = rgb(210,232,255)
cellPadding = 0 width = "100%" bgColor = #666666
borderColorLight = #aaaaaa border = 1 ID = "Table2">
<TBODY><TR>
<TD>
<TABLE cellSpacing = 0 cellPadding = 0 width = "100%" bgColor = #ffffff border = "0" style = "border-collapse: collapse" bordercolor = "#111111" ID = "Table5">
<TBODY>
<TR>
<TD >
<%
dim reqProductID, reqClear,reqModify
dim products, tempQuantity
dim i, j
dim Head
reqProductID = Request.QueryString("productID")
if Not IsNumeric(reqProductID) then
reqProductID = "0"
ResPonse.Write "There's no books here,please try again......"
Response.End
end if
reqClear = Request.QueryString("clear")
reqModify = Request.Form("Modify")
if reqProductID <> "0" then
PutToCart reqProductID, "1"
end if
Head = "The following is your shoppinglist"
If reqClear = "yes" Then
Session("productList") = ""
Session("quantityList") = ""
End If
If reqModify = "Yes" Then
Session("productList") = ""
Session("quantityList") = ""
products = Split(Request.Form("productID"), ", ")
For I = 0 To UBound(products)
j = UBound(products)-i
tempQuantity = Request.Form("quantity"&products(j))
if tempQuantity = "" then tempQuantity = 1
PutToCart products(j), tempQuantity
Next
End If
'Response.Write Session("productList")
'Response.Write "<br><br>"
'Response.Write Session("quantityList")
'Response.Write "<br><br>"
call ShowCart()
%>
</TD>
</TR></TBODY></table>
</TD>
</TR></TBODY></TABLE>
</TD>
</TR></TBODY></TABLE>
<!-- #include file = "include/foot.asp"-->
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -