shop.asp

来自「非常棒的网上购物系统www.yuhuanrd.gov.cn www.yuhuan」· ASP 代码 · 共 22 行

<%
'将商品编号Prodid放入购物商品列表ProductList
ProductList = Session("ProductList")
Products = Request("Prodid")
Products = replace(products,"'","")
Products = replace(products," ","")

if productlist="" and Products="" then
	response.redirect "../error.asp?error=007"
	response.end
end if

   If Len(ProductList) = 0 Then
      ProductList = "'" & Products & "'"
   ElseIf InStr( ProductList, Products ) <= 0 Then
      ProductList = ProductList & ", '" & Products & "'"
   End If

Session("ProductList") = ProductList
response.redirect "check.asp"
%>