购物车传值问题

knwin 2008-03-20 10:19:57

price=request.form("price")'上页传值过来。这个值在上页是供用户选择的
ProductList = Session("ProductList")
Products = Split(Request("small_photo"), ", ")
For I=0 To UBound(Products)
PutToShopBag Products(I), ProductList
Next
Session("ProductList") = ProductList


ProductList = Session("ProductList")
If Len(ProductList) = 0 Then Response.Redirect "Nothing.asp"
If Request("MySelf") = "Yes" Then
ProductList = ""
Products = Split(Request("small_photo"), ", ")
For I=0 To UBound(Products)
PutToShopBag Products(I), ProductList
Next
Session("ProductList") = ProductList
End If
sql = "Select * From pro"
sql = sql & " Where pro_small_pic In (" & ProductList & ")"
sql = sql & " Order By typeid"
Set myrs = conn.Execute( sql )


'*********************以下显示代码**********************************

<TABLE class=productListing cellSpacing=0 cellPadding=2 width="100%" border=0 >
<TR bgcolor="#FFFFFF">
<TD width="71" class=productListing-heading><div align="center">Remove</div></TD>
<TD width="72" bgcolor="#FFFFFF" class=productListing-heading>images</TD>
<TD width="197" class=productListing-heading><div align="center">name</div></TD>
<TD class=productListing-heading><div align="center">Price</div></TD>
<TD width="74" class=productListing-heading><div align="center">Quantity</div></TD>
<TD width="52" class=productListing-heading><div align="center">Total</div></TD>
</TR>
<%


While Not myrs.EOF
Quatity = CInt( Request( "Q_" & myrs("pro_small_pic")) )
If Quatity <= 0 Then
Quatity = CInt( Session(myrs("pro_small_pic")) )
If Quatity <= 0 Then Quatity = 1
End If
Session(myrs("pro_small_pic")) = Quatity
Sum = Sum + CDbl(myrs("price_common")) * Quatity
%>
<TR bgcolor="#FFFFFF">
<TD Align=Center class=productListing-data><input type=CheckBox name="small_photo" value="<%=myrs("pro_small_pic")%>" checked /></TD>
<TD class=productListing-data><a href="<%=myrs("file")%>/<%=myrs("sfile")%>/<%=myrs("seofile")%>.html"><img src="<%=myrs("pro_small_pic")%>" width="50" height="50" border="0" ></a></TD>
<TD class=productListing-data><div align="center"><%=myrs("proname")%></div></TD>
<TD width="60" class=productListing-data vAlign=top><div align="center"> <%=myrs("price_common")%> '''需要上页传递过来的值。如果用上面的PRice.当把此页面刷新后值就没有了
</div></TD>
<TD class=productListing-data><div align="center">
<Input Type=Text Name="<%="Q_" & myrs("pro_small_pic")%>" Value=<%=Quatity%> Size=2>
</div></TD>
<TD class=productListing-data>
<%=CDbl(myrs("price_common"))*Quatity%>
</TD>
</TR>
<%
myrs.MoveNext
Wend
%>
</TABLE>



问题:如何传递上页供选择产品的值。页不是读取数据库有的值
...全文
78 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
wpjwll 2008-03-20
  • 打赏
  • 举报
回复
up

28,391

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧