asp数据库循环输出
dimrs,sql,NavNamesetrs=server.createobject("adodb.recordset")sql="select*fromNavigati...
dim rs,sql,NavName
set rs = server.createobject("adodb.recordset")
sql="select * from Navigation where ViewFlag order by Sequence asc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "暂无导航"
else
do while not rs.eof
NavName = rs("NavName")
rs.movenext
loop
end if
rs.close
set rs=nothing
if IsArray(NavName) then
response.write "是数组"
else
response.write "不是数组"
end if
怎么把NavName 定义成数组函数
在就是 怎么把NavName
拿出来循环输出 不在do while里 展开
set rs = server.createobject("adodb.recordset")
sql="select * from Navigation where ViewFlag order by Sequence asc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "暂无导航"
else
do while not rs.eof
NavName = rs("NavName")
rs.movenext
loop
end if
rs.close
set rs=nothing
if IsArray(NavName) then
response.write "是数组"
else
response.write "不是数组"
end if
怎么把NavName 定义成数组函数
在就是 怎么把NavName
拿出来循环输出 不在do while里 展开
2013-09-13
展开全部
'呵,何必这么复杂,如果要输出与数组相关的话,不要忘了asp里有个很好用的rs.GetRows()了,给你段最简单的代码吧,如下:dim rs,arr,iset rs=conn.execute("select * from Navigation where ViewFlag order by Sequence asc")if not rs.eof then arr=rs.GetRows() '这里把符合条件的所有记录都保存到了arr中,这里赋值后的arr就等于是一个二维数组了end if
rs.closeset rs=nothing'上面代码就完成了从数据库读取数据到数组变量了,接下来只要输出数据,你只需要判断arr是否数组if isarray(arr) then for i=0 to ubound(arr,2) '上面有仁兄说过数组长度由ubound下标决定没错,所以你只要确定第二维的下标就知道数组长度ubound(arr,2),当然第一维就是ubound(arr,1)或者ubound(arr)就行了 response.write arr(0,i) '这里就是输出数组item了 response.write "<br>" '每输出一个数据就换一行,当然你也可以改成别的 nextelse response.write "暂无导航"end if '搞定
rs.closeset rs=nothing'上面代码就完成了从数据库读取数据到数组变量了,接下来只要输出数据,你只需要判断arr是否数组if isarray(arr) then for i=0 to ubound(arr,2) '上面有仁兄说过数组长度由ubound下标决定没错,所以你只要确定第二维的下标就知道数组长度ubound(arr,2),当然第一维就是ubound(arr,1)或者ubound(arr)就行了 response.write arr(0,i) '这里就是输出数组item了 response.write "<br>" '每输出一个数据就换一行,当然你也可以改成别的 nextelse response.write "暂无导航"end if '搞定
2013-09-13
展开全部
rs("NavName") 本身就是数组 , 如果为了输出的话, 没必要再放置到另外数组中, 一般的循环使用for=====......
if rs.bof and rs.eof then
response.write "暂无导航"
else
for i=0 to rs.recordcountrespone.write rs("NavName") rs.movenextnext
if rs.bof and rs.eof then
response.write "暂无导航"
else
for i=0 to rs.recordcountrespone.write rs("NavName") rs.movenextnext
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐于2018-04-11
展开全部
dim rs,sql,NavName(1000),kk=0
set rs = server.createobject("adodb.recordset")
sql="select * from Navigation where ViewFlag order by Sequence asc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "暂无导航"
else
do while not rs.eof
NavName(k) = rs("NavName")k=k+1
rs.movenext
loop
end if
rs.close
set rs=nothing
if IsArray(NavName) then
response.write "是数组"for i=0 to ubound(NavName)response.write NavName(i)next
else
response.write "不是数组"
end if
set rs = server.createobject("adodb.recordset")
sql="select * from Navigation where ViewFlag order by Sequence asc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "暂无导航"
else
do while not rs.eof
NavName(k) = rs("NavName")k=k+1
rs.movenext
loop
end if
rs.close
set rs=nothing
if IsArray(NavName) then
response.write "是数组"for i=0 to ubound(NavName)response.write NavName(i)next
else
response.write "不是数组"
end if
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-09-13
展开全部
想要循环输出? 是循环输出数组里面的?如果是 用if语句就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询