访问路径问题！

解决了访问路径的问题！

'使用DBType = 0或DBType = 1区分AC库或MSSQL库

'使用AC库时需要注意的具体事项access 路径，请参见程序说明

---------------------------------------------------

Dim DBType，Conn，StrConn

DBType = 0'0是Access，1是MSSQL

如果（DBType = 0）那么

'****************访问******************

Dim DbFolderName，DbFolder_Path，SiteFolder

DbFolderName =“ ArticleData”'所在的文件夹的名称

DbFolder_Path = Server.MapPath（DbFolderName）'的路径

SiteFolder =“ Article”'系统所在的根目录的名称

如果会话（“ RootDir”）=“”然后

会话（“ RootDir”）=中（DbFolder_Path，1，InStr（1，DbFolder_Path，SiteFolderaccess 路径，1）-1）和SiteFolder

如果结束

设置Conn = Server.CreateObject（“ Adodb.Connection”）

StrConn =“驱动程序= {Microsoft Access驱动程序（* .mdb）}； DBQ =”＆会话（“ RootDir”）＆“ \”＆DbFolderName＆“ \ Data.mdb”'连接到

Conn.Open StrConn

'********************************************** ** ****

ElseIf（DBType = 1）然后

'***************** MSSQL SERVER******

昏暗的DBUserID，DBPassWord，DBName，DBIP

'修改以下信息以适合您的网站

DBUserID =“ sa”'登录名

DBPassWord =“”'密码

DBName =“ dbname”'名称

DBIP =“ local”'所在的地址，或者如果它是本地: （本地）

设置Conn = Server.CreateObject（“ Adodb.Connection”）

StrConn =“ PROVIDER = SQLOLEDB.1;数据源=”＆DBIP＆“;初始目录=”＆DBName＆“;持久安全信息= True;用户;密码=”＆DBPassWord＆“;连接超时= 30 “

Conn.Open StrConn

'********************************************** ** ********

其他

'***********************设置错误*****************

响应. 写入“设置错误，请与管理员联系！”

Response.End

如果结束

'Response.Write StrConn

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-157574-1.html