国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 編程 > ASP > 正文

使用VB編寫純ASP程序

2019-11-18 21:31:15
字體：大 中 小
來(lái)源：轉(zhuǎn)載
供稿：網(wǎng)友
前幾天大哥對(duì)我說(shuō)，使用asp真麻煩，編譯環(huán)境實(shí)在是差勁，他總是在vb里面寫好調(diào)試好代碼然后在把代碼粘貼到asp程序中，為此，我在這提出一個(gè)解決之道。使用VB接替ASP所有的對(duì)象，在VB中編寫純粹的ASP程序。

　　大家應(yīng)該都知道，其實(shí)asp中的好多組件都是使用VB編寫出來(lái)的，但是讓大家感到很不方便的是如何使用asp固有的幾個(gè)組件，例如Response,Request,application,session等等，如果我要是能夠在VB里面直接使用這些組件的話，那么就能夠直接使用VB編寫asp運(yùn)用程序了。

　　下面是詳細(xì)的步驟：

　　1。在VB中新建一個(gè)ActiveX DLL.其中那些命名項(xiàng)目、類的過(guò)程我就省略了。

　　2。現(xiàn)在需要在VB中引用兩個(gè)dll.

　　第一個(gè)是引用ASP引擎的dll.

　　從菜單中選擇
　　如果你沒有找到它的話，你可以在以下目錄中查找這個(gè)asp.dll文件%systemdirectory%/system32/inetsvr目錄

　　單擊按鈕'Browse...'可以導(dǎo)入這個(gè)動(dòng)態(tài)連接庫(kù)

　　第二個(gè)是引用Microsoft Transaction Server (MTS)對(duì)象.選擇同樣的命令，引用

　　'Microsoft Transaction Server Type Library'.

　　如果你沒有找到它的話，你可以在以下目錄中查找這個(gè)mtxas.dll文件

　　%systemdirectory%/system32/Mts/ 3。好了，所有準(zhǔn)備工作完成，下面是如何編寫的代碼，我想大家都能夠看明白
的。

　　這個(gè)是類文件的代碼：

　　Option Explicit

　　Dim m_objResponse As Response

　　Dim m_objRequest As Request

　　Dim m_objServer As Server

　　Dim m_objApplication As Application

　　Dim m_objSession As Session

　　Private Sub Class_Initialize()

　　Dim objContext As ObjectContext

　　Set objContext = GetObjectContext()

　　Set m_objResponse = objContext("Response")

　　Set m_objRequest = objContext("Request")

　　Set m_objServer = objContext("Server")

　　Set m_objApplication = objContext("Application")

　　Set m_objSession = objContext("Session")

　　End Sub

　　Public Sub ASPTest()

　　m_objResponse.Write "告別寫字板，使用VB環(huán)境編寫ASP程序！"

　　End Sub

　　將以上的代碼拷貝粘貼到你的程序中，然后編譯這個(gè)項(xiàng)目成dll。最后使用

　　regsvr32 componentname.dll把這個(gè)dll注冊(cè)到iis中。

　　下面是在asp文件中使用這個(gè)組件的方法：

　　<%

　　Set objTest = Server.CreateObject("YourPrjName.ASPTest")

　　objTest.ASPTest

　　Set objTest = Nothing

　　%>

好了，希望我的方法能夠解決大哥的苦惱，呵呵。

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板： 龙口市| 晴隆县| 阿拉尔市| 神农架林区| 兖州市| 漳平市| 延津县| 广宗县| 南澳县| 邵东县| 新安县| 北票市| 隆尧县| 汕头市| 柏乡县| 景谷| 涡阳县| 黔西县| 镇远县| 海南省| 监利县| 体育| 广灵县| 阳山县| 四平市| 新宁县| 浦城县| 屯留县| 延川县| 景泰县| 鹰潭市| 梁山县| 武隆县| 巢湖市| 青川县| 诏安县| 石渠县| 中西区| 东山县| 海城市| 庆云县|