To write an ActiveX Dll first: To create a new VB6 project, the ActiveX DLL names the project P_test, the class name is C_test, and the file contents of the class are as follows:
Option Explicit
Private Myscriptingcontext as ScriptingContext
Private MyApplication as Application
Private myrequest as Request private myresponse as Response
Private MyServer as Server
Private MySession as session 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
Public Sub OnEndPage ()
Set Myscriptingcontext = Nothing
Set MyApplication = Nothing
Set myrequest = Nothing
Set Myresponse = Nothing
Set MyServer = Nothing
Set mysession = Nothing
End Sub
Public Function test_number (num) as Variant
If num < 0 Then Get_number_attrib =-1
If num > 0 Then get_number_attrib = 1
If num = 0 Then get_number_attrib = 0
End Function
The problem that you might encounter is that when you compile the project, you can use the Microsoft Active Server Pages Object Library Reference to implement "Project->references" to find the library and hook it up.
The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion;
products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the
content of the page makes you feel confusing, please write us an email, we will handle the problem
within 5 days after receiving your email.
If you find any instances of plagiarism from the community, please send an email to:
info-contact@alibabacloud.com
and provide relevant evidence. A staff member will contact you within 5 working days.
A Free Trial That Lets You Build Big!
Start building with 50+ products and up to 12 months usage for Elastic Compute Service