香港免税店便宜还是韩国免税店便宜?

韩国的稍微便宜一些，因为在香港是花港币，在韩国花韩币，同样的东西，如果都没有折扣的话，走汇率是韩币折人民币划算些。而且便宜的幅度还比较大，而且你是哦的这些普拉达这些牌子，在香港很多好的款式，新款这些，基本都上不了架就被VIP订走了，韩国要好一些，毕竟地方大商场多，货也要多些。如果你去香港的话，还是可以比较下，以我的经验，买表是最划算的，因为国内商品手表的税是最高的，第二高的是化妆品。这两个你在香港买比在国内买便宜不少，甚至是一倍

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

高手们，帮帮忙看一下啦！！

Microsoft VBScript 运行时错误 错误 '800a0009'

下标越界: 'i'

Cart_List文件部分代码如下

<%

url=request.servervariables("_referer")

ProdIds = Session("ProdIds")

ProdNums = Session("ProdNums")

call up("购物车状态","购物车状态","购物车状态")

response.write "<tr>"

response.write " <td>"

response.write " <table border=1 width=100% cellpadding=4 style='border-collapse: collapse' bordercolor=#DFDFDF>"

response.write "<tr bgcolor=#f2f2f2><td>商品名称</td><td>市场价</td><td>网站价</td><td>订购数量</td><td>小计</td><td>删除</td></tr>"

response.write "<form action=Cart_List method=post name=form1 onsubmit=return CheckFrom()>"

response.write "<input type=hidden name=cmdShow value=Yes>"

if ProdIds<>"" then

aaa=split(ProdNums,",")

bbb=split(ProdIds,",")

pbuynums=Request("pbuynums")

Quatitys=split(Request("pbuynums"),",")

session("y")=ubound(bbb)+1

for i=0 to ubound(bbb)

set rs=server.createobject("adodb.recordset")

sql="select id,product_info_PriceM,product_info_PriceS,Shop_name from product where id="&bbb(i)

rs.open sql,conn,1,1

if rs.eof or rs.bof then

response.write "<tr><td colspan=6 align=center><a href='javascript:history.go(-1)'><<购物车为空，请返回选购商品</a></td></tr>"

else

set id=rs(0)

set product_info_PriceM=rs(1)

set RMB=rs(2)

set product_info_name=rs(3)

While Not rs.EOF

Quatity = Quatitys(i)

If Quatity <>"" Then

x=Quatity

else

x=aaa(i)

if aaa(i)="" then x=1

end if

sum1=sum1 + csng(rmb) * x

sum=FormatNumber(sum1,2,-1)

session("sum")=sum

response.write "<tr>"

response.write " <td><input type=hidden name=mc value="&id&"><a href=Product_Detail?id="&id&" target=_blank>"&Shop_name&"</a></td>"

response.write " <td>￥"&FormatNumber(product_info_PriceM,2,-1)&"</td>"

response.write " <td><font color=#FF0000>￥"&FormatNumber(Rmb,2,-1)&"</font></td>"

response.write " <td><input name=pbuynums value="&x&" size=5 maxlength=5></td>"

response.write " <td>￥"&FormatNumber((csng(rmb)*x),2,-1)&"</td>"

response.write " <td><a href=Cart_Del?MyAction=Del&id="&id&">删除</a></td>"

response.write "</tr>"

rs.MoveNext

Wend

end if

rs.close

set rs=nothing

next

%>

解析:

有问题的部分：

aaa=split(ProdNums,",")

bbb=split(ProdIds,",")

问题：你能保证 aaa、bbb 通过 Split 函数分割出来的数组下标完全一致？若不一致因该在调用前检查一下，问题就出现在这里。

调试:

Response.Write aaa &"<br>" &bbb

Response.End

这样输出一下 aaa、bbb 值看看是否正确。

修改：

你没给出发生错误的位置，我根据代码推断因该是以下代码发生错误：

x=aaa(i)

if aaa(i)="" then x=1

这段代码改为

If i >UBound(aaa) Then

x = 1

ElseIf aaa(i) = "" Then

x = 1

Else

x = aaa(i)

End If

---