新微赢技术网

标题: [求助]循环问题。。。 [打印本页]

作者: 可爱的人 时间: 2010-1-7 03:04
标题: [求助]循环问题。。。
其实我也不知道这样行不行，我只是凭我自已想法。请多指教哦。。。。。。。运行就卡，而且之后还报错。我是想要把我数据库表中的记录在网页显示出来。有什么好的方法麻烦告知，谢谢。。。。


<%
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

%>

作者: 黑角残叶 时间: 2010-1-7 03:04
<%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 时间: 2010-1-7 03:04
以下是引用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

作者: 为爱种菜！ 时间: 2010-1-7 03:04
楼上的方法应该是正确滴

作者: n煲 时间: 2010-2-2 04:05
够震撼！够创新！！

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)