<%
public ProductList
if request("order1")="产品更新" then
Session("ProductList")=""
end if
ProductList = Session("ProductList")
Sub PutToShopBag(Prodid, ProductList)
If Len(ProductList) = 0 Then
ProductList = "'" & Trim(Prodid) & "'"
ElseIf InStr( ProductList, Prodid ) <= 0 Then
ProductList = ProductList&", '"&Trim(Prodid)&"'"
End If
End Sub
%>
<%
pid =Trim(Request("_id"))
if instr(pid,",")>0 then
idArr=Split(pid, ",")
for i = 0 to ubound(idArr)
PutToShopBag idArr(I), ProductList
next
else
PutToShopBag pid, ProductList
end if
%>

<%
Session("ProductList") = ProductList

'判断购物车是否为空
if Productlist<>"''" then
sql="select * from product where pid in ("&ProductList&") order by pid"
Set rs_price = conn.Execute(sql)
else
response.write "询价车中没有东东"
response.end
end if


Microsoft JET Database Engine (0x80040E07)
标准表达式中数据类型不匹配。
/cn/Payment.asp, 第 39 行
Set rs_price = conn.Execute(sql)



购物车的程序,pid是自动编号长整型.怎么样才能让他们数据类型匹配

是哪一行啊,做上标记啊

sql="select * from product where pid in ("&ProductList&") order by pid"
Set rs_price = conn.Execute(sql)
把它改成 set rs_price=server.CreateObject("adodb.recordset")
rs.open "select * from product where pid in ('"&ProductList&"') order by pid",myconn,1,1

或者:
sql="select * from product where pid in ('"&ProductList&"') order by pid"
Set rs_price = conn.Execute(sql)

试试!