Question

asp 用for循环给数组赋值结束后，值能显示改数组的头一个值，其他值不见了。求大神解答，在线等。

<%
set rs=Server.CreateObject("ADODB.RecordSet")
xx=request.querystring("select")'多选1
yy=request.querystring("select2")'多选2
session("te2")=request.querystring("text2")'灵石
session("te9")=request.querystring("text9")'寒霜
session("te4")=request.querystring("text4")'毒针
session("te11")=request.querystring("text11")'白青进化石
session("te12")=request.querystring("text12")'南天国石板
session("te13")=request.querystring("text13")'南天银币

'---------判断是否选择错误，如错误返回变量cw1提示选择错误----------
x1=xx+1
y1=yy+1
if x1 >= y1 then
session("cw")="1"
response.Redirect("../fywj.asp")
end if
'---------段数循环开始----------
z=yy-xx
dim jb(50)
session("zj")=0
for i=1 to z Step 1 '默认步长为1可以不写
a=xx+i
sz=0
sz=sz+1
sql = "select * from bqwq where ds=" & a
rs.open sql,conn,1,1
'每一段的材料单段价格
jb(sz)=session("te9")*rs("hs")+session("te2")*rs("ls")+session("te4")*rs("dz")+session("te11")*rs("jhs")+session("te12")*rs("sb")+session("te13")*rs("yb")+rs("sxf")
'每一段的材料价格相加等于总价
session("zj")=session("zj")+jb(sz)
'快速显示结果计算,初始值20开始
ksxs=19
ksxs=ksxs+1
xs(ksxs)=rs("wqq") & "到" & rs("jh") & jb(sz) &"金<br>"
'段数显示,初始值20开始
ksds=19
ksds=ksds+1
ds(ksds)=rs("wqq") &"到" & rs("jh")
'材料单段显示,初始值16开始
ks=15
ks=ks+1
'寒霜
hs(ks)=rs("hs")
'灵石
ls(ks)=rs("ls")
'毒针
dz(ks)=rs("dz")
'进化石
jhs(ks)=rs("jhs")
'石板
sb(ks)=rs("sb")
'银币
yb(ks)=rs("yb")
'手续费
sxf(ks)=rs("sxf")
rs.close
Next
for z=1 to 50 Step 1
Response.Write sxf(z)
Next

%>
代码路上 输出结果只有 sxf(16)的数据lianjie.ini是数据库连接的 不用理会

Answer 1

rs.close
Next

z是多大的？？还有这里，不能直接把rs对象先关闭了，这样如果不是吧rs在for循环重新打开，那么记录就只能修改一次，所以你必须对调俩个语句重新执行下

Next
rs.close
这样才对~~~