<%
Dim i,TotalPrice,TlPrice,TlAry
TlPrice=Request.QueryString("TotalPrice")
TlAry=Split(TlPrice,",")
TotalPrice=0
Response.Write "选择的商品为<br>"
For i=0 To UBound(TlAry)-1
Dim tAry
tAry=Split(TlAry(i),"|")
Response.Write tAry(1)&"<br>"
TotalPrice=TotalPrice+CInt(tAry(0))
Next
Response.Write "您选择的总价格为:"&TotalPrice
%>
order.asp循环里加一个-1即可。