主题:  把表中数据赋值给数组出错?

yiliaocheng

职务:普通成员
等级:2
金币:2.0
发贴:631
注册:2005/12/29 19:33:15
#12006/4/16 17:41:58
我在新闻系统想实现这样一种效果:
首页index.asp显示所有类别(比如国内时事、体育新闻、娱乐新闻、校园新闻等,就是把类别表里的类别全部列出来)
每个类别下显示该类的前10条新闻,效果如下图:
图片如下:

我采用这样的方式实现上述效果:
首先调出所有类别
把它们赋值给数组,然后查询新闻表,找出各类别的新闻并显示,再把所有数组的元素都显示出来,我用的代码是:
rs.open "select * from type",conn,1,1
dim myarray()
redim myarray(rs.recordcount)
myarray=rs.("type"
rs.close
for i=0 to ubound(myarray)
rs.open "select * from news where type='"&myarray(i)&"'",conn,1,1
....
next
可是调试时老是提示数组语句有错?不知哪位大侠知道,指点小弟一下。



蓝鲸

职务:版主
等级:5
金币:42.1
发贴:2614
注册:2001/12/20 15:57:57
#22006/4/17 1:28:26
redim myarray(rs.recordcount-1)


非常大鱼

yiliaocheng

职务:普通成员
等级:2
金币:2.0
发贴:631
注册:2005/12/29 19:33:15
#32006/4/17 12:49:15
谢谢蓝鲸大哥的回复,以前的哪个问题解决了,但是又出现新问题了,我把文本型的字段type或者自动编号型的字段id赋值给数组myarray就提示:Microsoft VBScript 运行时错误 (0x800A000D)类型不匹配。不知道数组的数据类型是不是有规定还是什么原因,蓝鲸大哥可不可以再指点下?



蓝鲸

职务:版主
等级:5
金币:42.1
发贴:2614
注册:2001/12/20 15:57:57
#42006/4/17 18:30:19
for i = 0 to rs.RecordCount-1
    myarray(i) = rs("type")
    rs.MoveNext()
next


非常大鱼

yiliaocheng

职务:普通成员
等级:2
金币:2.0
发贴:631
注册:2005/12/29 19:33:15
#52006/4/17 20:16:51
谢谢蓝鲸大哥,现在效果都出现了,非常感谢!