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