| 发表于:2007-01-04 12:52:42 楼主 |
搞不明白什么地方不不匹配了 microsoft vbscript 运行时错误 (0x800a000d) 类型不匹配: 'ubound ' /wssd/shopcart.asp, 第 8 行 <script language= "javascript "> </script> <% scartitemnums=session( "cartitemnumarray ") ncartitemqtys=session( "cartitemqtyarray ") nnumcartitems=ubound(scartitemnums) smode=request.querystring( "mode ") select case request.form( "cmdsubmit ") case "结帐 " smode= "checkout " case "改变数量 " smode= "recalc " case "继续购物 " smode= "continue " end select if smode= "add " then nthisitemindex=0 sitemno=ucase(request.querystring( "itemno ")) if nnumcartitems> 0 then for i=1 to nnumcartitems if ucase(scartitemnums(i))=sitemno then nthisitemindex=i exit for end if next end if if nthisitemindex=0 then nthisitemindex=nnumcartitems+1 redim preserve scartitemnums(nthisitemindex) redim preserve ncartitemqtys(nthisitemindex) scartitemnums(nthisitemindex)=sitemno ncartitemqtys(nthisitemindex)=1 else ncartitemqtys(nthisitemindex)=ncartitemqtys(nthisitemindex)+1 end if session( "cartitemnumarray ")=scartitemnums session( "cartitemqtyarray ")=ncartitemqtys nnumcartitems=ubound(scartitemnums) end if if smode= "recalc " or smode= "checkout " or smode= "continue " then for i=1 to nnumcartitems nthisqty=int(request.form( "txtitemqty "&i)) ncartitemqtys(i)=nthisqty next session( "cartitemnumarray ")=scartitemnums session( "cartitemqtyarray ")=ncartitemqtys |
|
|
|
|