Asp DLL_vbscript asp .dll文件的内容-优快云博客

本文链接：https://blog.youkuaiyun.com/stcaaa/article/details/4166745

Asp DLL

2009-05-10 11:28

vb文件:

加入代码:

Option Explicit

Private Context As ScriptingContext
Private Application As Application
Private Response As Response
Private Request As Request
Private Session As Session
Private Server As Server

Public Sub show()
Response.Write "程序开始运行!"

End Sub

Public Sub rrr()
Response.Write ("<br>程序开发：孙天成")
End Sub
'引用内部对像
Public Sub OnStartPage(PassedscriptContext As ScriptingContext)
Set Context = PassedscriptContext
Set Application = Context.Application
Set Request = Context.Request
Set Response = Context.Response
Set Server = Context.Server
Set Session = Context.Session

End Sub
' 释放内部对象
Public Sub OnEndPage()
Set Application = Nothing
Set Request = Nothing
Set Response = Nothing
Set Server = Nothing
Set Session = Nothing

Set Context = Nothing
End Sub

Asp文件：

<% @ language="vbscript" %>

<%
Dim b1
Set b1=Server.CreateObject("v11.c11")
b1.show()
b1.rrr()
%>

运行结果：