佳木斯湛栽影视文化发展公司
主頁 > 知識(shí)庫 > 使用VB將ASP代碼封裝到DLL文件

使用VB將ASP代碼封裝到DLL文件
熱門標(biāo)簽：科大訊飛語音識(shí)別系統(tǒng) Linux服務(wù)器 Mysql連接數(shù)設(shè)置 銀行業(yè)務(wù) 服務(wù)器配置 阿里云 電子圍欄 團(tuán)購網(wǎng)站
很久以前的文檔，整理出來，回味一下

使用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

'下面定義公用函數(shù)（在VB中訪問ASP對(duì)象，即在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

'建立自定義函數(shù)SayHello

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

'Code End

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

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

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

%

'VB自建函數(shù)調(diào)用格式
'Set 對(duì)象名=Server.CreateObject("工程名.類名")
'對(duì)象名.自建函數(shù)名

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

7、運(yùn)行Test.asp文件結(jié)果顯示如下：

Hello World

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

一起來吧，呵呵！

標(biāo)簽：江蘇 棗莊 大理 萍鄉(xiāng) 廣元 衡水 衢州 蚌埠

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《使用VB將ASP代碼封裝到DLL文件》，本文關(guān)鍵詞  ；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 收縮
    • 微信客服
    • 微信二維碼

    • 電話咨詢

    • 400-1100-266
    龙口市| 莎车县| 长乐市| 乡城县| 济南市| 朔州市| 平顺县| 张掖市| 翁源县| 台中市| 兴宁市| 前郭尔| 天长市| 张掖市| 金湖县| 德格县| 涿州市| 玉环县| 永川市| 酒泉市| 米易县| 江永县| 荣成市| 兴文县| 舞钢市| 灯塔市| 元阳县| 福清市| 怀来县| 嘉黎县| 文成县| 广河县| 平远县| 莱芜市| 凤冈县| 永定县| 建平县| 永州市| 田阳县| 息烽县| 扎囊县|