buycar_add.asp

来自「《网上图书订购系统》 1.后台数据库：SQL Server 2000 2.在」· ASP 代码 · 共 15 行

<%@ language="VBScript"%>
<% BookIDList = Session("BookIDList")'session(BookIDList)第一次运行为空
ABookID = Split(Request("bookID"), ", ")'ABookID数组存入的是图书的id'

For I=0 To UBound(ABookID)'显示数组的最大维数
   If Len(BookIDList) = 0 Then
      BookIDList = "'" & request("bookID") & "'"
   ElseIf InStr( BookIDList, request("bookID")) <= 0 Then
      BookIDList = BookIDList & ", '" & request("bookID") & "'"
   End If
Next
Session("BookIDList") = BookIDList
Response.Redirect "buycar_see.asp" '转到查看购物车页面
%>