![[Microsoft][ODBC SQL Server Driver][SQL Server]第 1 行: '=' 附近有语法错误,第1张](/aiimages/%5BMicrosoft%5D%5BODBC+SQL+Server+Driver%5D%5BSQL+Server%5D%E7%AC%AC+1+%E8%A1%8C%3A+%26%23039%3B%3D%26%23039%3B+%E9%99%84%E8%BF%91%E6%9C%89%E8%AF%AD%E6%B3%95%E9%94%99%E8%AF%AF.png "[Microsoft][ODBC SQL Server Driver][SQL Server]第 1 行: '=' 附近有语法错误,第1张")
odbc_clongshanion4.asp帖出来吧！
------------------------------------------------
在
db.Execute(SQL)
前面加上
response.write
SQL
response.end
看看
SQL语句
有没有问题
------------------------------------------------
如果是这样
，那么肯定是
odbc_clongshanion4.asp
中的问题了，有可能在打开数据库时候出的错误！
要是不麻烦，就帖出来，或者发到我的油箱：
leewycyp@yahoo.com.cn
echo '<html><p><a href="\downloads\DotA Allstars v6.60cn.w3x">DotA Allstars v6.60cn</a></p></html>'改成单引号，里面的双引号没有转义
分类: 电脑/网络 >>程序设计 >>其他编程语言问题描述:
高手们，帮帮忙看一下啦！！
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
欢迎分享，转载请注明来源：优选云
微信扫一扫
支付宝扫一扫
