服务器之家

服务器之家 > 正文

ASP连接数据库的全能代码

时间:2019-10-18 11:13     来源/作者:asp代码网

ASP连接数据库的全能代码

  1. '解决了ACCESS数据库路径的问题!  
  2. '采用DBType=0或DBType=1来区分AC库还是MSSQL库  
  3. '具体采用AC库时应注意的事项,请看程序说明  
  4.  
  5. --------------------------------------------------------------------------------  
  6. Dim DBType,Conn,StrConn  
  7. DBType=0        '0为Access数据库,1为MSSQL数据库   
  8.  
  9. If(DBType=0) Then  
  10.     '********************************ACCESS数据库*************************************  
  11.     Dim DbFolderName,DbFolder_Path,SiteFolder  
  12.     DbFolderName="ArticleData"   '数据库所在文件夹名称  
  13.     DbFolder_Path = Server.MapPath(DbFolderName)   '数据库所在路径  
  14.     SiteFolder="Article"                    '系统所在根目录名称  
  15.  
  16.     If Session("RootDir") = "" Then   
  17.         Session("RootDir") = Mid(DbFolder_Path, 1, InStr(1,DbFolder_Path,SiteFolder,1) -1) & SiteFolder   
  18.     End if  
  19.     Set Conn = Server.CreateObject("Adodb.Connection")  
  20.     StrConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Session("RootDir") & "\"& DbFolderName & "\Data.mdb"  '连接到数据库  
  21.     Conn.Open StrConn  
  22.     '**********************************************************************************  
  23. ElseIf(DBType=1) Then  
  24.     '*****************************MSSQL SERVER数据库*************************************  
  25.     Dim DBUserID,DBPassWord,DBName,DBIP  
  26.     '修改以下信息以适合你的网站  
  27.     DBUserID="sa"  '数据库登陆名  
  28.     DBPassWord=""  '数据库密码  
  29.     DBName="dbname" '数据库名称  
  30.     DBIP="local" '数据库所在地址,如果是本地数据库则为:(local)  
  31.  
  32.     Set Conn=Server.CreateObject("Adodb.Connection")  
  33.     StrConn = "PROVIDER=SQLOLEDB.1;Data Source="&DBIP&";Initial Catalog="&DBName&";Persist Security Info=True;User ID="&DBUserID&";Password="&DBPassWord&";Connect Timeout=30"  
  34.     Conn.Open StrConn  
  35.     '**********************************************************************************  
  36. Else  
  37.     '***********************数据库设置错误*************************************************  
  38.     Response.Write"数据库设置错误,请联系管理员!"  
  39.     Response.End  
  40. End If  
  41. 'Response.Write StrConn  
标签:

相关文章

热门资讯

玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-09-17
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情 2019-06-22
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字 2019-06-05
超A是什么意思 你好a表达的是什么
超A是什么意思 你好a表达的是什么 2019-06-06
返回顶部