Set Conn= Server.CreateObject("ADODB.Connection")这么标准还出错，进来帮忙

[eFainter]

提示错误如下：
Microsoft VBScript 运行时错误 错误 '800a01b6'

对象不支持此属性或方法: 'Server.CreateObject'

/Conn.asp，行3

怎么办：
conn.asp如下：
<%
Dim Conn,Rs,Rs1
Set Conn= Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("Adodb.Recordset")
Set Rs1 = Server.CreateObject("Adodb.Recordset")
conn.ConnectionString = Application("connection_string") & "**"'Pwd_EnCode_conn("**")
conn.Open

%>

[yongfa365]

http://blog.csdn.net/yongfa365/archive/2006/06/07/778763.aspx

[yongfa365]

http://blog.csdn.net/yongfa365/archive/2006/06/08/780877.aspx

[yongfa365]

上面那两个一定可以解决你的问题,这问题刚出来时我也那没,但却实会出错,还是给你贴出来吧

把你的连接的改成

dbpath=server.mappath("db/#kehumsg.mdb")
connstr= "provider=microsoft.jet.oledb.4.0;data source=" & dbpath
set conn=server.createobject("adodb.connection")
conn.open connstr

就可以了

[边城的刀声]

路径错误

[eFainter]

to:yongfa365(yongfa365)
我上面的错误在创建连接对象时就报错了，和你贴出来的内容没有实质性的区别，我的连接字符串是没有错误的，这点可以肯定。

[eFainter]

to:bclz_vs(边城浪子)
能说的详细点吗，路径错误，那如何解决。

[eFainter]

to:yongfa365(yongfa365)
我根据你提供的连接，测试了以下SQL连接，错误依旧

[边城的刀声]

如yongfa365(yongfa365) 所说