VB开发ASP组件经典事例[二]

原创 2006年06月02日 03:18:00

[] VB源码

       操作:

1  打开VB6,修改工程名为:TestCOM,类模块名为:CDTB

2  工程>>引用 Microsoft ActiveX Data Objects 2.7 Library (注意:版本不能太高,最好是2.8以下,否则生成DLL会出现错误)

3  在类文件中输入如下代码

 

Option Explicit

 

Private Conn As ADODB.Connection

Public Function OpenDB(StrConn As String) As ADODB.Connection

Set Conn = New ADODB.Connection

Conn.Open StrConn

Set OpenDB = Conn

End Function

 

Public Sub CloseDB()

     If Not (ConnIs Nothing) Then

          Conn.Close

          SetConn = Nothing

     End If

End Sub

 

Public Function Add(CD_Name As String, CD_Author As String) As Boolean

     Dim Rs As New ADODB.Recordset

     On Error GoTo er1

     Rs.Open "Temp_CD", Conn, 1, 3

     Rs.AddNew

          Rs.Fields("CD_Name") = CD_Name

          Rs.Fields("CD_Author") = CD_Author

     Rs.Update

     Add = True

     Exit Function

er1:

     Add = False

End Function

 

Public Function Delete(CD_ID As String) As Boolean

     On Error GoTo er1

     Conn.Execute "Delete From Temp_CD Where CD_ID = '" & CD_ID & "'"

     Delete = True

     Exit Function

er1:

     Delete = False

End Function

 

Public Function Search(CD_ID As String) As ADODB.Recordset

          Set Search = Conn.Execute("Select * From Temp_CD Where CD_ID = '" & CD_ID & "'")

End Function

 

Public Function Update(CD_ID As String, CD_Name As String, CD_Author) As Boolean

     On Error GoTo er1

     Conn.Execute "Update Temp_CD Set CD_Name = '" & CD_Name & "',CD_Author = '" & CD_Author & "' Where CD_ID = '" & CD_ID & "' "

     Update = True

     Exit Function

er1:

     Update = False

End Function

 

 

4、文件>>生成TestCOM.dll

5、调试:(修改VB源码后重新生成DLL

把如下代码保存为*.bat格式

regsvr32 -u E:/Program/VB/Test_CD/TestCOM.dll
net stop "world wide web publishing service"
net Start "world wide web publishing service"

 

 

 

VB开发ASP组件经典事例[一]

 [一] 纯ASP脚本表现功能[增/删/查/改]Test_Tb.asp-----------------------------------------------------------------...
  • Swanzy
  • Swanzy
  • 2006年06月02日 03:04
  • 1412

VB开发ASP组件经典事例[三]

 [三] ASP页中调用DLLOperate.asp--------------------------------------------------------------------------...
  • Swanzy
  • Swanzy
  • 2006年06月02日 03:24
  • 1283

VB语言COM组件开发GUID指定方法

一、背景          VS2010开发环境下,VB的开发许多代码可以自动的生成模板,节省大量开发时间。 二、方法    新建一个项目,选择Visual Basic\Window \ 类库,假设项...
  • zhouqt
  • zhouqt
  • 2016年05月24日 21:12
  • 1329

vb编写dll组建,并在asp中调用的例子

如何把ASP编写成DLL动手写个小组件(组件入门)主题  这篇文章主要是为想将自己的ASP水平提高的人写的! 把ASP代码变成组件,开发者不仅是加快了ASP的速度,而且也能保护自己的代码.这篇文章写出...
  • jackeyabc
  • jackeyabc
  • 2007年03月07日 13:59
  • 1117

使用VB开发封装ASP的DLL例子

      封装为dll会带来很多的好处,主要包括只是产权的保护,以及效率和安全性能的提升。这个例子中被封装的dll文件可以隐藏access数据库的实际路径。VB生成的DLL封装ASP代码来连接数据库...
  • liaojiafan
  • liaojiafan
  • 2010年09月30日 11:10
  • 2097

如何用VB6写COM组件

   所幸的是,我们可以用COM组件来在最大程度上扩展ASP的功能。你可知道,任何可以用诸如VB,VC和VJ以及其它的一些程序语言所写出来的东西,都可以被应用到你的网站的开发中去,这就是COM(组件对...
  • jevylau
  • jevylau
  • 2007年02月25日 09:30
  • 534

VB(ASP,VBScript) 获取数组长度函数

获取数组长度Function ArrayLength(ByVal Arr) On Error Resume Next ArrayLength = UBound(Arr) - LBound(Arr) I...
  • easternwind
  • easternwind
  • 2007年10月16日 09:30
  • 2573

asp(vb)实用实例

一基础语法语句   语句   ……  %>定义变量dim语句  dim a,b  a=10  b=”ok!”%>注意:定义的变量可以是数值型,也可以是字符或者其他类型的简单的控制流程语句  1. If...
  • hbu_dcf
  • hbu_dcf
  • 2008年10月21日 18:04
  • 2181

vb中将数据导出到excel表格中

下面是将msflexgrid中的数据导出到excel的代码:       Dim XlApp As Excel.Application       Dim XlBook As Excel.Work...
  • xiaoduishenghuogo
  • xiaoduishenghuogo
  • 2011年08月19日 15:02
  • 1065

asp 实现访问memcached方式

由于memcache没有提供asp访问的api,因此需要通过创建一个能够访问memcache的asp组件,而这个组件是使用C#实现。其中有组件如下。 在使用asp缓存组件之前,都需要先安装win32的...
  • zouqingfang
  • zouqingfang
  • 2012年11月27日 09:33
  • 1515
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB开发ASP组件经典事例[二]
举报原因:
原因补充:

(最多只允许输入30个字)