在线订单系统
源代码在线查看： add.asp
| 软件大小： |
483 K |
| 上传用户： |
jun604001464 |
|
|
| 关键词： |
|
| 下载地址： |
免注册下载 普通下载
|
|
Sub PutToShopBag( add, ProductList )
If Len(ProductList) = 0 Then
ProductList = "'" & add & "'"
ElseIf InStr( ProductList, add ) ProductList = ProductList & ", '" & add & "'"
End If
End Sub
%>
ProductList = Session("ProductList")
Products = Split(Request("add"), ", ")
For I=0 To UBound(Products)
PutToShopBag Products(I), ProductList
Next
response.write productlist
Session("ProductList") = ProductList
response.redirect"check.asp"
%>
