使用VB編寫純ASP程式

2021-06-21 16:18:02 字數 1570 閱讀 9838

使用vb編寫純asp程式

前幾天大哥對我說,使用asp真麻煩,編譯環境實在是差勁,他總是在vb裡面寫好除錯好**然後在把**貼上到asp 

程式中,為此,我在這提出乙個解決之道。使用vb接替asp所有的物件,在vb中編寫純粹的asp程式。

下面是詳細的步驟:

1。在vb中新建乙個activex dll.其中那些命名專案、類的過程我就省略了。

2。現在需要在vb中引用兩個dll.

第乙個是引用asp引擎的dll.

從選單中選擇project\references命令,引用'microsoft active server pages object library'.

如果你沒有找到它的話,你可以在以下目錄中查詢這個asp.dll檔案%systemdirectory%/system32/inetsvr目錄

單擊按鈕'browse...'可以匯入這個動態連線庫

第二個是引用microsoft transaction server (mts)物件.選擇同樣的命令,引用

'microsoft transaction server type library'.

如果你沒有找到它的話,你可以在以下目錄中查詢這個mtxas.dll檔案

%systemdirectory%/system32/mts/ 3。好了,所有準備工作完成,下面是如何編寫的**,我想大家都能夠看明白 

的。這個是類檔案的**:

option explicit

dim m_objresponse as response

dim m_objrequest as request

dim m_objserver as server

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_objsession = objcontext("session")

end sub

public sub asptest()

m_objresponse.write "告別寫字板,使用vb環境編寫asp程式!"

end sub

將以上的**拷貝貼上到你的程式中,然後編譯這個專案成dll。最後使用

regsvr32 componentname.dll把這個dll註冊到iis中。

下面是在asp檔案中使用這個元件的方法:

<%

set objtest = server.createobject("yourprjname.asptest")

objtest.asptest

set objtest = nothing

%>

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

使用VB編寫純ASP程式

前幾天大哥對我說,使用asp真麻煩,編譯環境實在是差勁,他總是在vb裡面寫好除錯好 然後在把 貼上到asp程式中,為此,我在這提出乙個解決之道。使用vb接替asp所有的物件,在vb中編寫純粹的asp程式。下面是詳細的步驟 1。在vb中新建乙個activex dll.其中那些命名專案 類的過程我就省略...

用VB編寫ActiveX DLL實現ASP程式設計

dim testme 建立我們剛才編譯成功的元件,一旦建立這個元件,同時會在葉面輸出文字 activex dll元件已經被 建立了!set testme server.createobject first.test 呼叫元件的方法 testme.helloworld 登出元件,在登出的同時,會自動在...

VB編寫搖獎程式

學院搞活動,有個環節是 要求我幫他們寫乙個電腦搖獎的程式,就像電視的綜藝介面一樣按回車開始,按空格停下來。開始的時候沒有仔細的想,以為沒有什麼難度就欣然的答應了,開始寫的時候才發現,需要在外部通過條件判斷強制的中斷無限的迴圈。腦子裡第乙個想到的就是用多執行緒,可是大家都知道,如果用 vb想使用多執行...