您的位置：程序门 -> web 开发 -> asp

功能无法读出，请教各位高人！

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

功能无法读出，请教各位高人！

发表于：2007-01-08 09:53:08 楼主

<%
set rs=server.createobject（ "adodb.recordset ")
sql= "select top 5 * from smt_cp where smt_key3 = 1 order by smt_date desc "
rs.open sql,conn,1,1

imgurl=rs（ "smt_pic ")
imgtext=rs（ "smt_cpname ")
imglink=rs（ "smt_id ")

dim n
for n = 1 to 5

imgurl（n)=trim（imgurl（n))
imgtext（n)=trim（imgtext（n))
imglink（n)=trim（imglink（n))

response.write imgurl（n)
next
rs.close
%>
response.write 无法读出！

发表于：2007-01-08 10:04:311楼得分:0

<%
set rs=server.createobject（ "adodb.recordset ")
sql= "select top 5 * from smt_cp where smt_key3 = 1 order by smt_date desc "
rs.open sql,conn,1,1

n = 0
do while not rs.eof

imgurl（n)=trim（rs（ "smt_pic "))
imgtext（n)=trim（rs（ "smt_cpname "))
imglink（n)=trim（rs（ "smt_id "))

response.write imgurl（n)

n = n + 1
rs.movenext
loop
rs.close
%>

发表于：2007-01-08 10:08:152楼得分:0

set rs=server.createobject（ "adodb.recordset ")
sql= "select top 5 * from smt_cp where smt_key3 = 1 order by smt_date desc "
rs.open sql,conn,1,1
do while not rs.eof
imgurl=rs（ "smt_pic ")
imgtext=rs（ "smt_cpname ")
imglink=rs（ "smt_id ")

imgurl（n)=trim（imgurl（n))
imgtext（n)=trim（imgtext（n))
imglink（n)=trim（imglink（n))

response.write imgurl（n)
rs.movenext
loop
rs.close

发表于：2007-01-08 10:24:523楼得分:0

问题还没解决，没有一点东西输出来，问题是 "n "要怎么样附值的

发表于：2007-01-08 10:36:134楼得分:0

imgurl（n)=trim（imgurl（n))
imgtext（n)=trim（imgtext（n))
imglink（n)=trim（imglink（n))
楼主的这个应该是数组吧。你得定义一下数组才行啊

发表于：2007-01-08 10:37:325楼得分:0

感觉你的代码有问题

你想打印什么数据?

想从数据库中循环读出数据?

发表于：2007-01-08 10:37:476楼得分:0

数组不太熟，现在急着，能帮个忙吗，怎么定义。

发表于：2007-01-08 11:15:567楼得分:0

不用定义了

rs.open 语句之后直接写:

dim arrdata

if not rs.eof then

arrdata = rs.getrows（-1)

else

arrdata = null

end if

这样如果rs不为空得到的就是一个二维数组~~

下一篇：文本框失去焦点赋值问题!在线等!!急急急~~
上一篇：求一个参数传递js写法

其他资讯