win主机数据库连接出错！好心人帮忙！

comlian · 发表于 2010-9-16 00:59:55

买了win主机数据库连接出错
域名是http://www.szxcad.com/,用的是科讯的程序
提示
数据库连接出错，请检查Conn.asp文件中的数据库参数设置。

数据库目录已经有读写权限了不晓的还有哪里需要设置

数据库权限是读写是有效的

以下是CONN。ASP文件内容
<%
Dim SqlNowString,DataPart_D,DataPart_Y,DataPart_H,DataPart_S
Dim

Conn,DBPath,CollectDBPath,DataServer,DataUser,DataBaseName,DataBasePsw,ConnStr,CollcetConnS

tr
Const DataBaseType=0                '系统数据库类型，"1"为MS SQL2000数据库，"0"为MS

ACCESS 2000数据库
Const MsxmlVersion=".3.0"             '系统采用XML版本设置

Const EnableSiteManageCode = True       '是否启用后台管理认证码是： True  否： False
Const SiteManageCode = "2010"    '后台管理认证码，请修改，这样即使有人知道了您的后台

用户名和密码也不能登录后台

If DataBaseType=0 then
'如果是ACCESS数据库，请认真修改好下面的数据库的文件名
DBPath    = "../KSXY_Data/dsfsd#kljjo!$&lfs.asa"    'ACCESS数据库的文件名，请

使用相对于网站根目录的的绝对路径
Else
   '如果是SQL数据库，请认真修改好以下数据库选项
   DataServer = "(local)"                               '数据库服务器IP
   DataUser    = "sa"                                     '访问数据库用户名
   DataBaseName = "KesionCMS68"                               '数据库名称
   DataBasePsw  = "9890668"                                  '访问数据库密码
End if

'采集数据库路径
CollectDBPath="..\KSXY_Data\Collect\KSXY_Collect.asa"

'=============================================================== 以下代码请不要自行修改

========================================
Call OpenConn
Sub OpenConn()
On Error Resume Next
If DataBaseType = 1 Then
   ConnStr="Provider = Sqloledb; User ID = " & datauser & "; Password = " & databasepsw

& "; Initial Catalog = " & databasename & "; Data Source = " & dataserver & ";"
   SqlNowString = "getdate()"
   DataPart_D = "d"
   DataPart_Y = "y"
   DataPart_H = "hour"
   DataPart_S = "s"
Else
   ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
   SqlNowString = "Now()"
   DataPart_D = "'d'"
   DataPart_Y = "'yyyy'"
   DataPart_H = "'h'"
   DataPart_S = "'s'"
End If
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then Err.Clear:Set conn = Nothing:Response.Write "数据库连接出错，请检查Conn.asp

文件中的数据库参数设置。":Response.End
CollcetConnStr ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath

(CollectDBPath)
End Sub
Sub CloseConn()
On Error Resume Next
Conn.close:Set Conn=nothing
End sub

'==============================================全局临时变量类开始

==============================
Dim GCls:Set GCls=New GlobalVarCls
Class GlobalVarCls
Public StaticPreList,StaticPreContent,StaticExtension
Private Sub Class_Initialize()
   StaticPreList = "list"                rem 伪静态列表前缀不能包含"?"及"-"
   staticPreContent = "thread"             rem 伪静态内容前缀
   StaticExtension  = ".html"             rem 伪静态扩展名
End Sub
Private Sub Class_Terminate()
   Set GCls=Nothing
End Sub

Public Function Execute(Command)
If Not IsObject(Conn) Then OpenConn()
On Error Resume Next
Set Execute = Conn.Execute(Command)
If Err Then
Response.Write("查询语句为：" & Command & "<br>")
Response.Write("错误信息为：" & Err.Description & "<br>")
Err.Clear
Set Execute = Nothing
Response.End()
End If
'Sql_Use = Sql_Use + 1
End Function

Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
   strTemp = "http://"
Else
   strTemp = "https://"
End If
strTemp = strTemp & Request.ServerVariables("SERVER_NAME")
If Request.ServerVariables("SERVER_PORT") <> 80 Then
   strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT")
end if
strTemp = strTemp & Request.ServerVariables("URL")
If Trim(Request.QueryString) <> "" Then
   strTemp = strTemp & "?" & Trim(Request.QueryString)
end if
GetUrl = strTemp
End Function

'====================标志来访地址================
Public Property Let ComeUrl(ByVal strVar)
Session("M_ComeUrl") = strVar
End Property

Public Property Get ComeUrl
ComeUrl= Session("M_ComeUrl")
End Property
'================================================
End Class
'==============================================全局临时变量类结束

==============================
%>

请好心人帮忙解决一下谢谢！！！

comlian · 发表于 2010-9-16 08:01:40

有人会不，还是不行郁闷

cw723 · 发表于 2010-9-16 08:06:36

GD的主要是权重问题

comlian · 发表于 2010-9-16 08:46:42

权限按我们论坛的说明应该是这样了，不晓的哪里有错

gypworks526 · 发表于 2010-9-16 09:07:18

"../KSXY_Data/dsfsd#kljjo!$&lfs.asa"
这个路径我感觉不太对吧。

comlian · 发表于 2010-9-16 09:07:20

版主在不，我空间买了二三个月一直用不了，这几天才想到这里咨询一下

add.c · 发表于 2010-9-16 09:08:14

DBPath = "../KSXY_Data/dsfsd#kljjo!$&lfs.asa" 'ACCESS数据库的文件名，请

使用相对于主机根目录的的绝对路径

comlian · 发表于 2010-9-16 09:35:13

DBPath = "D:\Hosting\6318251\html\KSXY_Data\szxcadabc.asa"

DBPath = "/KSXY_Data/szxcadabc.asa"

这样都二种都不行

add.c · 发表于 2010-9-16 09:43:15

CollectDBPath="\KSXY_Data\Collect\KSXY_Collect.asa"
DBPath= "/KSXY_Data/dsfsd#kljjo!$&lfs.asa"

然后参考GoDaddy主机iis相关设置教程重启iis

comlian · 发表于 2010-9-16 10:23:40

重启进程池还是不行，可是里面看不到我这个空间的进程池在里面

[提问] win主机数据库连接出错！好心人帮忙！

GoDaddy讨论