UC知道ASP购物车的问题！求教！
来源：百度知道 编辑：UC知道 时间：2024/05/17 17:37:09
<!--#include file="inc/global.asp"-->
<%
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("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("Produc
看起来你要往数据库里面插数据哦？
那 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错了
<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 f