ASP程序在VB中转换为组件的技巧

在网易虚拟社区的“VB和Basic区”里有一篇《使用VB编写纯ASP程序 [转][Technology] 》，其实我认为最好的方法应该这样——

原文中的定义如下：

Dim m_objResponse As Response

其实对于我们写过.dll的来说，并不是很好，就是如果要将该程序拿到.asp程序中进行调试时，尤其是我们将已经调试通过的.asp程序做成.dll时，.asp程序里用的是标准的组件名。默认的组件名为response、request等，引文中在前面加上了m_obj，则如果程序中用到了这句，则也要进行相应的改变，这一则会带来较大的工作量，二则对于程序的可读性并没有什么改进。

因此，最好的方法是如下定义：

Dim Context As ObjectContext
Dim Server As Server
Dim Request As Request
Dim Session As Session
Dim Response As Response

当然，后面还要有

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

的初始化。

经实践证明，完全可行。