|
主题:[求助]科汛4.5 的Conn.asp文件MySql数据库怎么填?? [收藏主题] |
下面是 科汛网站管理系统 Version 4.5 的Conn.asp文件,我不会填。我是MySql的数据库。我只有数据库的名,数据库IP,和数据库密码。我都是用数据库名称来登陆管理的啊?
<% Dim SqlNowString,SiteSN,Conn,DBPath,CollectDBPath,DataServer,DataUser,DataBaseName,DataBasePsw,ConnStr,CollcetConnStr Const DataBaseType=0 '系统数据库类型,"1"为MS SQL2000数据库,"0"为MS ACCESS 2000数据库 Const SysVer=1 Const MsxmlVersion=".3.0" '系统采用XML版本设置 If DataBaseType=0 then '如果是ACCESS数据库,请认真修改好下面的数据库的文件名 DBPath = "/KS_Data/KesionCMS4.mdb" 'ACCESS数据库的文件名,请使用相对于网站根目录的的绝对路径 SqlNowString = "Now()" Else '如果是SQL数据库,请认真修改好以下数据库选项 DataServer = "(local)" '数据库服务器IP DataUser = "sa" '访问数据库用户名 DataBaseName = "kesioncms4" '数据库名称 DataBasePsw = "989066" '访问数据库密码 SqlNowString = "getdate()" End if '采集数据库路径 CollectDBPath="\KS_Data\Collect\KS_Collect.Mdb" 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 & ";" Else ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath) 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 %> [此贴子已经被作者于2008-2-2 12:34:21编辑过] |
|
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
<上一主题 | 下一主题 > |