求助一个ASP网页问题

来源：百度知道 编辑：UC知道 时间：2024/05/04 19:22:32
有一个类似购物车的程序的网页,其中33.ASP是用来作ID传递参数到addlink1.asp的,在addlink1.asp中有一个判断代码如下:
<%
IF order6("mmorder") = 0 Then
order6("mmorder") = 1
order6.update
order6.close
Else
response.write ("<script>alert('该记录已被更新！')</script>")
End if
%>和一个添加购物车的功能如下:
<%
'**Add to cart from Link on previous page**
'**Charon Cart**
'
objCart.AutoIncrement="true"
objCart.AddCartItem "ProductID",order6("id")
objCart.AddCartItem "Quantity",("1")
objCart.AddCartItem "Name",order6("name")
objCart.AddCartItem "category",order6("category")
objCart.AddCartItem "unitname",order6("unitname")
objCart.AddCartItem "address",order6("address")
objCart.AddCartItem "call",order6("call")
objCart.AddCart

接上的提问(33.ASP)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/yyy.asp" -->
<%
Dim order
Dim order_numRows

Set order = Server.CreateObject("ADODB.Recordset")
order.ActiveConnection = MM_yyy_STRING
order.Source = "SELECT * FROM dbo.orderline"
order.CursorType = 0
order.CursorLocation = 2
order.LockType = 1
order.Open()

order_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
order_numRows = order_numRows + Repeat1__numRows
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Di