Question

asp查询数据库

<%
' 连接数据库
dim ConnStr,Conn,rs,i
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("data.asa")
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
If Err Then
Err.Clear
Set Conn = Nothing
response.write "数据库连接失败..."
Response.End()
End If

'查询数据库
Sql="select * from news order by id desc"
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.Open Sql,Conn,1,1

do while not rs.eof '循环开始
response.write rs("newstitle") '显示数据
rs.movenext
loop
rs.close
conn.close
set rs=nothing
set conn=nothing
%>

表段为：news 字段为：newstitle，都是文本类型。我想把字段内容按顺序排列出来。
上面的代码总是错误！！！谢谢了！！！

谢谢了！！！
显示为：

Active Server Pages 错误 'ASP 0113'

脚本超时

/1.asp

超过了脚本运行的最长时间。可以为 Server.ScriptTimeOut 属性指定新值或更改 IIS 管理工具中的相应值来更改此限制。

Answer 1

个人建议在
先将On Error Resume Next 注释
然后测试程序是否有问题，
如果程序仍然存在上述情况，则继续执行如下调试。
do while not rs.eof '循环开始
response.write rs("newstitle") '显示数据
rs.movenext
循环中增加一个语句，将你执行的结果显示到页面中
do while not rs.eof '循环开始
response.write rs("newstitle") '显示数据
response.flush()'不缓存，直接将结束显示到页面
rs.movenext
增加response.flush()语句之后再重新测试程序，
看输出结果，然后在看是否有问题。

Answer 2

你的数据库是在根目录吗？