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
【ASP连接数据库的全能代码】相关文章：