<%
'如果购买车为空，转入错误界面
ProductList = Session("ProductList")
'Sub PutToShopBag( mc, ProductList )
' If Len(ProductList) = 0 Then
'ProductList =mc
'ElseIf InStr( ProductList, mc ) <= 0 Then
'ProductList = ProductList & ","& mc
'End If
'End Sub
response.write ""
response.write " 您最近浏览的商品 |
"
'数据库操作
if productlist<>"" then
sql="select * from tproduct where id in ("&productlist&") "
Set rs = conn.Execute( sql )
While Not rs.EOF
response.write " | "
response.write "
"
rs.MoveNext
Wend
response.write ""
response.write "| "
response.write " | "
response.write "
"
'response.write " |
"
response.write "
"
else
response.write "暂无 | "
'response.write " |
"
response.write ""
end if
%>