ASP连接数据库的全能代码

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

赞 (0)

相关推荐

  • ASP连接数据库的全能代码

    ASP连接数据库的全能代码      '解决了ACCESS数据库路径的问题! '采用DBType=0或DBType=1来区分AC库还是MSSQL库 '具体采用AC库时应注意的事项,请看程序说明 -------------------------------------------------------------------------------- Dim DBType,Conn,StrConn DBType=0        '0为Access数据库,1为MSSQL数据库 If(DBTyp

  • asp下载防盗链代码

    asp下载防盗链代码第一种:  终于对下载系统做了个防盗链措施,在下载的页面头部做了如下代码,相关代码如下:   复制代码 代码如下: <%   From_url = Cstr(Request.ServerVariables("HTTP_REFERER"))   Serv_url = Cstr(Request.ServerVariables("SERVER_NAME"))   if mid(From_url,8,len(Serv_url)) <> 

  • Win7 ASP连接数据库“未找到提供程序.该程序可能未正确安装”问题

    Win7 ASP连接数据库“未找到提供程序.该程序可能未正确安装”问题

    ASP连接数据库的连接字符串是Provider=Microsoft.Jet.OLEDB.4.0; Data Source=路径,采用的是OleDB方式连接,问题可能就出在OleDB方式连接这一环节上. 后来搜索网络得到了解决的办法 .原来是自己装的64位Windows 7系统的原因,默认64位环境下,IIS应用程序池未启用32位应用程序,我们只需要启用一下就可以了.打开IIS 7,定位到"应用程序池",然后选择使用OleDB方式连接数据库的程序池,然后将启用32位应用程序设置为True

  • 11种ASP连接数据库的方法

    ASP连接数据库的11种方法--本文总结了使用ASP链接各种数据库的方法: 1.Access数据库的DSN-less连接方法: set adocon=Server.Createobject("adodb.connection") adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _ Server.MapPath("数据库所在路径") 2.Access OLE DB连接方

  • 用VB生成DLL封装ASP连接数据库的代码

    这篇文章以VB生成的DLL封装ASP代码来连接数据库(以Access数据库为例). 一般情况下我们在用ASP连接Access的数据库时通常都会进行如下的操作 '//Proconn.asp <% dim ProConn set ProConn=Server.CreateObject("ADODB.CONNECTION") ProConn.Open "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=123;DBQ=&quo

  • IIS ASP.NET 版本转换批处理代码

    IIS ASP.NET 版本转换批处理代码

    标识符的查看方法:iisaspnet.bat代码 复制代码 代码如下: @echo off echo ########################################## echo ######### IIS ASP.NET 版本转换 ########## echo ########################################## echo 说明: echo 站点标识符:打开IIS 管理器后点击"网站"在每个站点名称后都有一个唯一的站点标识符 ech

  • 将HTML或txt文件转换为ASP输出的vbs代码

    使用方法:手工修改html文件的名称与想要生成的asp的文件名称,然后将下面的代码保存为1.vbs,跟1.html放同一个目录双击运行即可. 复制代码 代码如下: html = "1.html" asp = "1.asp" Set fso = CreateObject("Scripting.FileSystemObject") Set fhtml = fso.OpenTextFile(html, 1) Set fasp = fso.OpenTex

  • ASP.NET 高性能分页代码

    最近给分页快搞死,记得之前曾经发过修改DW ASP分页的方法,后来又写过手工打造的ASP分页,现在进入.NET当然要配合存储过程打造纯手工高性能分页了. 为什么会叫做高性能,为什么要手工打造,不使用.NET现有的分页控件呢?这个还要追溯到我修改DW ASP分页的时候,那个我还不怎么懂程序这个东西,只会修修补补,就更不要去谈什么性能问题.当时改的很心烦,接着叫我的私人技术总监张总帮我看看,当时张总就以一种不屑一顾的眼神往着我,说了句话:值得吗? 接着到我手工打造ASP分页,又搞不下去了,张总丢给我

  • asp.net 添加水印的代码(已测试)

    加水印的功能代码如下所示 复制代码 代码如下: /// <summary> /// 图片修改类,主要是用来保护图片版权的,版权归原作者所有 /// </summary> public class picmark { #region "member fields" private string modifyImagePath = null; private string drawedImagePath = null; private int rightSpace;

  • asp.net生成验证码代码（纯中文）

    复制代码 代码如下: using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.WebControls.WebParts; using System.Web.UI.HtmlControls; usi

随机推荐