400-1100-266

9:00-24:00（工作日）
主页 > 知识库 > ASP连接数据库的全能代码

ASP连接数据库的全能代码
热门标签：阿里云 电子围栏 科大讯飞语音识别系统 Mysql连接数设置 银行业务 Linux服务器 团购网站 服务器配置
ASP连接数据库的全能代码     
'解决了ACCESS数据库路径的问题！
'采用DBType=0或DBType=1来区分AC库还是MSSQL库
'具体采用AC库时应注意的事项，请看程序说明

--------------------------------------------------------------------------------
Dim DBType,Conn,StrConn
DBType=0        '0为Access数据库，1为MSSQL数据库 

If(DBType=0) Then
    '********************************ACCESS数据库*************************************
    Dim DbFolderName,DbFolder_Path,SiteFolder
    DbFolderName="ArticleData"   '数据库所在文件夹名称
    DbFolder_Path = 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 (*.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" '数据库所在地址，如果是本地数据库则为：(local)

    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 

 

标签：萍乡 蚌埠 衡水 枣庄 衢州 江苏 大理 广元

巨人网络通讯声明：本文标题《ASP连接数据库的全能代码》，本文关键词  ；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。
  • 相关文章
  • 推荐文章

    上一篇：asp输出bmp

    下一篇：ASP面向对象编程探讨及比较

     
    微信咨询办理
    在线QQ客服
    ( 客服小王 )
    ( 客服小李 )
    ( 客服小刘 )
    ( 客服小张 )
    关于我们 | 荣誉资质 | 呼叫中心 | 代理加盟 | 客户案例 | 服务支持 | 产品介绍 | 行业资讯

    Copyright © 1999-2012 诚信 合法 规范的巨人网络 www.1330.cn 始建于2005年

    全国网站建设网站开发咨询热线：400-1100-266   0514-86177077

    江苏扬州巨人网络科技有限公司   总部地址：江苏省扬州信息产业基地11号楼4层

    《增值电信业务经营许可证》苏B2-20120278    苏ICP备15040257号 网站地图
    全国咨询热线
    400-1100-266
    在线客服( QQ：340506921 )
    版权所有：巨人网络(扬州)科技有限公司——拥有网站建设十年经验，具备独立网站开发能力，能够提供完善的网站设计及相关的网站制作服务！     全国统一服务热线：400-1100-266
    收缩
    • 微信客服
    • 微信二维码

    • 电话咨询

    • 400-1100-266