move.asp

来自「图书管理系统的所有程序」· 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
%>