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
% >