用VB 6封装ASP代码, 制作DLL组件

最新推荐文章于 2024-10-15 10:58:36 发布

ichigoxi

最新推荐文章于 2024-10-15 10:58:36 发布

阅读量548

点赞数

分类专栏： AS 文章标签： vb dll asp application microsoft session

本文链接：https://blog.csdn.net/ichigoxi/article/details/1706858

版权

AS 专栏收录该内容

0 篇文章 0 订阅

订阅专栏

启动vb6.0，新建-->Active dll工程。单击"工程"-->引用,选择"microsoft active server pages object library"
和"microsoft activeX data objects 2.1 library"两项。将类模块的名称改为class将工程的名称改为object

'以下2个函数是前提：

    Private myscriptingcontext As ScriptingContext
    Private application As application
    Private request As request
    Private response As response
    Private server As server
    Private session As session

Public Sub onstartpage(passedscriptingcontext As ScriptingContext)
    Set myscriptingcontext = passedscriptingcontext
    Set application = myscriptingcontext.application
    Set request = myscriptingcontext.request
    Set response = myscriptingcontext.response
    Set server = myscriptingcontext.server
    Set session = myscriptingcontext.session
End Sub

Public Sub onendpage()
    Set myscriptingcontext = Nothing
    Set application = Nothing
    Set request = Nothing
    Set response = Nothing
    Set server = Nothing
    Set session = Nothing
End Sub

'定义一个方法
Public Sub aa()
response.Write "hello world!"
End Sub

最后编译生成zy.dll文件。注册regsvr32 路径zy.dll

在asp中调用

set nc=server.CreateObject("object.class")

nc.aa