ASP连接数据库的全能代码

ASP连接数据库的全能代码
"解决了ACCESS数据库路径的问题！
"采用DBType=0或DBType=1来区分AC库还是MSSQL库
"具体采用AC库时应注意的事项，请看程序说明

--------------------------------------------------------------------------------
Dim DBType,Conn,StrConn
DBType=0        "0为Access数据库，1为MSSQL数据库

If（DBType=0） Then
    "********************************ACCESS数据库*************************************
    Dim DbFolderName,DbFolder_Path,SiteFolder
    DbFolderName="ArticleData"   "数据库所在文件夹名称
    DbFolder_Path = Server.MapPath（DbFolderName）   "数据库所在路径
    SiteFolder="Article"                    "系统所在根目录名称

    If Session（"RootDir"） = "" Then
        Session（"RootDir"） = Mid（DbFolder_Path, 1, InStr（1,DbFolder_Path,SiteFolder,1） -1） & SiteFolder
    End if
    Set Conn = Server.CreateObject（"Adodb.Connection"）
    StrConn = "Driver={Microsoft Access Driver （*.mdb）};DBQ=" & Session（"RootDir"） & ""& DbFolderName & "Data.mdb"  "连接到数据库
    Conn.Open StrConn
    "**********************************************************************************
ElseIf（DBType=1） Then
    "*****************************MSSQL SERVER数据库*************************************
    Dim DBUserID,DBPassWord,DBName,DBIP
    "修改以下信息以适合你的网站
    DBUserID="sa"  "数据库登陆名
    DBPassWord=""  "数据库密码
    DBName="dbname" "数据库名称
    DBIP="local" "数据库所在地址，如果是本地数据库则为：（local）

    Set Conn=Server.CreateObject（"Adodb.Connection"）
    StrConn = "PROVIDER=SQLOLEDB.1;Data Source="&DBIP&";Initial Catalog="&DBName&";Persist Security Info=True;User ID="&DBUserID&";Password="&DBPassWord&";Connect Timeout=30"
    Conn.Open StrConn
    "**********************************************************************************
Else
    "***********************数据库设置错误*************************************************
    Response.Write"数据库设置错误，请联系管理员！"
    Response.End
End If
"Response.Write StrConn