updatebook.asp

asp开发 asp开发 asp开发 asp开发

<!-- #include file="function1.asp" -->
<%
'本文件根据在数组中的数序一一修改
Dim Books,BooksNum,numTemp,I,num
Books=Session("Books")
BooksNum=Session("BooksNum")
numTemp=Ubound(BooksNum)                '获得数组的长度
For I = 0 To numTemp
	num=CInt(Request.Form("num"& I))    '请注意购物车中的文本框名称
	Call UpdateBook(Books(I),num)
Next
'重定向到购物车页面，也可以用Redirect
Server.Transfer "shoppingcart.asp"
%>