ASP连接数据库的全能代码

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

---

DimDBType,Conn,StrConn
DBType=0'0为Access数据库，1为MSSQL数据库

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

IfSession("RootDir")=""Then
Session("RootDir")=Mid(DbFolder_Path,1,InStr(1,DbFolder_Path,SiteFolder,1)-1)&SiteFolder
Endif
SetConn=Server.CreateObject("Adodb.Connection")
StrConn="Driver={MicrosoftAccessDriver(*.mdb)};DBQ="&Session("RootDir")&"\"&DbFolderName&"\Data.mdb"'连接到数据库
Conn.OpenStrConn
'**********************************************************************************
ElseIf(DBType=1)Then
'*****************************MSSQLSERVER数据库*************************************
DimDBUserID,DBPassWord,DBName,DBIP
'修改以下信息以适合你的网站
DBUserID="sa"'数据库登陆名
DBPassWord=""'数据库密码
DBName="dbname"'数据库名称
DBIP="local"'数据库所在地址，如果是本地数据库则为：(local)

SetConn=Server.CreateObject("Adodb.Connection")
StrConn="PROVIDER=SQLOLEDB.1;DataSource="&DBIP&";InitialCatalog="&DBName&";PersistSecurityInfo=True;UserID="&DBUserID&";Password="&DBPassWord&";ConnectTimeout=30"
Conn.OpenStrConn
'**********************************************************************************
Else
'***********************数据库设置错误*************************************************
Response.Write"数据库设置错误，请联系管理员！"
Response.End
EndIf
'Response.WriteStrConn

转自：http://goaler.xicp.net/ShowLog.asp?ID=487