在VB组件中使用串缓冲 - 3

Lesson 3 : The ASP File
--------------------------------------------------------------------------------

How2Project4.asp

The Asp Code
We can now use our component from any asp page. Here we set our connection string, the sql statement, and
the number of fields that our sql statement returns from the database. All these variables could be set
locally in the MethodName() method instead of being sent as method parameters.

<%
"~~~~~~~~~~~~~~~~~~ Set Object ~~~~~~~~~~~~~~~~~
Set oClass = Server.CreateObject("How2Project4.ClassName"

"~~~~~~~~~~~~ Set method parameters ~~~~~~~~~~~~~
strDbConnectionString = "strDSN"
strSQL = "Select ExampleFieldID, ExampleField1, ExampleField2 FROM ExampleTable"
intFieldCount = 3

"~~~~~~~~~~~~~~ Get TABLE Record ~~~~~~~~~~~~~
strHtmlTableTR = oClass.MethodName(strDbConnectionString, strSQL, intFieldCount)
%>

<HTML><HEAD><TITLE>How2 EXAMPLE</TITLE></HEAD><BODY>

<TABLE BORDER="1" CELLSPACING="3">
<%= strHtmlTableTR %>
</TABLE>

</BODY></HTML>

<%
Set oClass = Nothing
%>

Once the object is instantiated and the method called, a fully formed TABLE record (TR) will be returned
as a string. Placing it between opening and closing TABLE tags will display the following:

1 100 Text Field 2a
2 200 Text Field 2b
3 300 Text Field 2c
4 400 Text Field 2d
5 500 Text Field 2e
6 600 Text Field 2f

Again, for more specific information on the database used here, and an alternative way to populate an asp
table, read the "How To Pass a Variant Array Populated with a RecordSet From a VB Component to an asp
File" and the "How To Pass a RecordSet From a VB Component to an asp File" articles.

Happy coding….

时间: 2024-10-26 10:18:00

在VB组件中使用串缓冲 - 3的相关文章

在VB组件中使用串缓冲 - 1

Lesson 1 : Overview -------------------------------------------------------------------------------- This article serves as a quick "How To" example for using string buffering to concatenate strings in a VB component. The example VB code will ge

在VB组件中使用串缓冲 - 2

Lesson 2 : The VB Component -------------------------------------------------------------------------------- How2Project4.vbp The DoBuffer() MethodThe DoBuffer() method will be sent a string buffer (strBuffer), the value of the length of the string d

应用-VB代码中com+组件安装问题

问题描述 VB代码中com+组件安装问题 '函数名称:AddComponent '作用:添加组件到com+对应应用中 '参数:sFolder COM+目录,sSourcePath源文件夹路径,sTargetPath目标文件夹路径,sFileName组件名 Public Function AddComponent(sComFolder As String, ByVal sTargetPath As String, sFileName As String) As Boolean Dim oo As

VB.NET中的组件开发

组件开发 先看段组件的代码:(临时写的,写得比较乱) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' 登录验证组件 '' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Imports System.Security.CryptographyImports System.TextImports System.DataImpo

VB.NET中的多线程开发

多线程 引言 对于使用VB6的开发者而言,要在程序中实现多线程(multi-thread)功能,一般就是使用Win32 API调用.但凡是进行过这种尝试的开发者都会感觉到实现过程非常困难,而且总是会发生些null terminated strings GPF的错误.可是有了VB.NET,一切烦恼都成为过去. 自由线程(free threaded) 在VB6中,我们只能对组件设置多线程模式,这通常就是单元模式的多线程.对于单元线程组件而言,组件中的每个可执行方法都将在一个和组件相联系的线程上运行.

VB.NET中声音的播放 Montaque(原作)

VB.NET中声音的播放    Montaque(原作)          由VB6升级为.NET后,有些人不清楚声音的处理,比如程序出错的时候,自定义一个声音播放,或者程序的背景音乐.包括游戏音乐等等.下面介绍几种在VB.NET中计较简单可以实现的方案: 1.  Beep 最简单的一种方法,通过计算机的扬声器发出声响, 声响的音高与持续时间取决于硬件和系统软件,从而随计算机不同而不同. Beepg跟Msgbox等方法位于Microsoft.VisualBasic.Interaction 中,一

在VB.NET中进行抓屏

'Author:wgscd '功能:抓屏 'QQ153964481 'Date:2005-4-12 '*********************************  Public Class Form1     Inherits System.Windows.Forms.Form #Region " Windows 窗体设计器生成的代码 "     Public Sub New()         MyBase.New()         '该调用是 Windows 窗体设计器所

把握VB.NET中的流(Stream)

stream 当你第一次用VB.NET读写文件的时候,你肯定会发现VB.NET摒弃了传统的文件I/O支持,感觉不习惯.其实,在.NET里面,微软用丰富的"流"对象取代了传统的文件操作,而"流",是一个在Unix里面经常使用的对象.我们可以把流当作一个通道,程序的的数据可以沿着这个通道"流"到各种数据存储机构(比如:文件,字符串,数组,或者其他形式的流等).为什么我们会摒弃用了那么久的IO操作,而代之为流呢?其中很重要的一个原因就是并不是所有的数据

VB.NET中声音的播放

由VB6升级为.NET后,有些人不清楚声音的处理,比如程序出错的时候,自定义一个声音播放,或者程序的背景音乐.包括游戏音乐等等.下面介绍几种在VB.NET中计较简单可以实现的方案: 1.  Beep 最简单的一种方法,通过计算机的扬声器发出声响, 声响的音高与持续时间取决于硬件和系统软件,从而随计算机不同而不同. Beepg跟Msgbox等方法位于Microsoft.VisualBasic.Interaction 中,一般默认系统会自动加载.调用很简单,看下面的例子. Dim I As Inte