| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1166 人关注过本帖
标题:[求助]好像是数据库连接问题!不懂!请看看
只看楼主 加入收藏
zjblove
Rank: 1
等 级:新手上路
帖 子:44
专家分:0
注 册:2006-3-12
收藏
得分:0 
<%
option explicit
dim conn,connstr,i,sql,rs

const serverIP1 = "" '''服务器IP地址
const DbUserName1 = "" '''数据库用户名
const DbPassword1 = "" ''数据库密码
const DatabaseName1 = "metin" ''数据库名

const serverIP2 = "" '''服务器IP地址
const DbUserName2 = "" '''数据库用户名
const DbPassword2 = "" ''数据库密码
const DatabaseName2 = "metin" ''数据库名

const serverIP3 = "" '''服务器IP地址
const DbUserName3 = "" '''数据库用户名
const DbPassword3 = "" ''数据库密码
const DatabaseName3 = "metin" ''数据库名

dim connstr1,connstr2,connstr3
connstr1="driver={mysql odbc 3.51 driver}; server="&serverIP1&";uid="&DbUserName1&";pwd="&DbPassword1&";database="&DatabaseName1&""
connstr2="driver={mysql odbc 3.51 driver}; server="&serverIP2&";uid="&DbUserName2&";pwd="&DbPassword2&";database="&DatabaseName2&""
connstr3="driver={mysql odbc 3.51 driver}; server="&serverIP3&";uid="&DbUserName3&";pwd="&DbPassword3&";database="&DatabaseName3&""

Function OpenDb(s)
Set conn = Server.CreateObject("ADODB.Connection")
select case s
case 1
conn.open Connstr1
case 2
conn.open Connstr2
case 3
conn.open Connstr3
case else
conn.open Connstr1
end select
End Function

FUNCTION GetError(str)
Response.Write(str)
Response.End()

End Function

Public Function CheckStr(Str)
If Isnull(Str) Then
CheckStr = ""
Exit Function
End If
Str = Replace(Str,Chr(0),"")
Str = Replace(Str,chr(34),"")
Str = Replace(Str,";","")
CheckStr = Replace(Str,"'","''")
End Function
public Function GetQS(str)
if str = "" then exit Function
GetQS = CheckStr(trim(Request.QueryString(Str)))


End function
Public Function GetForm(s)
if s="" then exit function
GetForm=CheckStr(trim(request.Form(s)))
End Function

Public Function GetForm2(s)
if s="" then exit function
GetForm2=trim(request.Form(s))
End Function

Public Function ChkPost()
Dim server_v1,server_v2
Chkpost=False
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
If Mid(server_v1,8,len(server_v2))=server_v2 Then
Chkpost=True
else
response.Write("<li>不允许提交外部发言,请检查您的浏览器或者防火墙是否过滤了REF参数<li>如果多次出现该情况,请清空您的临时文件或者重启您的计算机。")
Chkpost=False
end if
End Function

%>

这就是conn.asp
2006-12-04 14:55
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
收藏
得分:0 

我不要你的程序,我要出错的页面内容.加了那一句后的出错内容.所有的

也就是我加了那一句后,它多出来的内容.

[此贴子已经被作者于2006-12-4 14:57:55编辑过]


2006-12-04 14:57
zjblove
Rank: 1
等 级:新手上路
帖 子:44
专家分:0
注 册:2006-3-12
收藏
得分:0 
driver={mysql odbc 3.51 driver}; server=这里是服务器IP;uid=帐号;pwd=密码;database=数据库名
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序

/inc/conn.asp,行 32

加上以后显示这个
2006-12-04 15:09
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
收藏
得分:0 
driver={mysql odbc 3.51 driver}; server=这里是服务器IP;uid=帐号;pwd=密码;database=数据库名
就是说,这些内容全都正确?

2006-12-04 15:24
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
收藏
得分:0 
未发现数据源名称并且未指定默认驱动程序
因为它提示的是这个错误,所以要你把这个东东显示出来,以便看清楚,你的那些变量有没有送过来,有没有送对.
这下子应该可以找到问题所在了吧?

2006-12-04 15:26
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
收藏
得分:0 
DRIVER=MySQL ODBC 3.51 Driver;server=主机IP地址;uid=用户名;pwd=密码;database=数据库名;network=dbmssoen

对了,把这个{}去掉看看

2006-12-04 15:40
zjblove
Rank: 1
等 级:新手上路
帖 子:44
专家分:0
注 册:2006-3-12
收藏
得分:0 
以下是引用tang688在2006-12-4 15:26:26的发言:
未发现数据源名称并且未指定默认驱动程序
因为它提示的是这个错误,所以要你把这个东东显示出来,以便看清楚,你的那些变量有没有送过来,有没有送对.
这下子应该可以找到问题所在了吧?

我该怎么做?

2006-12-04 15:50
zjblove
Rank: 1
等 级:新手上路
帖 子:44
专家分:0
注 册:2006-3-12
收藏
得分:0 
以下是引用tang688在2006-12-4 15:40:30的发言:
DRIVER=MySQL ODBC 3.51 Driver;server=主机IP地址;uid=用户名;pwd=密码;database=数据库名;network=dbmssoen

对了,把这个{}去掉看看

去掉以后还那样

2006-12-04 15:53
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
收藏
得分:0 
IP地址通不通啊?

2006-12-04 16:02
zjblove
Rank: 1
等 级:新手上路
帖 子:44
专家分:0
注 册:2006-3-12
收藏
得分:0 
IP通啊 都是可以远程访问的!

2006-12-04 16:06
快速回复:[求助]好像是数据库连接问题!不懂!请看看
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.031017 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved