asp 数据库连接函数代码

以下是SQL连接代码：


代码如下:

Function Open_conn()
dim Conn,Strconn
set Conn=server.createobject("adodb.connection")
Strconn = "Provider = Sqloledb; User ID = 数据库登录帐号; Password = 数据库登录密码; Initial Catalog = 数据库名称; Data Source = (local);"
Conn.open Strconn
set Open_conn=Conn
If Err Then
err.Clear
Conn.close:set Conn=nothing
Response.Write "对不起，数据库连接出错。"
Response.End
End If
End Function

调用方法：
将原来的


代码如下:

rs.open sql,conn

改成


代码如下:

rs.open sql,Open_conn()

以下是ACCESS连接代码：


代码如下:

Function Open_conn()
dim Dbpath,Conn
Dbpath=server.MapPath("数据库路径")
set Conn=server.createObject("ADODB.connection")
Conn.open "data source="&dbpath&";provider=microsoft.Jet.OLEDB.4.0;"
set Open_conn=Conn
If Err Then
err.Clear
Conn.close:set Conn=nothing
Response.Write "对不起，数据库连接出错。"
Response.End
End If
End Function

调用方法：
将原来的


代码如下:

rs.open sql,conn

改成


代码如下:

rs.open sql,Open_conn()

赞 (0)

相关推荐

  • asp数据库连接函数

    复制代码 代码如下: ' ******************************************** ' 以下为数据库相关函数 ' ******************************************** ' ============================================ ' 初始化数据库连接对象 ' 使用原则:最迟调用,最早释放 ' ============================================ Sub DBCo

  • asp连接SQL和Access数据代码(asp里的随机函数)

    asp连接sql 第一种写法: 复制代码 代码如下: MM_conn_STRING = "Driver={SQL Server};server=(local);uid=sa;pwd=;database=infs;" Set conn = Server.Createobject("ADODB.Connection") conn.open MM_conn_STRING SET RS=SERVER.CreateObject("ADOBD.recordset&qu

  • ASP连接SQL2005数据库连接代码

    说明: a.以下字符中数据库名forum,数据库服务器名WWW-2443D34E558\SQL2005(或者127.0.0.1) b.查看sql数据库服务器名称:对象资源管理器->数据库->右键点击自己建的数据库->属性->权限 c.Provider=sqlncli也可以,UID与"="之间不可以有空格,如果换用user id就可以有 空格,Initial Catalog可以换用database,pwd可以换用password,data source可以换用se

  • asp 通用数据库连接过程函数

    <% '****************************** '函数:ConnectionMssql(ConnStr) '参数:ConnStr,数据库连接代码 '作者:阿里西西 '日期:2007/7/13 '描述:通用数据库连接过程 '示例:<%=ConnectionMssql("Provider = Microsoft.Jet.OLEDB.4.0;Data Source = test.mdb")%> '****************************

  • asp 数据库连接函数代码

    以下是SQL连接代码: 复制代码 代码如下: Function Open_conn() dim Conn,Strconn set Conn=server.createobject("adodb.connection") Strconn = "Provider = Sqloledb; User ID = 数据库登录帐号; Password = 数据库登录密码; Initial Catalog = 数据库名称; Data Source = (local);" Conn.

  • 做了CDN获取用户真实IP的函数代码(PHP与Asp设置方式)

    asp函数代码: 复制代码 代码如下: function checkip(checkstring)'用正则判断IP是否合法dim re1set re1=new RegExpre1.pattern="^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$"re1.global=falsere1.Ignorecase=falsecheckip=re1.test(checkstring)set re1=nothingend function functio

  • asp获取当前完整路径(url)的函数代码

    有时候我么您需要获取网址,端口.路径文件名.参数等,这里就为大家分享一下这个函数代码,需要的朋友可以参考下 函数1 <% function GetUrl() on Error Resume Next Dim strTemp if LCase(request.ServerVariables("HTTPS")) = "off" Then strTemp = "http://" Else strTemp = "https://"

  • ASP检查文件与目录是否存在的函数代码

    以下为两个自写的ASP函数,第一个函数CheckDir,用于判断所指定的文件夹是否存在,也就是目录是否存在:第二个函数CheckFile用于检查指定文件是否存在在于某个目录中. 两个函数都是基于ASP中的FileSystemObject对象,也就是FSO,写成函数方便以后使用. ASP检查目录是否存在的函数代码 Function CheckDir(Byval FolderPath) dim fso folderpath=Server.MapPath(".")&"\&q

  • ASP数据库连接方式大全

    <%  '#######以下是一个类文件,下面的注解是调用类的方法################################################  '# 注意:如果系统不支持建立Scripting.FileSystemObject对象,那么数据库压缩功能将无法使用  '# Access 数据库类  '# CreateDbFile 建立一个Access 数据库文件  '# CompactDatabase 压缩一个Access 数据库文件  '# 建立对象方法:  '# Set a

  • ASP.NET常用代码

    1. 打开新的窗口并传送参数: 传送参数:response.write("<script>window.open('*.aspx?id="+this.DropDownList1.SelectIndex+"&id1="+...+"')</script>") 接收参数:string a = Request.QueryString("id");string b = Request.QueryStrin

  • js实现ASP分页函数 HTML分页函数

    复制代码 代码如下: <!-- //ASP分页函数 function ShowListPage(page,Pcount,TopicNum,maxperpage,strLink,ListName){     var alertcolor = '#FF0000';     maxperpage=Math.floor(maxperpage);     TopicNum=Math.floor(TopicNum);     page=Math.floor(page);     var n,p;     i

  • 用asp实现的代码批量修改程序，fso相关

    用asp实现的代码批量修改程序,fso相关 是因工作需要做的一个批量修改代码的小东西,拿出来与大家分享 目前可以处理的文件类型:.asp .inc .htm .html 具体类型可自行修改添加 程序实现的功能:将源目录下的文件批量修改后存到目的目录下 用它稍做修改可以实现很多东西噢! 别的不说了,代码里面都写的很清楚了 <% '// +---------------------------------------------------------------------------+ '//

  • 完美的ASP分页脚本代码

    直接写成函数的形式,如果输出生成好的页码,然后又程序输出或保存到文件中. 前十页为一批,第十页显示1,2,3-10:第十一页页码就变成了11,12-20 这种模式很多CMS都用到,比如5UCMS.函数名留点版权信息吧,cs=CatSeven <% function csPage(id,all,url1,url2) if id<>1 then tmp="<a href=""" rel="external nofollow"

随机推荐