日期:2014-05-16  浏览次数:20834 次

求一个数据库通用连接的方法
在网站的inc目录下放了一个conn.asp文件
内空是
<% 
'--------------连接Access数据库ylml.mdb------------------ 
AccessDbUrl="/data/" 'Access数据库地址 

Set Conn=Server.CreateObject("ADODB.Connection") 

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(AccessDbUrl&"1.mdb") 
'---------------------------------------------------- 

 %>
这个相信大家都明白了,是调用网站data目录下的1.mdb数据库。

可是网站下还有一个yy目录,这里面的asp文件应该如何调用数据库呢。我试着引用服务器文件
<!--#include file="../../inc/conn.asp" -->

结果是

网站无法显示该页面 
 HTTP 500  
   最可能的原因是:
?该网站正在进行维护。
?该网站有程序错误。
 
   您可以尝试以下操作: 
     刷新该网页。 
 
     返回到上一页。 
 
     更多信息 

此错误(HTTP 500 内部服务器错误)意味着您正在访问的网站出现了服务器问题,此问题阻止了该网页的显示。

有关 HTTP 错误的详细信息,请参阅帮助。
 

------解决方案--------------------
<!--#include file="../inc/conn.asp" -->
------解决方案--------------------

用DW编写比较方便,服务器端包括
------解决方案--------------------
<%

Const SystemDatabaseType = "ACCESS"     '系统数据库类型,"SQL"为MS SQL2000数据库,"ACCESS"为MS ACCESS 2000数据库

'如果是ACCESS数据库,请认真修改好下面的数据库的文件名
Const DBFileName = "\sfs\database.asp"      'ACCESS数据库的文件名,请使用相对于网站根目录的的绝对路径
                                        '如果是安装在网站根目录,直接修改文件名即可。如果是安装在网站某一目录下,则在前面加上此目录,
                                        '例如,系统安装在“http://www.powereasy.net/PE2006/”目录下(PE2006为安装目录),则这里应该修改为:Const DBFileName = "\PE2006\database\SiteWeaver6.5.mdb"

'如果是SQL数据库,请认真修改好以下数据库选项
Const SqlUsername = "PowerEasy"           'SQL数据库用户名
Const SqlPassword = "PowerEasy*9988"          'SQL数据库用户密码
Const SqlDatabaseName = "SiteWeaver66"       'SQL数据库名
Const SqlHostIP = "(local)"                 'SQL主机IP地址。本地(指网站与数据库在同一台服务器上)可用“(local)”或“127.0.0.1”,非本机(指网站与数据库分别在不同的服务器上)请填写数据库服务器的真实IP)


'以下代码请勿改动
Dim Conn
Dim PE_True, PE_False, PE_Now, PE_OrderType, PE_DatePart_D, PE_DatePart_Y, PE_DatePart_M, PE_DatePart_W, PE_DatePart_H
Sub OpenConn()
    'On Error Resume Next
    Dim ConnStr
    If SystemDatabaseType = "SQL" Then
        ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source&nbs