访客留言簿
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: ''
/index.asp,行 21
<%
'建立与testdb数据库的连接
set coon=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.Mappath("/data/testdb.mdb")
'读取main表中的所有记录并按照留言时间顺序排列
set rs=server.createobject("adodb.recordset")
sql="select*from main order by mydata desc"
rs.open sql,conn,1,2
%>

解决方案 »

  1.   

    先说说你的问题,你的
    set coon=Server.CreateObject("ADODB.Connection")
    变量是 coon 而不是 conn,而你下面又用的是conn,所以出问题还有,链接数据库直接用语句就好,如:<%
    set conn=Server.CreateObject("ADODB.Connection")
    set rs=server.createobject("adodb.recordset")sql="Provider=Microsoft.Jet.OLEDB.4.0;UID=;PWD=;Data Source=" & Server.Mappath("/data/testdb.mdb")
    conn.open sql
    sql="select*from main order by mydata desc"
    rs.open sql,conn,1,2
    %>