<%
set rs4=server.CreateObject("ADODB.RecordSet")
rs4.Source="select * from News order by NewsID"
rs4.Open rs4.Source,conn,1,1
%>
<%
i=1
Dim Arrayhot(20)
while not rs4.EOF
RecordCount=rs4.RecordCount
Hot=rs("hot")
Arrayhot(i)=Hot
i=i+1
rs4.MoveNext
wend
rs4.close
%>
<%
set rs5=server.CreateObject("ADODB.RecordSet")
for i=1 to RecordCount
hot=Arrayhot(i)
%>
<%
rs5.Source="select top 10 NewsID,Title,UpdateTime,BigClassName,SmallClassName,SpecialID,hot,click from News where hot='"1"' order by NewsID DESC"
rs5.Open rs5.Source,conn,1,1
while not rs.EOF
Title=trim(rs5("Title"))
TitleLen=len(Title)
If TitleLen<15 then
Response.Write "
"
%>
显示这一句错误
rs5.Source="select top 10 NewsID,Title,UpdateTime,BigClassName,SmallClassName,SpecialID,hot,click from News where hot='"1"' order by NewsID DESC"
应该是很简单的问题，但我就是不知道
:confused: :confused:
编辑历史:[这消息被lingzh编辑过(编辑时间2002-10-30 10:57:49)]
|
妖山妖
职务：普通成员
等级：3
金币：10.0
发贴：1042
|
#22002/10/30 10:56:34
哦
懂了
引号问题
|
妖山妖
职务：普通成员
等级：3
金币：10.0
发贴：1042
|
#32002/10/30 10:59:11
不过还是有错误
简直是头晕
|
5D荣誉版主
职务：普通成员
等级：1
金币：10.0
发贴：271
|
#42002/10/30 13:10:43
lingzh在上个帖子中说 引用:
<%
set rs4=server.CreateObject("ADODB.RecordSet")
rs4.Source="select * from News order by NewsID"
rs4.Open rs4.Source,conn,1,1
%>
<%
i=1
Dim Arrayhot(20)
while not rs4.EOF
RecordCount=rs4.RecordCount
Hot=rs("hot")
-----------------rs4("hot")的吧?
Arrayhot(i)=Hot
i=i+1
rs4.MoveNext
wend
rs4.close
%>
<%
set rs5=server.CreateObject("ADODB.RecordSet")
for i=1 to RecordCount
---------------------------------RecordCount?你本意不是如此吧?(rs5.Recordcount也应该吧后面的一段代码写在for之前)
hot=Arrayhot(i)
%>
<%
rs5.Source="select top 10 NewsID,Title,UpdateTime,BigClassName,SmallClassName,SpecialID,hot,click from News where hot='"1"' order by NewsID DESC"
rs5.Open rs5.Source,conn,1,1
while not rs.EOF
-------------------------应该是while not rs5.eof吧?
Title=trim(rs5("Title"))
TitleLen=len(Title)
If TitleLen<15 then
Response.Write ""
%>
显示这一句错误
rs5.Source="select top 10 NewsID,Title,UpdateTime,BigClassName,SmallClassName,SpecialID,hot,click from News where hot='"1"' order by NewsID DESC"
应该是很简单的问题，但我就是不知道
:confused: :confused:
|
妖山妖
职务：普通成员
等级：3
金币：10.0
发贴：1042
|
#52002/10/31 15:09:51
我的本意是想读出所有news表中hot字段值为1的数据并把前10个的title列出来
Dim Arrayhot(20)这一句我觉得也有问题
就是不知道怎么改
|
5D荣誉版主
职务：普通成员
等级：1
金币：10.0
发贴：271
|
#62002/10/31 16:06:51
你这些代码仅仅为了这些要求?如果是,看看
set rs = server.createobject("adodb.recordset")
sql ="select top 10 NewsID,Title,UpdateTime,BigClassName,SmallClassName,SpecialID,hot,click from News where hot=1 order by NewsID DESC"
rs.open sql,conn,1,1
while not rs.eof
response.write rs("title")
rs.movenext
wend
|
妖山妖
职务：普通成员
等级：3
金币：10.0
发贴：1042
|
#72002/10/31 19:30:36
谢了
我ASP很菜的
rs.open sql,conn,1,1
后面的1,1是什么意思？
|
绿茶
职务：普通成员
等级：8
金币：10.0
发贴：19267
|
#82002/11/1 8:30:15
指游标类型与操作类型
|
5D荣誉版主
职务：普通成员
等级：1
金币：10.0
发贴：271
|
#92002/11/1 8:32:45
第一个1表示打开的数据集的游标类型为其它用户的增加,删除,修改无效
只能在数据集中上下移动
第二个1表示打开的数据集的锁定类型为read only
|
|
