乐府诗个人博客

配制有可能出现的所有数据库链接

<%
'//配制有可能出现的所有数据库链接
Dim DBName(4)
    DBName(4)="/data/data.mdb"
    DBName(1)="data/data.mdb"
    DBName(2)="../data/data.mdb"
    DBName(3)="../../data/data.mdb"
Dim DBName_Level
    DBName_Level=0
Dim Connstr
    Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Dim Conn
Set    Conn=Server.CreateObject("ADODB.CONNECTION")
Call ConnOpen()

Function ConnOpen()
    On Error Resume Next
    Dim I
    For I=1 To UBound(DBName)
        Err.Clear
        Conn.Open Connstr & Server.MapPath(DBName(I))
        If Err.Number=0 Then
            DBName_Level=I
            ConnOpen=true
            Exit Function
        End If
    Next
    If DBName_Level=0 Then
        Err.Clear
        Response.Write "<p>以下数据库无法打开，请查看Conn.asp文件及*.mdb数据库的位置</p>"
        For I=1 To UBound(DBName)
            '打印所有数据库路径
            'Response.Write("" & DBName(I) & "<br>")
        Next
    End If
End Function
%> 

相关内容

下列内容与有着内在的联系，建议您一并阅读。