move.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
ArrcheckBook= Split(Session("CheckBook"),", ")
BookIDList=""
For I=0 To UBound(ArrcheckBook)'显示数组的最大维数
cclickBookID="'"&request("clickBookID")&"'"
If ArrcheckBook(i)<>cclickBookID  Then
   If Len(BookIDList) = 0 Then
      BookIDList =ArrcheckBook(i)
   Else
      BookIDList = BookIDList & ", " & ArrcheckBook(i)
   End If
end if
Next
If len(BookIDList)=0 Then
	session("BookIDList")= BookIDList
	Response.Redirect("buycar_empty.asp")
Else
	session("BookIDList")= BookIDList
	Response.Redirect "buycar_see.asp"    
end if
%>