明輝手游網(wǎng)中心:是一個免費提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺!

已調(diào)試好的asp程序在VB中轉(zhuǎ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)實踐證明,完全可行。