2022年ASP连接数据库的全能代码源码精华教程.docx

《2022年ASP连接数据库的全能代码源码精华教程.docx》由会员分享，可在线阅读，更多相关《2022年ASP连接数据库的全能代码源码精华教程.docx（3页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、2022年ASP连接数据库的全能代码源码精华教程'解决了ACCESS数据库路径的问题！'采纳DBType=0或DBType=1来区分AC库还是MSSQL库'详细采纳AC库时应留意的事项，请看程序说明-Dim DBType,Conn,StrConnDBType=0'0为Access数据库，1为MSSQL数据库If(DBType=0) Then'*ACCESS数据库*Dim DbFolderName,DbFolder_Path,SiteFolderDbFolderName=ArticleData '数据库所在文件夹名称DbFolder_Path =

2、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 (*.

3、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 '数据库所在地址，假如是本地数据库则为：(loc

4、al) 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（出处：