已調(diào)試好的asp程序在VB中轉(zhuǎn)換為組件的技巧
發(fā)表時間:2023-08-04 來源:明輝站整理相關(guān)軟件相關(guān)文章人氣:
[摘要]作者Heatch 在網(wǎng)易虛擬社區(qū)的“VB和Basic區(qū)”里有一篇《使用VB編寫純ASP程序 [轉(zhuǎn)][Technology] 》,其實我認(rèn)為最好的方法應(yīng)該這樣: 原文中的定義如下: Dim ...
作者
Heatch
在網(wǎng)易虛擬社區(qū)的“VB和Basic區(qū)”里有一篇《使用VB編寫純ASP程序 [轉(zhuǎn)][Technology] 》,其實我認(rèn)為最好的方法應(yīng)該這樣:
原文中的定義如下:
Dim m_objResponse As Response
其實對于我們寫過.dll的來說,并不是很好,就是如果要將該程序拿到.asp程序中進(jìn)行調(diào)試時,尤其是我們將已經(jīng)調(diào)試通過的.asp程序做成.dll時,.asp程序里用的是標(biāo)準(zhǔn)的組件名。默認(rèn)的組件名為response、request等,引文中在前面加上了m_obj,則如果程序中用到了這句,則也要進(jìn)行相應(yīng)的改變,這一則會帶來較大的工作量,二則對于程序的可讀性并沒有什么改進(jìn)。因此,最好的方法是如下定義:
Dim Context As ObjectContext
Dim Server As Server
Dim Request As Request
Dim Session As Session
Dim Response As Response
當(dāng)然,后面還要有
Private Sub Class_Initialize()
Set Context = GetObjectContext()
Set Server = Context("Server")
Set Request = Context("Request")
Set Response = Context("Response")
Set Session = Context("Session")
End Sub
的初始化。
經(jīng)實踐證明,完全可行。