Question

网页中输出数据库中的图像

我先把数据库中的二进制数据选出来
sql = "select pic from pictures"
objRS.open sql,conn,1,1
之后把它放到一个长度跟它的记录数一样的数组
dim Leng = objRS.Fields.Count
dim Arr()
redim Arr(Leng)
if not objRS.eof then
for(i=0;i<=Leng;i++)
{
Arr(i) = objRS("图片")
objRS.movenext
}
再把它放到Session数组中以便输出
session("pic") = Arr
请帮忙看一下这个代码有什么问题。谢谢
浏览器提示说 语句未结束
display.asp, line 20, column 9
dim Leng = objRS.Fields.Count

Answer 1

兄弟，语言太多记混了吧？vbs的判断要end if 结尾，循环没有这种格式啊！
-------------------------
if not objRS.eof then
for(i=0;i<=Leng;i++)
{
Arr(i) = objRS("图片")
objRS.movenext
}
--------------------改为
if not objRs.eof then
for i=0 to Leng
Arr(i) = objRS("图片")
objRS.movenext
i=i+1
next
end if
-------------------------