<% dim conn dim connstr dim db db="Database/guoda.mdb" '数据库文件位置 on error resume next connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") dim rs_NewsZY,sql_NewsZY,i,Title,StrTemp set rs_NewsZY=server.createobject("adodb.recordset") sql_NewsZY="select top 10 * from wy_news order by id desc" rs_NewsZY.open sql_NewsZY,conn,1,1 i=0 Do While Not rs_NewsZY.EOF %> <% = rs_NewsZY("newsID") %> <% = rs_NewsZY("Title") %> test... <% rs_NewsZY.MoveNext i=i+1 if i=10 then exit do Loop rs_NewsZY.close set rs_NewsZY=nothing %> 请问哪里出错了,显示不了数据库的字段