本篇文章给大家谈谈asp封装dll教程，以及asp调用dll对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。
本文目录一览：
asp.net怎么把一个类封装成为dll文件
ascx是用户控件，在页面上直接引用就可以了，不需要封装，你发布的时候，编译器会帮你编译成dll，不用担心代码安全问题。
页面上用的时候在顶端添加引用
%@ Register Src=”WebUserControl.ascx” TagName=”TName” TagPrefix=”TN” %
然后在要用的地方加上个标签就可以了
TN:TName ID=”TName1″ runat=”server” /
================================================================
补充
================================================================
你可以创建一个类项目，然后在项目里重载你要的控件，编译出来的就是一个DLL，在项目toolbar里添加引用，就可以使用了。
100分紧急求助一些关于asp封装dll技术的资料
一、引言
Server端的脚本运行环境，它简单易用，不需要编译和连接，脚本可以在 Server端直接运行，并且它支持多用户、多线程，在 Web开发中得到了广泛的应用。服务器端的组件有别于客户端的组件。客户端的组件是通过网络传输,依靠HTML来起作用，而且只能在IE上有用。但是服务器端的组件是运行在服务器端,它在服务器上执行各种操作。因此，所有的浏览器都能享用,它依靠的是服务器而不是浏览器。但是，因为 ASP脚本是纯文本格式，所以恶意者通过源代码可以很容易地看到原本不该看到的页面内容。因此，保护ASP源代码显得非常重要。将ASP代码封装成DLL,不仅加快了ASP代码的执行速度,而且也能保护原代码。当IIS被请求执行一个ASP程序,它首先会在ASP文件中找到标签之间的代码,并且执行它(也可以是之间的代码)。如果这个ASP程序在先前被调用过,那么它就会用内存中的编译过的程序来向用户返回HTML代码,如果没有,那么它就重新编译。这样就大大节省了服务器的资源。
二、实现方法
启动你的VB,选择ActiveX图标。这个图标可以在新建工程找到!VB会提供一个默认的工程名(project1)和类名(class1)。在动手之前请首先确认我们拥有Microsoft ActiveX Data Object 2.0 Library,它在我们的程序非常有用。从菜单中选择”工程”,然后在其中选择”引用”,就会出现”引用”窗口,从中选择Microsoft ActiveX Data Object 2.0 Library。
现在我们有了我们自己的工程(project1)和类名(class1)。以后我们就会在ASP代码中使用它们的名字来引用这个组件。在ASP中我们就这样引用,如下:
Set ObjReference = Server.CreateObject(“ProjectName.ClassName”)
为了在类中使用ASP的方法,你必须在此类中写上初始和终止这两个函数。输入如下代码：程序清单中
Class1.cls中的Private Sub Class_Initialize()和Private Sub Class_Terminate()
将ASP代码中的关键功能制作成动态链接库(.dll)，部分隐藏 ASP源代码。 例如：程序清单中的Global.bas和Class1.cls中输入的代码（代码的主要功能是检索数据库中的记录并显示出来）。
在VB的下拉菜单中选择文件→生成article.dll→选择要保存的目录。找到article.dll将其复制到系统盘system32文件夹中，最后一步注册DLL文件。在开始菜单中选择运行输入regsvr32 c:\winnt\system32\article.dll。
三、程序清单
Global.bas中的代码：
Public objContext As ObjectContext
Public Application As ASPTypeLibrary.Application
Public Server As ASPTypeLibrary.Server
Public Session As ASPTypeLibrary.Session
Public Response As ASPTypeLibrary.Response
Public Request As ASPTypeLibrary.Request
Class1.cls中的代码：
Private Sub Class_Initialize()
On Error Resume Next
Set objContext = GetObjectContext
Set Application = objContext.Item(“Application”)
Set Server = objContext.Item(“Server”)
Set Session = objContext.Item(“Session”)
Set Request = objContext.Item(“Request”)
Set Response = objContext.Item(“Response”)
End Sub
Private Sub Class_Terminate()
On Error Resume Next
Set Application = Nothing
Set Server = Nothing
Set Session = Nothing
Set Request = Nothing
Set Response = Nothing
Set objContext = Nothing
End Sub
Public Sub AspClassInit()
On Error GoTo Err
Set conn = Server.CreateObject(“ADODB.Connection”)
strcon = “Provider=Microsoft.Jet.OLEDB.4.0;” _
“Data Source=” Server.MapPath(“Article.mdb”)
conn.Open strcon
Set rs = Server.CreateObject(“ADODB.Recordset”)
sql = “select * from Article order by ArticleID desc”
rs.Open sql, conn, 1, 1
Response.Write “html” vbCrLf
Response.Write “head” vbCrLf
Response.Write “meta http-equiv=””Content-Type”” content=””text/html; charset=gb2312″”” vbCrLf
Response.Write “title文章管理系统-CSSTUDIO/title” vbCrLf
Response.Write “/head” vbCrLf
Response.Write “body bgcolor=””#FFFFFF”” topmargin=””0″”” vbCrLf
Response.Write “table width=””100%”” border=””0″” cellpadding=””2″” cellspacing=””0″”” vbCrLf
Response.Write ” tr” vbCrLf
Response.Write ” td width=””742″” height=””20″”文章标题/td” vbCrLf
Response.Write ” td width=””90″”点击/td” vbCrLf
Response.Write ” td width=””145″”添加日期/td” vbCrLf
Response.Write ” /tr” vbCrLf
Response.Write “/table” vbCrLf
While Not rs.EOF And Rows rs.PageSize
Response.Write “table width=””100%”” border=””0″” cellspacing=””0″” cellpadding=””0″”” vbCrLf
Response.Write ” tr” vbCrLf
Response.Write ” td width=””747″” height=””20″”a href=””view.asp?id=”
Response.Write rs(“ArticleID”)
Response.Write “””” vbCrLf
Response.Write ” ”
Response.Write rs(“标题”)
Response.Write “/a/td” vbCrLf
Response.Write ” td width=””94″””
Response.Write rs(“点击”)
Response.Write “/td” vbCrLf
Response.Write ” td width=””148″””
Response.Write rs(“添加日期”)
Response.Write “/td” vbCrLf
Response.Write ” /tr” vbCrLf
Response.Write “/table” vbCrLf
rs.MoveNext
Wend
Response.Write “/body” vbCrLf
Response.Write “/html” vbCrLf
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
Exit Sub
Err:
If Err.Number = -13572468 Then Exit Sub
Resume Next
End Sub
使用article.dll后的index.asp中的代码：
%Dim AspTransBuilderObject
Set AspTransBuilderObject = Server.CreateObject(“article.Class1”)
AspTransBuilderObject.AspClassInit
Set AspTransBuilderObject = Nothing%
使用article.dll前的index.asp中的代码：
% Set conn=Server.CreateObject(“ADODB.Connection”)
strcon = “Provider=Microsoft.Jet.OLEDB.4.0;” _
“Data Source=” Server.MapPath(“Article.mdb”)
conn.Open strcon %
% Set rs = Server.CreateObject (“ADODB.Recordset”)
sql=”select * from Article order by ArticleID desc”
rs.Open sql, Conn,1,1 %
html
head
meta http-equiv=”Content-Type” content=”text/html; charset=gb2312″
title文章管理系统-CSSTUDIO/title
/head
body bgcolor=”#FFFFFF” topmargin=”0″
table width=”100%” border=”0″ cellpadding=”2″
cellspacing=”0″
tr
td width=”742″ height=”20″文章标题/td
td width=”90″点击/td
td width=”145″添加日期/td
/tr
/table
% While Not Rs.Eof And RowsRs.PageSize %
table width=”100%” border=”0″ cellspacing=”0″
cellpadding=”0″
tr
td width=”747″ height=”20″a href=”view.asp?id=%
= rs(“ArticleID”) %”
% =rs(“标题”) %/a/td
td width=”94″% = rs(“点击”) %/td
td width=”148″% = rs(“添加日期”) %/td
/tr
/table
% Rs.MoveNext
Wend %
/body
/html
% rs.close
set rs=nothing
conn.close
set conn=nothing %
四、结论
因为这些代码是在服务器端运行的，所以客户端不需要安装任何东西。这仅仅是用ActiveX DLL所能实现的功能的小小的例子。你们可以写好自己的更大的组件,而且还可以用VB中的很多控件。让我们用组件来扩展我们的程序的功能吧!也希望多多的看到我们中国人的组件。但愿本文能起到抛砖引玉的作用。
怎样把ASP程序封装成.dll，然后在虚拟主机上注册！
这篇文章以VB生成的DLL封装ASP代码来连接数据库（以Access数据库为例）。
一般情况下我们在用ASP连接Access的数据库时通常都会进行如下的操作
‘//Proconn.asp
%
dim ProConn
set ProConn=Server.CreateObject(“ADODB.CONNECTION”)
ProConn.Open “driver={Microsoft Access Driver (*.mdb)};uid=;pwd=123;DBQ=” Server.MapPath(“DB.asp”)
‘一个原本为DB.mdb的Access数据库更改后缀为DB.asp的文件，数据库密码123
if err.Number 0 then
ResPonse.Write “数据库没有连结,请检查”
ResPonse.End
else
ResPonse.Write “数据库连结成功”
ResPonse.End
end if
%
如果配置好服务器，访问Proconn.asp，如果连接数据库成功会输出“数据库连结成功”。
但是这样的asp代码的安全级别非常低，如果此asp原代被人看到，那么再有此数据库文件的话，其他人就能轻而易举的
随便打开你的数据库进行操作。
所以我们的任务来了，如何将这些关键的内容封装起来呢？
首先需要确定方式方法和对象。
查看了网上的一些资料，主要都是用VB生成DLL的办法来封装的，那么我们也采取这样的方法好了，（虽然我还没用真正用过VB这东东）
方式方法确定，那么什么是我们需要封装的对象呢？
大家来看
“driver={Microsoft Access Driver (*.mdb)};uid=;pwd=123;DBQ=” Server.MapPath(“DB.asp”)
是最关键的代码，这段代码封装在一个用VB生成的DLL中，应该比较好。
之所以不将整个
dim ProConn
set ProConn=Server.CreateObject(“ADODB.CONNECTION”)
ProConn.Open “driver={Microsoft Access Driver (*.mdb)};uid=;pwd=123;DBQ=” Server.MapPath(“DB.asp”)
都封装，（因为网上有讲将整个连接代码都封装）是因为，在其他asp文件引用Proconn.asp时，
我还需要里面的ProConn进行其他操作，如果封装，不便进行引用和操作。
（以上封装对象的解释原因是我个人的见解，有朋友说整体封装对ProConn的使用没有影响，这个我不理解，请知道的给我讲讲）
所在只想封装最关键的部分“”driver={Microsoft Access Driver (*.mdb)};uid=;pwd=123;DBQ=” Server.MapPath(“DB.asp”)”
分析一下这段要封装的内容，
它的前半部分就是一个字符串：
“driver={Microsoft Access Driver (*.mdb)};uid=;pwd=123;DBQ=”
用连接上后半部分的另一个字符串。
后半部分的另一个字符串是Server.MapPath对象函数的返回值。
下面开始这个封装的操作过程。
首先
新建一个VB下的ActiveX DLL工程，工程的名称Project1更改成ConDBDLL?? 方法class1的名称更改成cs
工程名和方法名会在调用这个DLL的时候使用到，大家可以按照自己命名规则定义，但请注意好好使用。
这个DLL的代码部分书写如下：
Dim rp As Response
Dim rq As Request
Dim ap As Application
Dim sr As Server
Dim sn As Session
Public Sub OnStartPage(MyScriptingContext As ScriptingContext)
Set rp = MyScriptingContext.Response
Set rq = MyScriptingContext.Request
Set sr = MyScriptingContext.Server
Set ap = MyScriptingContext.Application
Set sn = MyScriptingContext.Session
End Sub
Public Sub OnEndPage()
Set rp = Nothing
Set rq = Nothing
Set sr = Nothing
Set ap = Nothing
Set sn = Nothing
End Sub
‘以上语句是必须的，将原本的对象作了简化处理，并在两个基本函数中作了处理
Public Function ConnectDB() As Variant
ConnectDB = “driver={Microsoft Access Driver (*.mdb)};uid=;pwd=123;DBQ=”
End Function
‘上面这个函数是处理前半部分字符串的，直接返回这个字符串的内容
‘另外定义下面这个函数来处理后半部分内容
Public Function DBPath() As Variant
DBPath = sr.MapPath(“DB.asp”)
End Function
‘注意上面使用的是sr，不要使用成Server了
到了关键的一步，给这个工程添加”Microsoft Active Server Pages ObjectContext Object Library” 的 Reference
添加方法，选择菜单中的”Project”-“Reference”,在打开的对话框里选择。
对了，还要选择上”microsoft activeX data objects 2.6 library”
进行完以上操作，我们就可以编译生成DLL了，（别忘了前面的改工程名和方法名）
准备好数据库文件DB.asp (由DB.mdb更改后缀而成，密码123)
下面就是调用封装的连接数据库的asp文件代码：
‘//ProConn.asp
%
dim ProConn
set ProConn=Server.CreateObject(“ADODB.CONNECTION”)
Dim ConDB
set ConDB=Server.CreateObject(“ConDBDLL.Conn”)
‘ConDB就是创建的DLL对象
Dim StrConn
‘定义一个字符串
StrConn = ConDB.ConnectDB() ConDB.DBPath()
‘连接两部分内容组成字符串
ProConn.Open StrConn
‘执行数据库对象操作
%
由于是自己创建的DLL，把它拷贝到相应的目录后，必须注册才能使用。
注册的方法，在“运行”中执行：
Regsvr32.exe lyfUpload.dll
取消这个DLL的注册的方法是：Regsvr32.exe /u lyfUpload.dll
注册完毕，我们的工作基本上就做完了，现在我们可以使用这样的封装方法连接具有针对性的数据库了。
不过有一点需要特别注意的是：
由于
Dim ConDB
set ConDB=Server.CreateObject(“ConDBDLL.Conn”)
‘ConDB就是创建的DLL对象
这是在ASP中创建的对象，包括ProConn，那么我们在任何使用到（引用）ProConn.asp的其他ASP文件中记得释放这两个对象！
ProConn.close
set ProConn=nothing
set ConDB=Nothing
否则系统会由于对象没有释放，而变得越来越不堪重负。
远程注册DLL
＜% Response.Buffer = True %＞
＜% Server.ScriptTimeout = 500
Dim frmFolderPath, frmFilePath
frmFolderPath = Request.Form(“frmFolderPath”)
frmFilePath = Request.Form(“frmDllPath”)
frmMethod = Request.Form(“frmMethod”)
btnREG = Request.Form(“btnREG”)
%＞
＜HTML＞
＜HEAD＞
＜TITLE＞Regsvr32.asp＜/TITLE＞
＜STYLE TYPE=”TEXT/CSS”＞
.Legend {FONT-FAMILY: veranda; FONT-SIZE: 14px; FONT-WEIGHT: bold; COLOR: blue}
.FS {FONT-FAMILY: veranda; FONT-SIZE: 12px; BORDER-WIDTH: 4px; BORDER-COLOR: green;
MARGIN-LEFT:2px; MARGIN-RIGHT:2px}
TD {MARGIN-LEFT:6px; MARGIN-RIGHT:6px; PADDING-LEFT:12px; PADDING-RIGHT:12px}
＜/STYLE＞
＜/HEAD＞
＜BODY＞
＜FORM NAME=”regForm” METHOD=”POST”＞
＜TABLE BORDER=0 CELLSPACING=6 CELLPADDING=6 MARGINWIDTH=6＞
＜TR＞
＜TD VALIGN=TOP＞
＜FIELDSET ID=FS1 NAME=FS1 CLASS=FS＞
＜LEGEND CLASS=Legend＞Regsvr Functions＜/LEGEND＞
Insert Path to DLL Directory
＜INPUT TYPE=TEXT NAME=”frmFolderPath” VALUE=”＜%=frmFolderPath%＞”＞
＜INPUT TYPE=SUBMIT NAME=btnFileList VALUE=”Build File List”＞
＜%
IF Request.Form(“btnFileList”) ＜＞ “” OR btnREG ＜＞ “” Then
Set RegisterFiles = New clsRegister
RegisterFiles.EchoB(“＜B＞Select File＜/B＞”)
Call RegisterFiles.init(frmFolderPath)
RegisterFiles.EchoB(”
＜INPUT TYPE=SUBMIT NAME=btnREG VALUE=” Chr(34) _
“REG/UNREG” Chr(34) “＞”)
IF Request.Form(“btnREG”) ＜＞ “” Then
Call RegisterFiles.Register(frmFilePath, frmMethod)
End IF
Set RegisterFiles = Nothing
End IF
%＞
＜/FIELDSET＞
＜/TD＞
＜/TR＞
＜/TABLE＞
＜/FORM＞
＜/BODY＞
＜/HTML＞
＜%
Class clsRegister
Private m_oFS
Public Property Let oFS(objOFS)
m_oFS = objOFS
End Property
Public Property Get oFS()
Set oFS = Server.CreateObject(“Scripting.FileSystemObject”)
End Property
Sub init(strRoot) ‘Root to Search (c:, d:, e:)
Dim oDrive, oRootDir
IF oFS.FolderExists(strRoot) Then
IF Len(strRoot) ＜ 3 Then ‘Must Be a Drive
Set oDrive = oFS.GetDrive(strRoot)
Set oRootDir = oDrive.RootFolder
Else
Set oRootDir = oFS.GetFolder(strRoot)
End IF
Else
EchoB(“＜B＞Folder ( ” strRoot ” ) Not Found.”)
Exit Sub
End IF
setRoot = oRootDir
Echo(“＜SELECT NAME=” Chr(34) “frmDllPath” Chr(34) “＞”)
Call getAllDlls(oRootDir)
EchoB(“＜/SELECT＞”)
BuildOptions
End Sub
Sub getAllDlls(oParentFolder)
Dim oSubFolders, oFile, oFiles
Set oSubFolders = oParentFolder.SubFolders
Set opFiles = oParentFolder.Files
For Each oFile in opFiles
IF Right(lCase(oFile.Name), 4) = “.dll” OR Right(lCase(oFile.Name), 4) = “.ocx” Then
Echo(“＜OPTION VALUE=” Chr(34) oFile.Path Chr(34) “＞” _
oFile.Name “＜/Option＞”)
End IF
Next
On Error Resume Next
For Each oFolder In oSubFolders ‘Iterate All Folders in Drive
Set oFiles = oFolder.Files
For Each oFile in oFiles
IF Right(lCase(oFile.Name), 4) = “.dll” OR Right(lCase(oFile.Name), 4) = “.ocx” Then
Echo(“＜OPTION VALUE=” Chr(34) oFile.Path Chr(34) “＞” _
oFile.Name “＜/Option＞”)
End IF
Next
Call getAllDlls(oFolder)
Next
On Error GoTo 0
End Sub
Sub Register(strFilePath, regMethod)
Dim theFile, strFile, oShell, exitcode
Set theFile = oFS.GetFile(strFilePath)
strFile = theFile.Path
Set oShell = CreateObject (“WScript.Shell”)
IF regMethod = “REG” Then ‘Register
oShell.Run “c:\WINNT\system32\regsvr32.exe /s ” strFile, 0, False
exitcode = oShell.Run(“c:\WINNT\system32\regsvr32.exe /s ” strFile, 0, False)
EchoB(“regsvr32.exe exitcode = ” exitcode)
Else ‘unRegister
oShell.Run “c:\WINNT\system32\regsvr32.exe /u/s ” strFile, 0, False
exitcode = oShell.Run(“c:\WINNT\system32\regsvr32.exe /u/s ” strFile, 0, False)
EchoB(“regsvr32.exe exitcode = ” exitcode)
End IF
Cleanup oShell
End Sub
Sub BuildOptions
EchoB(“Register: ＜INPUT TYPE=RADIO NAME=frmMethod VALUE=REG CHECKED＞”)
EchoB(“unRegister: ＜INPUT TYPE=RADIO NAME=frmMethod VALUE=UNREG＞”)
End Sub
Function Echo(str)
Echo = Response.Write(str vbCrLf)
End Function
Function EchoB(str)
EchoB = Response.Write(str ”
” vbCrLf)
End Function
Sub Cleanup(obj)
If isObject(obj) Then
Set obj = Nothing
End IF
End Sub
Sub Class_Terminate()
Cleanup oFS
End Sub
End Class
%＞
asp封装dll
下面,我们会来编写一个非常简单的组件,重点是知道怎样开发DLL组件,而不是其复杂的代码!这些都要靠你们自己以后的努力了.
服务器端组件
首先,服务器端的组件要有别于客户端的组件.客户端的组件是通过网络传输,依靠HTML来起作用.而且只能在IE上有用.但是服务器端的组件是运行在服务器端,它在服务器上执行各种操作.因此,所有的浏览器都能享用,它依靠的是服务器而不是浏览器.
当IIS被请求执行一个ASP程序,它首先会在ASP文件中找到 〈% %标签之间的代码,并且执行它(也可以是〈script runat=server〈/script之间的代码).如果这个ASP程序在先前被调用过,那么它就会用内存中的编译过的程序来向用户返回HTML代码,如果没有,那么它就重新编译.这里ASP就比CGI多一点速度优势,因为CGI是每一个请求都使用一个线程.这样就大大消耗了服务器的资源.
想不想你写的程序自己就能在IIS运行!?!现在你就行了!使用VB5(当然现在是VB6了),你就能建立Dynamic Linked Libraries (DLL 文件),它能在IIS上直接运行(如果有asp文件来请求的话).
系统和软件的要求
你需要一个32位的操作系统来运行ASP.当然你也得安装IIS或PWS.我们下面的程序是在windows95+PWS+VB5的环境下开发的.
我们开始吧
启动你的VB,选择ActiveX图标.这个图标可以在新建工程找到!VB会提供一个默认的工程名(project1)和类名(class1).我们会将这两个名字都改掉.在改名之前,请首先确认我们拥有Microsoft Active Server Pages Object Library,它在我们的程序非常有用.从菜单中选择”工程”,然后在其中选择”引用”,就会出现”引用”窗口
从中选择Microsoft Active Server Pages Object Library.
给工程和类命名
现在我们来根据自己的爱好来为project1和class1来命名吧!给它们命名也是很重要的,我们以后会用这个工程名和类名来创建这个组件的实例!后面详细介绍.
如何改名,我就不想多说了!
我们的工程名改为Exmaple,类名为Helloword
怎样使用工程和类
现在我们有了我们自己的工程(Example1)和类名(HelloWorld).以后我们就会在ASP代码中使用它们的名字来引用这个组件.在ASP中我们就这样引用,如下:
Set ObjReference = Server.CreateObject(“ProjectName.ClassName”)
对于我们工程的引用就是:
Set ObjReference = Server.CreateObject(“Example1.HelloWorld”)
现在我们就能用ObjReference来调用我们在组件中所创建的函数,子程序.下面我们会来写一个SayHello的子程序, 我们执行它的代码如下:
〈%
Set ObjReference = Server.CreateObject(“Example1.HelloWorld”)
ObjReference.SayHello
%
为了在Helloword类中使用ASP的方法,你必须在此类中写一个OnStartPage
子函数.如下:
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set MyScriptingContext = PassedScriptingContext
End Sub
现在,无论什么时候用户访问一个带有本组件的ASP文件,IIS就会把ScriptingContext传送给我们的对象请我们使用.这个ScriptingContext包括了全部的ASP方法和属性.实现上,这使得我们有能力访问所有ASP的对象.看下面的代码:
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set MyScriptingContext = PassedScriptingContext
Set MyApplication = MyScriptingContext.Application
Set MyRequest = MyScriptingContext.Request
Set MyResponse = MyScriptingContext.Response
Set MyServer = MyScriptingContext.Server
Set MySession = MyScriptingContext.Session
End Sub
以后我们就能用在VB中用MyApplication 来代替ASP中的Application,同理可以代替Request,Server…..,不过我们来是要在 OnStartPage之前来申明这些变量:
Private MyScriptingContext As ScriptingContext
Private MyApplication As Application
Private MyRequest As Request
Private MyResponse As Response
Private MyServer As Server
Private MySession As Session
使用ASP的对象
我们的变量现在就能像标准的ASP对象来使用了!比如,我们经常在ASP中用Request.form()来收集提交表单的数据.现在我们在我们的VB中实现这个功能,代码如下:
用ASP中实现:
〈%
MyTempVariable = Request.Form(“userName”)
Response.Write (“you entered ” MyTempVariable “as your user name”)
%
在VB中实现:
MyTempVariable = MyRequest.Form(“userName”)
MyResponse.Write (“you entered ” MyTempVariable “as your user name”)
通过使用MyResponse来代替Response,我们能够使用所有Response的方法,当然,MyResponse这个名字可以随便来取,你甚至可以就取Response.
另一件我们得注意的是,我们得在我们的建立的类中,写上OnEndPage子函数,这个OnStartPage是相反的!OnStartPage是创建对象,OnEndPage是消毁对象.
Public Sub OnEndPage()
Set MyScriptingContext = Nothing
Set MyApplication = Nothing
Set MyRequest = Nothing
Set MyResponse = Nothing
Set MyServer = Nothing
Set MySession = Nothing
End Sub
SayHello方法
我们来建立一个子函数,用于显示”Holle World”.这个SayHello方法只是HelloWorld这个类中一个子函数,我们以后会在ASP中用以下的显示这个方法
〈%
Set ObjReference = Server.CreateObject(“Example1.HelloWorld”)
ObjReference.SayHello
%
SayHello的程序,很简单的!
Public Sub SayHello()
MyResponse.Write (“Hello World”)
End Sub
现在一个小型的组件编写完成,剩下的工作就是编译这个组件,在”工程”菜单中保存它,取什么名字都可以,我们用Exmaple1.vbp吧! 然后就用在菜单中选择”make exmaple1.dll”,将其编译成DLL文件.一个组件就真正完成了!
注意,编译了此组件那么你就得先把你的PWS关掉,然后再编译此组件.否则VB就会告诉你些组件在使用中.
在ASP中使用我们的自己的组件.
当你更正了在编译中的错误,成功地编译了example1这个工程,现在你就得拿出你最喜欢的HTML编辑器来写下下面的语句,保存为ASP文件.
〈HTML
〈HEAD
〈TITLEExample 1〈/TITLE
〈/HEAD
〈BODY
〈%
Set ObjReference = Server.CreateObject(“Example1.HelloWorld”)
ObjReference.SayHello
%
〈/BODY
〈/HTML
运行后即可看到结果:
Hello World
注册组件
如果你想和你的朋友,邻居分享你的组件,那么你就得在你的系统上注册你的组件.我们一般使用Regsvr32.exe来注册组件.注册后你的组件会出现在Win95/Win98的windows/system目录中.下面是一个注册的例子:
Regsvr32.exe C:/wwwroot/Example1/Example1.dll
在你的系统中,VB会自动给你注册,所以你很少用到Regsvr32.exe
asp封装dll教程的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于asp调用dll、asp封装dll教程的信息别忘了在本站进行查找喔。