发一个自己封装的Asp Dll文件

调试程序和做程序的时候，好多重复的代码一直输入很麻烦，也很没有效率，封装一个自己的Asp包包，挺有有的
下载个精简版的VB6.0，新建 ActiveX dll，以下是封装的代码，重要部分都有注释，不懂可以跟帖
Option Explicit
Public Resp As Response, Requ As Request, Appl As Application, Serv As Server, Sess As Session   '内置对象的变量声明
Public ObjConn As Object, StrSql As String, ObjRs As Object, ObjFso As Object '全局级变量
'=============================Md5部分声明=============================
Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32
Private m_lOnBits(30), m_l2Power(30)    '数组声明
'=====================================================================
Public Sub OnStartPage(MyObj As ScriptingContext)
Set Resp = MyObj.Response
Set Requ = MyObj.Request
Set Serv = MyObj.Server
Set Appl = MyObj.Application
Set Sess = MyObj.Session
Sess.Timeout = 30
End Sub
Public Sub OnEndPage()
Set Resp = Nothing
Set Requ = Nothing
Set Serv = Nothing
Set Appl = Nothing
Set Sess = Nothing
End Sub
'----------------------------------------------------------------------------------
'----------------------------------------------------------------------------------
'----------                  函数表 方法 与外来参数传递                 -----------
'----------------------------------------------------------------------------------
'----------------------------------------------------------------------------------
'W         方法        入口值：StrWords As String           返回值：直接输出
'R         方法        入口值：StrUrl As Strin