中文字幕日韩欧美一区二区三区,欧美日韩一区二区三区不卡视频,free性欧美16hd

很久以前的文檔，整理出來，回味一下

使用VB封裝ASP，建立SayHello測試程序

1、打開VB6，新建ActiveX DLL

2、在工程引用中加入Microsoft Active Server Pages Object Library選擇

3、填加代碼如下：

'Code Start

'聲明部分
Private MyScriptingContext As ScriptingContext
Private MyApplication As Application
Private MyRequest As Request
Private MyResponse As Response
Private MyServer As Server
Private MySession As Session

'下面定義公用函數（在VB中訪問ASP對象，即在VB中可以用MyApplication等同于ASP中的Application、MyRequest等同于ASP中的Request、 MyResponse等同于ASP中的Response、 MyServer等同于ASP中的Server、 MySession等同于ASP中的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

'建立自定義函數SayHello

Public Sub SayHello()
MyResponse.Write ("Hello World")
End Sub

'Code End

4、將類名改為：HelloWorld 將工程名改為：TestVBCode

5、生成TestVBCode.DLL文件，并使用Windows運行注冊組件命令Regsvr32 路徑\TestVBCode.DLL注冊后即可使用。（卸載組件命令為Regsvr32 /u 路徑\TestVBCode.DLL）

6、建立Test.asp文件，代碼如下

%

'VB自建函數調用格式
'Set 對象名=Server.CreateObject("工程名.類名")
'對象名.自建函數名

Set MyTestObj = Server.CreateObject("TestVBCode.HelloWorld")
MyTestObj .SayHello
%>

7、運行Test.asp文件結果顯示如下：

Hello World

以上實例將開啟你的VB編程世界之門

一起來吧，呵呵！

標簽：防城港朝陽孝感平頂山遼陽湖北馬鞍山四平

巨人網絡通訊聲明：本文標題《使用VB將ASP代碼封裝到DLL文件》，本文關鍵詞使用,將,ASP,代碼,封,裝到,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。

校园春色亚洲色图_亚洲视频分类_中文字幕精品一区二区精品_麻豆一区区三区四区产品精品蜜桃

使用VB將ASP代碼封裝到DLL文件