关于购物系统的 shoppingC.asp出问题了 A B D E 都可以
出错为
错 误 码:0x800A03ED
错误代码:for I=0 to UBound(Items)
错误描述:缺少 '( '
C出错部分代码如下
<%
Response.buffer=true
Basket= " "
Items=Split(Request( "ItemID "), ", ")
for I=0 to UBound(Items)
if len(Basket)=0 then
Basket= " ' "&Items(I)& " ' "
else if InStr( Basket,Items(I) ) <= 0 then
Basket = Basket& ", ' "&Items(I) & " ' "
end if
next
------解决方案--------------------
else if写错了,应该是elseif,else与 if之间不能有空格
------解决方案--------------------
<%
Response.buffer=true
Basket= " "
Items=Split(Request( "ItemID "), ", ")
'上一页应该传入参数ItemID,如:http://*******/index.asp?ItemID=1,2,3,4,5
for I=0 to UBound(Items)
if len(Basket)=0 then
Basket= " ' "&Items(I)& " ' "
elseif InStr( Basket,Items(I) ) <= 0 then
'将else if改为elseif
Basket = Basket& ", ' "&Items(I) & " ' "
end if
next
%>