com.asp

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

<%
Class ImplMocomUtilCom
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

Public Function newInstance()
    Set newInstance = New ImplMocomUtilCom
End Function
End Class
%>