ASP连接数据库的全能代码

发布时间：2013-09-19 11:33:46来源：阅读（1516）

’解决了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