ASP紧急问题!要显示一系列变量的值.

来源:百度知道 编辑:UC知道 时间:2024/06/05 06:35:29
<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from pic"
rs.open sqlstr,conn,1,3

rstotalcount=rs.recordcount
response_flash="rstotalcount="+rstotalcount
Dim rscount
rscount=0
String picname(rstotalcount) //不知道这里如此定义是否可以

do while not rs.eof
picname(rscount)=rs("picname")
picbak(rscount)=rs("picbak")
picpath(rscount)=rs("picpath")
rscount=rscount+1
response_flash=response_flash+"&picname("+rscount+")="+picname(rscount)
//这里想把picname数组列出来在一行中显示
rs.movenext
loop

response.Write (response_flash)
response.Write("传输完毕")

'response.end
rs.close
Closeconn()
%>
可是输出结果只有"传输完毕"几个字,其他的都没有,也不提示错误,高人帮忙解决此问题!有劳了!
感谢,Itanky!
问题并没有解决,采用了redim,而且试着定义了

在你的改动上又改了一下,看可不可以
字符串直接用dim定义就可以了吧

Dim i
dim picname(rstotalcount)
dim response_flash=""
for i=0 to rstotalcount-1
picname(i)=rs("picname")
picbak(i)=rs("picbak")
picpath(i)=rs("picpath")

response_flash=response_flash & "&picname(" & i & ")=" & picname(i)
response_flash=response_flash & "&picbak(" & i & ")=" & picbak(i)
response_flash=response_flash & "&picpath(" & i & ")=" & picpath(i)
rs.movenext
next
response.Write (response_flash)

String picname(rstotalcount) //不知道这里如此定义是否可以
你是想定义动态数组吧,可以使用Redim语句:
语法
ReDim [Preserve] varname(subscripts) [, varname(subscripts)] . . .
ReDim 语句语法有以下部分:

部分 描述
Preserve 当更改现有数组最后一维的大小时保留数据。
varname 变量名,遵循标准变量命名约定。
subscripts 数组变量的维数,最多可以声明 60 维数组。subscripts 参数语法格式如下:
upper [,upper] . . .