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

的初始化。

经实践证明，完全可行。