求救 ASP服务器数据库连接

2010-07-05 03:16:22 162 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

pander2008 墨衍会员 · AI 创作全网分发关注 + 加入社区

Java+Springboot基于微信小程序的动物救助领养系统动物是自然界的生命体，任何生命都值得尊重，人们对于动物的态度体现了人类文明的程度。我国是生物多样性最丰富的国家之一，前后出台了多项政策法规维护生物多样性和生态平衡，以此推进生态文明建设。经过长期的努力，以政府及管理部门为救助主导力量，同时拓宽参与渠道，完善激励政策，号召公众广泛参与救助和保护动物，做到人人尽责、人人出力，我国的动物保护工作取得了显著成效。在依靠国家政策法规约束、保护及救助机构服务的同时，公众的积极配合是强有力的支撑，也是每个公民保护生物的份内之事。阅读详情

Microsoft OLE DB Provider for ODBC Drivers '80004005'

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

...全文

Veeam Backup Replication Console 13 备份 PVE 本文介绍了如何通过Veeam Backup & Replication控制台配置与Proxmox VE（PVE）服务器的连接，包括主机地址、用户名密码和SSH信任设置。随后详细说明了部署备份Worker虚拟机的步骤，涵盖网络配置和VM创建。接着指导用户创建PVE虚拟机备份任务，包括命名、选择备份对象、存储位置、备份类型设置，以及配置备份计划任务。最后描述了备份测试执行过程，从启动备份到完成状态通知的完整流程。整个操作涉及服务器连接、Worker部署、备份配置和任务执行四个主要环节。阅读详情

pander2008

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

pander2008 2010-07-05

打赏
举报

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

pander2008 2010-07-05

打赏
举报

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

pander2008 2010-07-05

打赏
举报

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

\www\Hot_Click.asp, line 13

错误

ywfsoft 2010-07-05

打赏
举报



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

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

conn.open  connstr

pander2008 2010-07-05

打赏
举报

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数据库添加了该测试程序的数据库）

firstboy 2010-07-05

打赏
举报

请使用标准连接程序。

zjehero 2010-07-05

打赏
举报

这个问题有点难度哟

pander2008 2010-07-05

打赏
举报

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

pander2008 2010-07-05

打赏
举报

该数据库用户名sa密码sa

pander2008 2010-07-05

打赏
举报

我用sqlserver2000连接了该数据库

pander2008 2010-07-05

打赏
举报

buyercncn是项目所需数据库

猜我是几娃 2010-07-05

打赏
举报

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

pander2008 2010-07-05

打赏
举报

<%
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)," ")
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>")
a1=replace(a1,"[/a]","</a>")
a1=replace(a1,"[c]","<center>")
a1=replace(a1,"[/c]","</center>")
a1=replace(a1,"","")
a1=replace(a1,"","")
a1=replace(a1,"","")
a1=replace(a1,"","")
a1=replace(a1,chr(13)&chr(10)," ")
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," ",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>"&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> <a href="&Htm_ShowHref&">［

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

(-24159)," ")," ",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
%>

此是那问题的具体代码

猜我是几娃 2010-07-05

打赏
举报

发链接代码来看看

求救 ASP服务器数据库连接

相关推荐