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

<!--#include file="Connections/yong.asp"-->
<%
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'>&nbsp;</td>"
response.write"<td width='8%' class='td'>&nbsp;</td>"
response.write"<td width='8%' class='td'>"&rs1.field.Item("CrTime").value&"</td>"
response.write"<td>&nbsp;</td>"
response.write"</tr>"
rs1.movenext
response.write"</table>"

wend

%>

[此贴子已经被作者于2007-4-19 2:10:19编辑过]

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

[此贴子已经被作者于2007-4-20 1:50:03编辑过]