<table width="760" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td align="center" valign="middle" bgcolor="#E9ECB5">
<TABLE cellSpacing=0 cellPadding=0 width="98%" border="0" style="border-collapse: collapse">
<TR>
<TD valign="top">
</td></tr><tr>
<td align="center">
<TABLE cellSpacing=0 cellPadding=0 width="98%" border="0" style="border-collapse: collapse">
<TR>
<TD>
<%
size=Request("size")
colour=Request("colour")
Sub PutToShopBag( productID,quantity, productList ,quantityList)
If Len(productList) = 0 Then
productList = "" & productID & ""
quantityList="" & quantity & ""
ElseIf InStr( productList&",", productID&"," ) <= 0 Then
productList = productID & ""& ", " &productList
quantityList = quantity & ", " &quantityList
End If
session("productList")=productList
session("quantityList")=quantityList
End Sub
productList = session("productList")
quantityList = session("quantityList")
if Request("productID")<>"" then
PutToShopBag Request("productID"), "1",productList,quantityList
end if
session("productList")=productList
session("quantityList")=quantityList
Head="YOU SHOPCART LIST"
If Request("clear") = "yes" Then
productList = ""
quantityList = ""
session("productList") = productList
session("quantityList") = quantityList
End If
If Request("MySelf") = "Yes" Then
productList = ""
quantityList = ""
products = Split(Request("productID"), ", ")
For I=0 To UBound(products)
j=UBound(products)-i
tempQuantity=Request("quantity"&products(j))
if tempQuantity="" then tempQuantity=1
' j=i
PutToShopBag products(j), tempQuantity,productList,quantityList
Next
session("productList") = productList
session("quantityList") = quantityList
End If
'If Len(productList) = 0 Then
' Response.Redirect "Nothing.asp"
' response.end
'end if
%>
<script language="Javascript">
//函数名：fucCheckNUM
//功能介绍：检查是否为数字
//参数说明：要检查的数字
//返回值：1为是数字，0为不是数字
function fucCheckNUM(NUM)
{
var i,j,strTemp;
strTemp="0123456789";
if ( NUM.length== 0)
return 0
for (i=0;i<NUM.length;i++)
{
j=strTemp.indexOf(NUM.charAt(i));
if (j==-1)
{
//说明有字符不是数字
return 0;
}
}
//说明是数字
return 1;
}
function clean(){
if (confirm("DEL?")==1){
window.location.href="shopCart.asp?clear=yes"}
}
function checknum(theform)
{
//newprice="Q_"&rs("product_Id")
if ((fucCheckNUM(theform.value)==0) )
{
theform.value="";
//theform.newprice.focus();
return false;
}
}
function checkNumNull(theform) {
if (theform.value=="") {
alert("Config Quantity");
//theform.newprice.focus();
theform.focus();
return false;
}
}
//-->
</SCRIPT>
<table width="100%" border="0" cellspacing="0">
<form name="form1" Action="shopCart.asp" Method="POST" >
<tr>
<td width="80%" valign="top" align="center">
<p align="center"><br><br> <font color="#FF0000" class=main1><%=Head%></font></p>
<input type="hidden" name="MySelf" value="Yes">
<table border="1" cellpadding="0" cellspacing="0" width="95%" bordercolor="#7B8239" style="border-collapse: collapse" align="center">
<tr bgcolor="#D7DBAC">
<td width="34" height="22" align="center">Buy</td>
<td width="29" height="22" align="center">Code</td>
<td width="40" height="22" align="center">Photo</td>
<td align="center">Name</td>
<td width="76" height="22" align="center">Price</td>
<td width="77" height="22" align="center">Quantity</td>
<td width="73" height="22" align="center">Total</td>
</tr>
<%
Sum = 0
' response.write session("quantityList")&"quantityList<br>"
' response.write session("productList")&"productList<br>"
If Len(productList) <>0 Then
' response.End
quantityArray = Split(session("quantityList"), ", ")
productArray = Split(session("productList"), ", ")
for i=0 to UBound(productArray)
set rs=server.createobject("adodb.recordset")
sql = "Select * From product where id="&productArray(i)
rs.open sql,conn,1,1
if Not rs.EOF or err then
quantity = quantityArray(i)
' quantity = cstr(quantityArray(i))
' response.write quantity&"quantity"
' response.End
If quantity <= 0 Then quantity = 1
Sum = Sum + rs("memberPrice") * quantity
%>
<tr>
<td Align="center" width="34">
<input Type="CheckBox" Name="productID" Value="<%=rs("id")%>" Checked>
</td>
<td align="center" width="29"><%=rs("id")%> </td>
<td align="center" width="40"> <a href="productShow.asp?id=<%=rs("id")%>" title="check it to see more info">
<%if rs("smallImg")="nothing" then %>
<img src=images/noSmallImg.gif border=0 height=60><%else%><img src=smallImg/<%=rs("smallImg")%> border=0 height=60><%end if%></a></td>
<td align="center"><%=rs("name")%><br>
size:<%=size%> <br>
colour:<%=colour%></td>
<td align="center" width="76"><%=rs("memberPrice")%> </td>
<td align="center" width="77">
<input Name="quantity<%=rs("id")%>" Value="<%=quantity%>" Size="4" onKeyUp="checknum(quantity<%=rs("id")%>)">
</td>
<td Align="center" width="73">$<%=rs("memberPrice")*quantity%>
</td>
</tr>
<%
end if
next
rs.close
conn.close
canPay=""
else
canPay="disabled"
end if
%>
<tr bgcolor="#D6DBAD">
<td Align="Right" ColSpan="7" height="24">Shipping Charge<font Color="Red">Total: $<%=Sum%> <%=Sum+10%><font color="#ABABAB"></font>
</font></td>
</tr>
</table>
<blockquote>
<p align="center">
<input Type="submit" Value="Upgrade" name="B1" style="border:1px solid #7D85A2; font-size: 9pt; background-color:#CCCCCC" <%=canPay%>>
<input type="button" value="shopping" name="B2" style="border:1px solid #7D85A2; font-size: 9pt; background-color:#CCCCCC" onclick="window.location='<%=session("oldUrl")%>';">
<input type="button" value="cancel" name="B3" style="border:1px solid #7D85A2; font-size: 9pt; background-color:#CCCCCC" OnClick="clean()" <%=canPay%>>
<input type="button" value="Settlement" name="B4" style="border:1px solid #7D85A2; font-size: 9pt; background-color:#CCCCCC" onclick="window.location.href='PayMent.asp';" <%=canPay%>>
</blockquote>
<font color="#FF0000">Settle account and change the quantity of the goods and reduce the type of merchandize be ues"Upgrade"</font>
<br>
</td>
</tr> </form>
</table>
</TD>
</TR>
</TABLE>
<table width="700" border="0" cellspacing="0" cellpadding="0" align="center" height="30">
<tr align="center" valign="middle">
<td align="center"> <a href="Javascript:window.history.go(-1)">Back</a>
</td>
</tr>
</table>
<table align=center border=0 cellpadding=0 cellspacing=0 width="92%" height="30">
<tr>
<td></td>
</tr>
</table>
</td></tr><tr><td>
</TD>
</TR>
</TABLE>
</td>
</tr>
</table>
[此贴子已经被作者于2004-12-26 15:31:59编辑过]
