帮我看看错在哪里

[lvconghua]

代码如下：

sub conn_open()
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")connstr="Provider=SQLOLEDB.1;Persist Security Info=True;Data Source=local;Packet Size=4096;User Id=sa;PASSWORD=;Initial Catalog=joekoe_data;"
conn.open connstr
isconn=true
end sub

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
/include/jk_class.asp, 第 22 行

22行也就是conn.open connstr

[cjf1009]

No.1顶

[孟子E章]

connstr="Provider=SQLOLEDB.1;Data Source=(local);User Id=sa;PASSWORD=;Initial Catalog=joekoe_data;"

[孟子E章]

or

connstr="Provider=SQLOLEDB.1;Data Source=.;User Id=sa;PASSWORD=;Initial Catalog=joekoe_data;"

[孟子E章]

or
connstr="Provider=SQLOLEDB;Data Source=.;User Id=sa;PASSWORD=;Initial Catalog=joekoe_data;"

[wanghr100]

Try..
"Provider=SQLOLEDB.1;Persist Security Info=True;Data Source=local;Packet Size=4096;User Id=sa;PASSWORD=;Initial Catalog=joekoe_data;"
->
"Provider=sqloledb;Data Source=local;Initial Catalog=joekoe_data;User Id=sa;Password=;"

[Drowning]

连的是SQL Server的数据库吗？

[loveweb]

五星好漂亮

[evice]

这样写更简单，不知行不行：
connstr="driver={SQL Server};server=localhost;uid=sa;pwd=XXX"

[叮咚叮咚叮叮咚]

用odbc的,
connstr="driver={SQL Server};server=localhost;uid=sa;pwd=XXX;DATABASE=databasename"

dw生成的连接代码很垃圾~

[zengh]

改为
connstr="provider=sqloledb;data source=local;initial catalog=;user id=sa;password="

[lvconghua]

不好意思，我搞错了代码如下：
function exec(esql,etype)
if isconn=false then call conn_open()
'response.write vbcrlf&"//<br>"&esql
select case etype
case 0
conn.execute(esql)
case 1
set exec=conn.execute(esql)
end select
num_rs=num_rs+1
end function
sub conn_open()
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
connstr="Provider=SQLOLEDB;Data Source=dell;User Id=sa;PASSWORD=;Initial Catalog=joekoe_data;"
conn.open connstr
isconn=true
end sub


其它地方调用的话是这样的：
set rs=joekoe_cms.exec("select count(id) from shop_product where hidden=1",1)
if not rs.eof then num_product=rs(0)
rs.close

或者如：
if update_ok=true then
call joekoe_cms.exec("update "&data_name&" set m_order="&order2&" where m_id="&id1,0)
call joekoe_cms.exec("update "&data_name&" set m_order="&order1&" where m_id="&id2,0)
end if

错误提示：
Microsoft OLE DB Provider for SQL Server 错误 '80040e14'

Invalid parameter 1 specified for datediff.

/include/jk_class.asp，行22

第22行是： case 0下面的 conn.execute(esql)

[lvconghua]

数据库原来是ACCESS的，文件名叫joekoe_data.mdb。我导入到SQL2000中数据库名叫joekoe_data。