main.asp

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

<!--#include file="WAPmo/main.asp"-->
<!--#include file="util/main.asp"-->
<%
Class ImplMocom
Private objWAPmo
Private objUtil
Private Sub Class_Initialize()
Set objWAPmo = Nothing
Set objUtil = Nothing
End Sub
Private Sub Class_Terminate()
Set objWAPmo = Nothing
Set objUtil = Nothing
End Sub
Public Property Get WAPmo()
If objWAPmo Is Nothing Then
    Set objWAPmo = New ImplMocomWAPmo
End If
Set WAPmo = objWAPmo
End Property
Public Property Get util()
If objUtil Is Nothing Then
    Set objUtil = New ImplMocomUtil
End If
Set Util = objUtil
End Property
End Class
%>