ASP连接数据库的全能代码

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

--------------------------------------------------------------------------------
DimDBType,Conn,StrConn
DBType=00为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
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