asp数据库连接函数

代码如下:

' ********************************************
' 以下为数据库相关函数
' ********************************************
' ============================================
' 初始化数据库连接对象
' 使用原则:最迟调用,最早释放
' ============================================
Sub DBConnBegin()
 ' 如果数据库对象已打开,不要再打开
 If IsObject(oConn) = True Then Exit Sub

' 你可以不需要打开数据库连接对象而直接打开记录集对象,但如果你需要打开多个记录集对象的话,效率是很低的。
 ' 如果你不创建一个数据库连接对象,ADO会在每个记录集打开时自动创建一个新的数据库连接对象,就算你用的是相同的SQL语句。
 Set oConn = Server.CreateObject("ADODB.Connection")

On Error Resume Next
 oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/lbedit.mdb")

If Err.Number > 0 Then
  ' 显示错误信息,并且发送邮件通知管理员
  'Call DBConnError(Err)

' 完全地退出正在运行的脚本
  Response.End
 End If

' 创建一个记录集
 Set oRs = Server.CreateObject( "ADODB.Recordset" )
End Sub

(0)

相关推荐

  • 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 数据库连接函数代码

    以下是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.

  • 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数据库连接函数

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

  • ASP数据库连接方式大全

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

  • ASP 时间函数及如何获取服务器时间的写法

    一.常用的ASP时间函数 1.now() 获取当前系统日期和时间,ASP输出格式:<%=now()%> 2.Year(now()) 获取年份, ASP输出格式:<%=Year(now())%> 3.Month(now()) 获取当前月份,ASP输出格式:<%=Month(now())%> 4.day(now()) 获取当天数,ASP输出格式:<%=day(now())%> 5.hour(now())获取小时数,ASP输出格式:<%=hour(now()

  • 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常用函数收藏乱七八糟未整理版

    <% '******************************************************************* '取得IP地址 '******************************************************************* Function Userip()     Dim GetClientIP     '如果客户端用了代理服务器,则应该用ServerVariables("HTTP_X_FORWARDED_FOR&

  • ASP GetRef 函数指针试探

    GetRef 函数 返回一个指向一过程的引用,此过程可绑定某事件. Set object.eventname = GetRef(procname) 参数 object 必选项.事件所关联的对象的名称. eventname 必选项.要与函数绑定的事件的名称. procname 必选项.该字符串中包含 Sub 或 Function 过程的名称,该过程与事件关联. 说明 GetRef 函数可以用来将 VBScript 过程 (Function 或 Sub) 与 DHTML (动态 HTML)页面中可用

  • asp 常用函数用法

    Array()   FUNCTION: 返回一个数组   SYNTAX: Array(list)   ARGUMENTS: 字符,数字均可   EXAMPLE: <%   Dim myArray()   For i = 1 to 7   Redim Preserve myArray(i)   myArray(i) = WeekdayName(i)   Next   %>   RESULT: 建立了一个包含7个元素的数组myArray   myArray("Sunday",&

  • 一个asp替换函数img里面多余的代码

    <% Response.Write(Server.HTMLEncode(FixImg("<img onclick=""if(this.width>screen.width-461) window.open('qq/20082181405371.jpg');"" alt="""" border=""0"" src=""qq/200821814

  • Asp Split函数之使用多个分割符的方法

    首先,我在知道Split这个函数的作用,是把一个字符串按指定的分割符分割成一个字符串数组. ASP里有这个Split,是这样定义的dim Split(byval source as string ,byval str as string) as string()   source是源字符串,str是分隔符   我这里用了VB.net的写法,方便说明返回值的类型和参数的类型.   大家一看就明白怎么用了. 在C#里,我们是这样用的   string[] Split(string source,ch

随机推荐