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

标签：丽江咸阳温州家电维修铁岭泰州昆明昌都

巨人网络通讯声明：本文标题《ASP连接数据库的全能代码》，本文关键词 ASP,连接,数据库,的,全能,；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。