ASP的set rs=server.CreateObject("adodb.recordset")无效

数据库连接的定义不支持 rs.Open

改为
TimesDB="数据库路经地址"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(TimesDB)
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查Conn.asp中的数据库指向。"'
Response.End
End If

set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from news where id="&id,conn,1,3

ID定义传值了吗？
rs.Open "select * from [news] where id="&id,conn,1,3

这里加一个[]会有好处哦，可以帮助它识别一些起冲突的表名。