求救 ASP服务器数据库连接

[pander2008]

Microsoft OLE DB Provider for ODBC Drivers '80004005'

[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
小弟我用的是梦想家ASP测试服务器
以上报错是首页连接时（此时牵涉到数据库连接）

[猜我是几娃]

发链接代码来看看

[pander2008]

<%
connstr="provider=sqloledb;user id=sa; password=sa;database=buyercncn; data

source=127.0.0.1"
set conn = server.createobject("ADODB.connection")

conn.open
Myself = Request.ServerVariables("PATH_INFO")
Function CheckStr(c_str)
c_str=trim(c_str)
If Isnull(c_str) Then
CheckStr = ""
Exit Function
End If
c_str = Replace(c_str,Chr(0),"")
c_str = replace(c_str,CHR(39), "'")
c_str = replace(c_str,chr(34),""")
c_str = replace(replace(c_str,"<","<"),">",">")
c_str = Replace(c_str,Chr(13),"<br>")
c_str = Replace(c_str, """", "“")
Key_BadWord="SCRIPT|ＳＣＲＩＰＴ,OBJECT|ＯＢＪＥＣＴ,APPLET|ＡＰＰＬＥ

Ｔ,SELECT|ＳＥＬＥＣＴ,EXE|ＥＸＥＣ,JOIN|ＪＯＩＮ,UNIO|ＵＮＩＯＮ,WHERE|ＷＨＥＲ

Ｅ,INSERT|ＩＮＳＥＲＴ,DELETE|ＤＥＬＥＴＥ,UPDATE|ＵＰＤＡＴＥ,LIKE|ＬＩＫ

Ｅ,DROP|ＤＲＯＰ,CREATE|ＣＲＥＡＴＥ,RENAME|ＲＥＮＡＭＥ,COUNT|ＣＯＵＮＴ,CHR|Ｃ

ＨＲ,MID|ＭＩＤ,TRUNCATE|ＴＲＵＮＣＡＴＥ,NCHAR|ＮＣＨＡＲ,CHAR|ＣＨＡＲ,ALTER|Ａ

ＬＴＥＲ,CAST|ＣＡＳＴ,EXISTS|ＥＸＩＳＴＳ,XP_|ＸＰ_,SHELL|ＳＨＥＬＬ"
for each Key_one in split(Key_BadWord,",")
Key_one_1=left(Key_one,instr(Key_One,"|")-1)
Key_one_2=mid(Key_one,instr(Key_One,"|")+1)
c_str=Replace(c_str,Key_one_1,Key_one_2,1,-1,1)
next
CheckStr=c_str
End Function
Price_Cell="价格单位,平方米,米,个,套,斤,公斤,克,吨"

function to_html(a1)
a1=trim(a1)

If Isnull(a1) Then
to_html = ""
Exit Function
End If
a1=lcase(a1)
a1=replace(a1,"[h]","<a href=")
a1=replace(a1,"[/h]"," target=_blank><font color=blue><b>")
a1=replace(a1,"[/a]","</b></font></a>")
a1=replace(a1,"[c]","<center>")
a1=replace(a1,"[/c]","</center>")
a1=replace(a1,"","<b>")
a1=replace(a1,"","</b>")
a1=replace(a1,"","<u>")
a1=replace(a1,"","</u>")
a1=replace(a1,chr(13)&chr(10),"<br>")
to_html=a1
End function
Function un_Checkstr(Str)
Str=trim(Str)

If Isnull(Str) Then
un_Checkstr = ""
Exit Function
End If
Str = Replace(Str,"",Chr(0))

Str = replace(Str,"''","'")
Str = replace(Str,""",chr(34),1,-1,1)
Str = replace(Str, "'",CHR(39),1,-1,1)
Str = replace(replace(Str,"<","<",1,-1,1),">",">",1,-1,1)
Str = Replace(Str, "＝", "=")
Str = Replace(Str,"；",";")
Str = Replace(Str, "“", """")
Str = Replace(Str,"<br>",Chr(13),1,-1,1)
un_Checkstr = Replace(Str,"''","'")
End Function
sub Htm_Err(Htm_ShowWord,Htm_ShowHref,Htm_Ifend)
'信息提示！
if trim(Htm_ShowWord)<>"" then Response.write "<table

border='0' cellspacing='1' width='500' bordercolorlight='#000000'

bordercolordark='#FFFFFF' cellpadding='2' bgcolor='#000000' align='center'><tr

bgcolor='#FFFF66'><td height=100><center><b>"&Htm_ShowWord&"</td></tr></table>"
if trim(Htm_ShowHref)<>"" then
Response.write "<meta http-equiv='refresh'

content='1;url=http://www.buyercn.cn/;'>"
Response.write "<center><br><a href="&Htm_ShowHref&">［

<font color=#000000>返 回</font> ］</a>"
end if
if Htm_Ifend=1 then Response.end
end sub
function unchangechr(str)
unchangechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr

(-24159)," "),"<br>",chr(13))

'将半角双引号替换为字符"
unchangechr=replace(unchangechr,""",chr(34))

unchangechr=replace(unchangechr,"‘",chr(39))

end Function
Function ResponseCookies(Key,Value,Expires)

Response.Cookies(Key) = ""&Value&""
Response.Cookies(Key).Path = DomainPath
if int(Expires)>0 then Response.Cookies(Key).Expires = date+Expires

End Function
%>

此是那问题的具体代码

[猜我是几娃]

数据库都配置好了吗？ 数据库中有 buyercncn 这个数据库吗？

[pander2008]

buyercncn是项目所需数据库

[pander2008]

我用sqlserver2000连接了该数据库

[pander2008]

该数据库用户名sa密码sa

[pander2008]

connstr="provider=sqloledb;user id=sa; password=sa;database=buyercncn; data

source=127.0.0.1"
set conn = server.createobject("ADODB.connection")

conn.open

有问题，调试前
Params = "Provider=SQLOLEDB.1"
Params = Params & ";Data Source=" & "127.0.0.1"
Params = Params & ";User ID=" & "s467245db0"
Params = Params & ";Password=" & "338986u6"
Params = Params & ";Initial Catalog=" &"s467245db0"
Set dbConn= Server.CreateObject("ADODB.Connection")
dbConn.Open Params

[zjehero]

这个问题有点难度哟

[firstboy]

请使用标准连接程序。

[pander2008]

Params = "Provider=SQLOLEDB.1"
Params = Params & ";Data Source=" & "127.0.0.1"
Params = Params & ";User ID=" & "s467245db0"
Params = Params & ";Password=" & "338986u6"
Params = Params & ";Initial Catalog=" &"s467245db0"
Set dbConn= Server.CreateObject("ADODB.Connection")
dbConn.Open Params
公司源码。
connstr="provider=sqloledb;user id=sa; password=sa;database=buyercncn; data

source=127.0.0.1"
set conn = server.createobject("ADODB.connection")

conn.open
下载下后调试修改连接（因sql2000数据库添加了该测试程序的数据库）

[ywfsoft]

 connstr="provider=sqloledb;user id=sa; password=sa;database=buyercncn; data  source=."
set conn = server.createobject("ADODB.connection")
conn.open  connstr

[pander2008]

不行，报Microsoft VBScript 运行时错误 '800a01a8'
缺少对象: 'dbconn'

\www\Hot_Click.asp, line 13

错误

[pander2008]

已经跳转到下个asp，所以上一问题已解决，但新问题
Set hot_rs=dbconn.execute("select top 10 id,doctitle,clicknum from book where Colname <> 'qwzj' order by clicknum desc")
运行时说
缺少对象: 'dbconn'

[pander2008]

刚才改的就是dbconn.asp的代码