com

来自「WAP手机网页XXXXX WAP手机网页XXXXX」· 代码 · 共 20 行

Private clsHash

Private Sub Class_Initialize()
    Set clsHash = vbsre.mocom.util.Hash.newInstance()
End Sub

Private Sub Class_Terminate()
    clsHash.RemoveAll
    Set clsHash = Nothing
End Sub

Public Function forName(ByVal strName)
    Dim strKey
    strKey = UCase(strName)
    If clsHash.Exists(strKey) = False Then
        clsHash(strKey) = Server.CreateObject(strName)
    End If
    Set forName = clsHash(strKey)
End Function