[求助]循环问题。。。

[复制链接]

可爱的人

电梯直达

1^#

发表于 2010-1-7 03:04:08 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

其实我也不知道这样行不行，我只是凭我自已想法。请多指教哦。。。。。。。运行就卡，而且之后还报错。我是想要把我数据库表中的记录在网页显示出来。有什么好的方法麻烦告知，谢谢。。。。


<%
dim rs1
dim rs1_numRows
set rs1=server.createObject("adodb.recordset")
rs1.activeconnection = MM_yong_STRING
rs1.source="select * from Article order by [CrTime] desc"
rs1.cursortype=0
rs1.cursorlocation=2
rs1.locktype=1
rs1.open()
rs1_numRows=0
%>
<%

response.write "<table class='tr' width='100%' border='0' cellspacing='0' cellpadding='0'>"
while not rs1.eof
response.write"<tr >"

response.Write"<td width='51%' class='td'>"&rs1.field.Item("Topic").value&"</td>"
response.write"<td width='13%' class='td'> </td>"
response.write"<td width='8%' class='td'> </td>"
response.write"<td width='8%' class='td'>"&rs1.field.Item("CrTime").value&"</td>"
response.write"<td> </td>"
response.write"</tr>"
rs1.movenext
response.write"</table>"

wend

%>

收藏0

使用道具举报

黑角残叶

2^#

发表于 2010-1-7 03:04:10 | 只看该作者

<%Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from Article order by [CrTime] desc"
rs.open sql,conn,1,1
%>

<table class="tr" width="100%" border="0" cellspacing="0" cellpadding="0">
<%do while not rs.eof%>
<tr>
<td width="51%" class="td">要循环的值</td>
</tr>
<%rs.movenext
loop
%>
</table>

回复支持反对

使用道具举报

梧桐雨love

3^#

发表于 2010-1-7 03:04:13 | 只看该作者

以下是引用lq7350684在2007-4-19 9:53:15的发言：

<%Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from Article order by [CrTime] desc"
rs.open sql,conn,1,1
%>

<table class="tr" width="100%" border="0" cellspacing="0" cellpadding="0">
<%do while not rs.eof%>
<tr>
<td width="51%" class="td">要循环的值</td>
</tr>
<%rs.movenext
loop
%>
</table>

请问运行后为什么出现如下的错误呢？还有不知道为什么我用<%=rs1.fields.item("Topic").Value%>调用不出记录集里的记录。

错误类型：
Active Server Pages, ASP 0113 (0x80004005)
超过了脚本运行的最长时间。可以为 Server.ScriptTimeOut 属性指定新值或更改 IIS 管理工具中的相应值来更改此限制。
/myweb/luntan/index.asp