com.asp

WAP手机网页XXXXX WAP手机网页XXXXX

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