buycar_add.asp

《网上图书管理系统》 开发及测试环境 操作系统：Windows 2000 Server 后台数据库：Access 2000 Web服务器：IIS 5.0 系统在该环境下测试通过运行。

<%@ 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" '转到查看购物车页面
%>