ASP购物车的问题！求教！

<%SubPutToShopBag(Prodid,ProductList)IfLen(Produc... 
<%
Sub PutToShopBag( Prodid, ProductList )
If Len(ProductList) = 0 Then
ProductList =Prodid
ElseIf InStr( ProductList, Prodid ) <= 0 Then
ProductList = ProductList&", "&Prodid &""
End If
End Sub
%>

<html>
<head>
<title>购物车</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Robots" content="index,follow">
</head>
<body background="<% = webimg15 %>" text="#000000" leftmargin="0" topmargin="0">
<%
ProductList = Session("ProductList")
Products = Split(Request("Prodid"), ",")
For I=0 To UBound(Products)
PutToShopBag Products(I), ProductList
Next
Session("ProductList") = ProductList

if request("payment")="去收银台" then
if pay= 0 then
response.redirect "payment.asp?action=1"
elseif pay= 1 then
response.redirect "paymentali.asp?action=1"
elseif pay= 2 then
response.redirect "paymentpal.asp?action=1"
elseif pay= 3 then
response.redirect "paymentxpay.asp?action=1"
elseif pay= 4 then
response.redirect "paymentchina.asp?action=1"
elseif pay= 5 then
response.redirect "paymentipay.asp?action=1"
elseif pay= 6 then
response.redirect "paymentnpay.asp?action=1"
elseif pay=7 then
response.redirect "paymentpay100.asp?action=1"
elseif pay= 8 then
response.redirect "paymentabank.asp?action=1"
elseif pay= 9 then
response.redirect "payment1st.asp?action=1"
elseif pay= 10 then
response.redirect "payment99bill.asp?action=1"
end if

end if

If Request("cmdShow") = "Yes" Then
ProductList = ""
Products = Split(Request("ProdId"), ", ")
For I=0 To UBound(Products)
PutToShopBag Products(I), ProductList
Next
Session("ProductList") = ProductList
End If
If Len(Session("ProductList")) = 0 Then
Response.write "<table height=100% width=100% ><tr><td align=center>您的购物车为空，<a href=index.asp><b>继续购物</b></a> </td></tr></table>"
Response.end
end if
%>
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor=#ffffff >
<tr> 展开

 我来答

3个回答

#合辑# 面试问优缺点怎么回答最加分？

匿名用户
2006-12-13

展开全部

<td><br>  <font color="#FF3333"><b>以下是您购物车中的商品信息，请核对正确无误后下单，非注册用户请牢记你的订单号以便日后查询！<br> </b></font></td>
</tr>
<%
Set rsCheck=Server.CreateObject("ADODB.RecordSet")
strsql="select ID,product_name,Price,item_no from Product where ID in ("&Session("ProductList")&") order by ID"
rsCheck.open strsql,conn,1,1
%>
<tr> <td>

<form action="check.asp" method="POST" name="check">

<table border="0" cellspacing="1" cellpadding="4" align="center" width="100%" bgcolor="#cccccc">
<tr height="25" align="center" bgcolor=#ffffff>
<td width="80" ><FONT color=#000000>选中/清除</font></td>
<td width="287"><FONT color=#000000>商品名称</font></td>
<td width="140"><FONT color=#000000>编号</font></td>
<td width="47"><FONT color=#000000>数量</font></td>
<td width="69"><FONT color=#000000>单价</font></td>
<td width="102"><FONT color=#000000>总计</font></td>
</tr>
<%
Sum = 0
Quatity = 1
Do While Not rsCheck.EOF
Quatity = CInt( Request.Form( "Q_" & rsCheck("ID")) )
If Quatity <= 0 Then
Quatity = CInt( Session(rsCheck("ID")) )
If Quatity <= 0 Then Quatity = 1
End If
Session(rsCheck("ID")) = Quatity

Price = Round(Price,2)
Sum = Sum + price*Quatity
Sum=Round(Sum,2)
%>
<tr bgcolor=#ffffff height="25" align="center" >
<td><input type="CheckBox" name="ProdId" value="<%=rsCheck("ID")%>" Checked></td>

<td align="left"> <a href="product.asp?ID=<%=rsCheck("ID")%>" target="_blank"><FONT color=#000000><%=rsCheck("Name")%></font></a></td>
<td><FONT color=#000000><%=rsCheck("item_on")%></font></td>
<td><FONT color=#000000><input type="Text" name="<%="Q_" & rsCheck("ID")%>" value="<%=Quatity%>" size="2" class="form"></font></td>
<td><FONT color=#000000><%=price%></font></td>
<td><FONT color=#000000><%=Round(price*Quatity,2) %></font></td>
</tr>
<%
rsCheck.MoveNext
Loop
rsCheck.close
set rsCheck=nothing
%>
<tr bgcolor=#ffffff >
<td colspan="4" align="center" valign="middle">
<input type="submit" name="order" value="更新商品">
<input type="submit" name="payment" value="去收银台">
<input type="button" value="继续购物" language=javascript onClick="javascript:window.close()" name="button">
<input type="hidden" name="cmdShow" value="Yes">
</td>
<td colspan="2" height="25"><br>
<FONT color=#000000>总计：</font><font color=#000000><%=Round(Sum,2) %> 元</font><br>
</td>
</tr>
</table>
</form>
</td>
</tr>
<tr><td height="100">  <FONT color=#000000>温馨提示--清除选购商品的方法:去掉商品名称前的选中钩,然后点更新商品即可!</font></td></tr>
</table>
</body>
</html>
------------------------------------------------
错误提示：ADODB.Recordset 错误 '800a0bb9'
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

/china/check.asp，行74
--------------------------------------------
也就是<%
Set rsCheck=Server.CreateObject("ADODB.RecordSet")
strsql="select ID,product_name,Price,item_no from Product where ID in ("&Session("ProductList")&") order by ID"
rsCheck.open strsql,conn,1,1
%>这里。谢谢~！不好意思，没办法贴完整，就建了另外一个号。

已赞过 已踩过<

评论收起

wei1224hf
2006-12-28 · 超过45用户采纳过TA的回答

知道答主

回答量：141

采纳率：0%

帮助的人：0

我也去答题访问个人页

关注

展开全部

看起来你要往数据库里面插数据哦？
那  rsCheck.open strsql,conn,1,1   该改成 3，2啊
这个函数干吗啊？看不懂哦…… 既然是SUB ，怎么没有 call puttoshopbag 啊？
<% 
Sub PutToShopBag( Prodid, ProductList ) 
If Len(ProductList) = 0 Then 
ProductList =Prodid 
ElseIf InStr( ProductList, Prodid ) <= 0 Then 
ProductList = ProductList&", "&Prodid &"" 
End If 
End Sub 
%>

你写了那么多request,总该把先前提交的那个表单贴贴啊……你好象连该页的地址都没有写啊！

“参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突”……

我怀疑可能是="select ID,product_name,Price,item_no from Product where ID in ("&Session("ProductList")&") 

这里的session错了


本回答被提问者采纳






已赞过已踩过<

你对这个回答的评价是？
评论收起

wuming0214
2006-12-13 · TA获得超过417个赞

知道小有建树答主

回答量：524

采纳率：0%

帮助的人：617万

我也去答题访问个人页

关注

展开全部

那里有问题了?
那么长的代码

已赞过 已踩过<

评论收起

更多回答（1）

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

ASP购物车的问题！求教！

为你推荐：