使用组件封装数据库操作(二)

最新推荐文章于 2022-07-12 11:16:55 发布
最新推荐文章于 2022-07-12 11:16:55 发布
阅读量4.7k 收藏 1
点赞数
分类专栏： 组件类 文章标签： 数据库 function 测试 microsoft vbscript asp
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/online/article/details/7764
版权
 

使用组件封装数据库操作(二)

前段日子发表的文章，数据库的连接代码可以直接在ASP文件中显示出来。这次又进行了一次封装。

打开vb，新建Activex控件，工程名称为WebDb，类模块名称为GetInfomation

引用”Microsoft Activex Data Object 2.6 Library ”

Private Conn As ADODB.Connection

Private Rs As ADODB.Recordset

 

‘作用:判断数据库是否正确连结

'自己可以更改连接串

Public Function GetConn()

Conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=yang"

If Err.Number <> 0 Then

    GetConn = False

Else

    GetConn = True

End If

End Function

 

‘根据输入的雇员ID,得到雇员的名称

Public Function GetEmployeeName(strEmployeeID As Integer) As String

   

    Dim strSql As String

    Set rs = New ADODB.Recordset

    strSql = "select LastName+firstname from employees where EmployeeID=" & strEmployeeID

   

    rs.Open strSql, Conn, adOpenStatic, adLockOptimistic

   

    If rs.EOF Then

        GetEmployeeName = ""

    Else

        GetEmployeeName = rs.Fields(0)

    End If

   

    rs.Close

End Function

‘返回所有的雇员列表

Public Function GetEmployeeList() As ADODB.Recordset

 

    Dim strSql As String

    Set rs = New ADODB.Recordset

    strSql = "select EmployeeID,LastName,FirstName,Title,TitleOfCourtesy,BirthDate,HireDate,Address,City from employees"

    rs.CursorLocation = adUseClient

    rs.Open strSql, Conn, adOpenStatic

   

    Set GetEmployeeList = rs

    'rs.Close

End Function

 

我们进行测试

新建ASP页面，”TestWebDb1.asp”。主要用来测试GetEmployeeList()方法

<HEAD>

 

<!- 测试页 ->

<!- 功能：测试组件 ->

<!- 作者：龙卷风.NET ->

 

<%

    Dim strTopic

    Dim strTitle

    Dim strContents

    Dim DataQuery

       Dim Rs

       Dim Myself

       Myself=Request.ServerVariables("script_name")

    Set DataQuery=Server.CreateObject("WebDb.GetInfomation")

       Set Rs=Server.CreateObject("adodb.recordset")   

%>

 

<TITLE>

   数据组件测试页

</TITLE>

 

<H1><CENTER>欢迎使用数据组件(www.ourfly.com)</CENTER></H1>

 

<%

       Dim Flag

       Flag=DataQuery.GetConn()

       If Flag=false then

              ResPonse.Write "数据库没有连结,请检查"

              ResPonse.End

       End if

 

       Set Rs=DataQuery.GetEmployeeList()

       if rs.eof then

              Response.write "没有数据,请查询"

              Response.end

       end if

 

    Rs.PageSize =3

    Page= CLng(Request.QueryString ("Page"))

 

    If Page < 1 Then Page = 1

    If Page > Rs.PageCount Then Page = Rs.PageCount

 

         Response.Write "<CENTER><TABLE BORDER=1 cellspacing=0 cellpadding=2>"

         Response.Write "<tr BGCOLOR=silver align=center>"

         Response.Write "<td>EmployeeID</TD>"

         Response.Write "<td>LastName</td>"

           Response.Write "<td>FirstName</td>"

               Response.Write "<td>Title</a></td>"

           Response.Write "<td>TitleOfCourtesy</a></td>"

           Response.Write "<td>BirthDate</td>"

           Response.Write "<td>HireDate</td>"

           Response.Write "<td>Address</td>"

           Response.Write "<td>City</td>"

         Response.Write "</tr>"

 

               Rs.AbsolutePage = Page

               For iPage = 1 To Rs.PageSize

                     Response.Write "<TR align=right>"

                   for i=0 to Rs.fields.count-1

                          Response.Write "<td>"&Rs.fields.item(i)&"</td>"

                      next

                     Response.Write "</TR>"

                      Rs.MoveNext

                      If Rs.EOF Then Exit For

                next

      Response.Write "</TABLE></CENTER>"

%>

 

<Form name="myform" method="get">

<%If Page <> 1 Then%>

     <A HREF="<%=Myself%>?Page=1">第一页</A>

     <A HREF="<%=Myself%>?Page=<%=(Page-1)%>">上一页</A>

<%End If%>

  <%If Page <> Rs.PageCount Then%>

  <A HREF="<%=Myself%>?Page=<%=(Page+1)%>">下一页</A>

  <A HREF="<%=Myself%>?Page=<%=Rs.PageCount%>">最后的一页</A>

<%End If%>

页次:<FONT COLOR="Red"><%=Page%>/<%=Rs.PageCount%></FONT>

</Form>

 

<%

Rs.close

%>

 

 

新建ASP页面，”TestWebDb2.asp”。主要用来测试GetEmployeeName()方法

这个页面相对简单一些

<HEAD>

 

<!- 测试页 ->

<!- 功能：测试组件 ->

<!- 作者：龙卷风.NET ->

 

<%

    Dim DataQuery

       Dim strID

       Dim strResult

    Set DataQuery=Server.CreateObject("WebDb.GetInfomation")

%>

 

<TITLE>

   数据组件测试页

</TITLE>

 

<H1><CENTER>欢迎使用数据组件(www.ourfly.com)</CENTER></H1>

 

<%

    If Len(Request.QueryString("ID")) > 0 Then

        strID = Request.QueryString("ID")

 

              Dim Flag

              Flag=DataQuery.GetConn()

              If Flag=false then

                     ResPonse.Write "数据库没有连结,请检查"

                     ResPonse.End

              End if

             

              strResult=DataQuery.GetEmployeeName(cint(strID))

              if strResult="" then

                     Response.Write "对不起,没有这个编号,请查询"

                     Response.End

              else

                     ResPonse.Write strResult

              end if

       End If

%>

 

<FORM NAME="MyForm">

<INPUT TYPE=TEXTBOX NAME="EmpID" SIZE=40><P>

 

<INPUT LANGUAGE="VBScript"

       TYPE="BUTTON"

       VALUE="Search"

       ONCLICK="window.location.href = 'TestWebDb2.asp?ID=' _

               + MyForm.EmpID.Value">

 

</FORM>

</HEAD>

一些想法:数据库连结如果放到组件里，如果要修改数据库连结，则要重新编译组件，可能会由此引发一些问题(但是推荐这种，毕竟数据库名和服务器名不会经常改)

如果数据库连结放到ASP页面，可以通过属性传值到组件中，但是安全性会降低。

真是……

 

好了，这篇文章结束了,希望对大家有帮助

今后的话题便是如何实现AspToDll这个软件的功能，我们一步一步实现。

online
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
专栏目录
数据库操作组件
06-08
同时支持sqlserver、oracle、access、Mysql多种数据库的数据操作方法
使用组件封装数据库操作(一)
龙卷风.NET的专栏
12-11 2428
   其实，大家在书写asp程序时，最担心的可能就是数据库的连接信息，会被一些人看到，进行一些破坏。下面我们用vb6.0来做一个动态链接库(.dll)来隐藏数据库的连接信息。 　　启动vb6.0，新建-->Active  dll工程。单击"工程"-->引用,选择"microsoft  active  server  pages  object  library" 和"microsoft  acti
RabbitMQ-基础组件封装
听雪楼
12-31 5332
基础组件封装思路和架构设计方案 支持高性能的序列化转换, 异步化发送消息 支持消息生产实例与消费实例的链接池化缓存化, 提升性能 支持可靠性投递消息, 保障消息100%不丢失 支持消费端的幂等操作, 避免消费端重复消费的问题 支持迅速消息发送模式, 在一些日志收集/统计分析等需求下可以保证高性能, 高吞吐量 支持延迟消息模式, 消息可以延迟发送, 指定延迟时间, 用于某些延迟检查, 服务限流场...
Django数据库操作
m0_65883616的博客
07-12 7388
Django数据库操作， ORM模块配置， 单表操作增、删、改、查 两表联查：一对多、一对一、多对多 序列化、模型类序列化
Mysql数据库连接池组件封装(Python篇)
八一菜刀的专栏
10-10 2449
以前一直在用Java来开发,数据库连接池等都是有组件封装好的,直接使用即可,最近在尝试Python的学习,碰到了和数据库打交道的问题,和数据库打交道我们都知道,数据库连接池必不可少,不然要么就是程序异常不稳定,要么就是数据库莫名其妙挂了, 本篇博客主要是对数据库操作的简单封装,相当于一个DBHelper操作类 组件 Python中的数据库连接操作所需组件 pymysql:mysql的Python...
数据库及组件操作封装类
10-31
对数据库及组件操作封装,使用类调用,方便使用.
com组件的数据库连接文件
05-26
MFC ACCESS数据库操作库函数封装类 MFC ACCESS数据库操作库函数封装类 MFC ACCESS数据库操作库函数封装类
c# 数据库操作组件
12-10
SqlCommand,SqlDataReader等等，在参照了SqlHelper类的基础上重新设计了一个通用.net平台数据操作组件，该组件对ADO.Net进行封装后，通常是只需要给方法传入一些参数如数据库连接字符串，SQL参数等，就可以访问...
SQLHelper数据库操作组件
07-28
SqlHelper是一个基于.NET Framework的数据库操作组件。组件中包含数据库操作方法，SqlHelper有很多版本，主要以微软一开始发布的SqlHelper类，后面包含进了Enterprise Library开源包中了。还有一个主要版本是...
ASP与ActiveX控件交互实战(一)
热门推荐
龙卷风.NET的专栏
08-09 1万+
龙卷风关键字:ASP,ActiveX控件,数字签名,安全ActiveX控件运行在客户端。我们可以获得客户端的一些信息，如IC卡的信息,客户端的验证等等。但是ActiveX控件也有许多缺点：客户端的部署很困难，如客户端不能正确下载，下载了以后不能正确执行，下载的时候需要设置IE的安全级别等等。更多的时候，我都在使用COM组件来扩展ASP的功能。准确地说，是服务端运行的Activex Dl
Asp组件高级入门与精通系列之一
龙卷风.NET的专栏
07-13 9685
很久没有写这个系列了，最近一直在忙其他的东西高级的组件话题我们将讨论一些比较难实现的，复杂的东西前段时间我写了一个龙卷风缩略图水印组件，感觉效果还不错，由于是vb写的，有一些难度，大家一起来看看这里有帖子：http://community.csdn.net/Expert/topic/4115/4115767.xml?temp=.9513056功能如下：龙卷风缩略图水印组件1.0版功能特点:1.支持
ASP与ActiveX控件交互实战(二)
龙卷风.NET的专栏
08-09 8718
龙卷风关键字:ASP,ActiveX控件,数字签名,安全 我们来看看如何从服务端获取数据，传递到ActiveX控件中。1）  初始化时使用参数绑定2）  运行时得到数据 打开vb6,新建ActiveX控件工程。工程名:fOcx，用户控件名:UC2为了方便，我们使用ActiveX控件接口向导…,菜单->外接程序->外接程序管理器->VB 6 ActiveX控件接口
ASP与ActiveX控件交互实战(三)
龙卷风.NET的专栏
08-09 6166
龙卷风关键字:ASP,ActiveX控件,数字签名,安全 问题提出:ActiveX控件得到客户端的信息，如何传递到服务端???一种方法就是得到值后,使用Get,Post方式提交,这可能也是最常用的.有没有更好一些的方法呢?能不能在控件中直接向服务器发出请求而得到数据呢? 打开vb6,新建ActiveX控件工程。工程名:fOcx，用户控件名:UC3添加1个
Asp组件中级入门与精通系列之四
龙卷风.NET的专栏
08-19 5649
我们学习来Request看如何在组件中得到页面提交的内容 打开vb6,新建Activex Dll工程。工程名修改为fCom,类名修改为fZ4 引用“Microsoft Active Server Pages Object”对象库。 创建两个组件事件：OnStartPage以及OnEndPage 在事件OnStartPage中创建类ScriptingContent的一个引用。 实例化类S
Asp组件中级入门与精通系列之八
龙卷风.NET的专栏
01-01 4588
这段时间一直比较忙，呵呵今天我们来看一下一个完整的数据封装的、带分页的例子 打开vb6,新建Activex Dll工程。工程名修改为fCom,类名修改为fZ8 引用“Microsoft Active Server Pages Object”，”Microsoft Activex Data Object 2.7 Library”对象库。  创建两个组件事件：OnStartPage
Asp组件高级入门与精通系列之三
龙卷风.NET的专栏
07-13 4101
asp中测试  生成缩略On Error resume nextset obj=server.CreateObject("flysoft.image")obj.LoadFromFile=server.MapPath("./love.bmp") 原始图片obj.Rate =0.5 缩放比率 其中1为放大obj.OutputImgFile  server.MapPath("./lovethumb
COM+系列——实战演练MSMQ(消息队列)(一)
龙卷风.NET的专栏
07-07 3987
COM+系列——实战演练MSMQ(消息队列)(一) 龙卷风 关键字：COM+,MSMQ. ? 概述： 谈起消息队列，不能不提起COM+。实际上COM+是三种技术的结合：DCOM、MTS和MSMQ。 我们先了解一下什么是消息队列(MSMQ)？MSMQ(MicroSoft??Message??Queue，微软消息队列)是 Windows 2000（NT也有MSMQ，WIN95/98/me/xp不含消息
vc++ ado数据库操作类
最新发布
02-03
ADO数据库操作类是一个封装了ADO接口的类库，封装了与数据库的连接、查询、更新等操作，提供了一组易于使用的函数和方法，方便开发人员进行数据库操作。使用ADO数据库操作类，可以大大减少开发工作量，简化了数据库...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值