move.asp

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

<%@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
%>