UC知道asp读取数据库的时候dllhost.exe CPU使用率100%
来源：百度知道 编辑：UC知道 时间：2024/06/25 18:29:35
<%
dim conn,db
dim connstr
db="db/com02.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
set rs = Server.CreateObject("Adodb.Recordset")
sql = "select * from news"
rs.open sql,conn,1,1
do While not rs.eof
response.Write rs("id")&"<br>"
rs.movenext
loop
%>
代码如下，不知道这段程序哪里出错了 ，郁闷，一会可以，一会不可以
kver2010
谢谢 ，按照你写的代码还是不行
dim conn,db
dim connstr
db="db/com02.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
set rs = Server.CreateObject("Adodb.Recordset")
sql = "select * from news"
rs.open sql,conn,1,1
do While not rs.eof
response.Write rs("id")&"<br>"
rs.movenext
loop
%>
代码如下，不知道这段程序哪里出错了 ，郁闷，一会可以，一会不可以
kver2010
谢谢 ，按照你写的代码还是不行
Dim Conn,ConnStr
Const Db="db/com02.mdb"
Connstr="Provider=Microsoft.Jet.OleDb.4.0;Data Source="&Server.Mappath(Db)
Set Conn = Server.Createobject("adodb.connection")
Conn.open ConnStr
If Err Then
Err.Clear
Conn.Close:Set Conn=Nothing
Response.Write "数据库连接出错"
Response.End()
End If
set rs = Server.CreateObject("Adodb.Recordset")
'需要哪些字段，就查询哪些字段
sql = "select id from news"
rs.open sql,conn,1,1
do While not rs.eof
response.Write rs("id")&"<br>"
rs.movenext
loop
rs.close:set rs=nothing
conn.close:set conn=nothing