ASP入门基础教程-实例 网上图书管理系统

核心提示： 1、通过Request对象读取HTTP查询字符串中clickBookID参数的值（即您要移去图书的ID）赋给变量cclickBookID;2、将数组中的每一项（即您所选的所全图书ID）与您要移去的图书ID（即clickBookID参数值）一一进行比较，如果不等，ASP入门基础教程-实例 网

1、通过Request对象读取HTTP查询字符串中clickBookID参数的值（即您要移去图书的ID）赋给变量cclickBookID;

2、将数组中的每一项（即您所选的所全图书ID）与您要移去的图书ID（即clickBookID参数值）一一进行比较，如果不等，则将数组中的此项元素赋给变量BookIDList;

3、如果BookIDList为空了，即全删除了，则跳转到“buycar_empty.asp”页面，否则，跳转到“buycar_see.asp”页面。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
ArrcheckBook= Split(Session("CheckBook"),", ") '将所选图书以数组的形式显示出来。
BookIDList="" '清空BookIDList变量。
For I=0 To UBound(ArrcheckBook)'显示数组的最大维数
cclickBookID="'"&request("clickBookID")&"'"
'通过Request对象读取HTTP查询字符串中clickBookID参数的值（即您要移去图书的ID）赋给变量'cclickBookID。
If ArrcheckBook(i)<>cclickBookID Then
'将数组中的每一项（即您所选的r所全图书ID）与您要移去的图书ID一一进行比较，如果不等，则将数组中的'此项元素赋给变量BookIDList.
If Len(BookIDList) = 0 Then
'如果第一次进行比较，BookIDList为空，所以就将ArrcheckBook(i)的值赋给变量BookIDList.
BookIDList =ArrcheckBook(i)
Else
'如果不是第一次进行比较，则将ArrcheckBook(i)的值赋给变量BookIDList原有值的尾部，并用逗号分隔开来.
BookIDList = BookIDList & ", " & ArrcheckBook(i)
End If
end if
Next
'如果BookIDList为空了，即全删除了，则跳转到“buycar_empty.asp”页面。
If len(BookIDList)=0 Then
session("BookIDList")= BookIDList
Response.Redirect("buycar_empty.asp")
Else
'否则，跳转到“buycar_see.asp”页面。
session("BookIDList")= BookIDList
Response.Redirect "buycar_see.asp"
end if
%>

Clear.asp 清空购物车。 本页面是清空购物车，它的主要功能有：