main.asp

WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品

<!--#include file="Manager/main.asp"-->
<!--#include file="WAP/main.asp"-->
<!--#include file="Config.asp"-->
<!--#include file="Page.asp"-->
<!--#include file="Power.asp"-->
<!--#include file="TimeImpl.asp"-->
<!--#include file="XMLParser.asp"-->
<%
Class ImplMocomWAPmo
Private objManager
Private objWAP
Private objConfig
Private objPage
Private objPower
Private objTimeImpl
Private objXMLParser
Private Sub Class_Initialize()
Set objManager = Nothing
Set objWAP = Nothing
Set objConfig = Nothing
Set objPage = Nothing
Set objPower = Nothing
Set objTimeImpl = Nothing
Set objXMLParser = Nothing
End Sub
Private Sub Class_Terminate()
Set objManager = Nothing
Set objWAP = Nothing
Set objConfig = Nothing
Set objPage = Nothing
Set objPower = Nothing
Set objTimeImpl = Nothing
Set objXMLParser = Nothing
End Sub
Public Property Get Manager()
If objManager Is Nothing Then
    Set objManager = New ImplMocomWAPmoManager
End If
Set Manager = objManager
End Property
Public Property Get WAP()
If objWAP Is Nothing Then
    Set objWAP = New ImplMocomWAPmoWAP
End If
Set WAP = objWAP
End Property
Public Property Get Config()
If objConfig Is Nothing Then
    Set objConfig = New ImplMocomWAPmoConfig
End If
Set Config = objConfig
End Property
Public Property Get Page()
If objPage Is Nothing Then
    Set objPage = New ImplMocomWAPmoPage
End If
Set Page = objPage
End Property
Public Property Get Power()
If objPower Is Nothing Then
    Set objPower = New ImplMocomWAPmoPower
End If
Set Power = objPower
End Property
Public Property Get TimeImpl()
If objTimeImpl Is Nothing Then
    Set objTimeImpl = New ImplMocomWAPmoTimeImpl
End If
Set TimeImpl = objTimeImpl
End Property
Public Property Get XMLParser()
If objXMLParser Is Nothing Then
    Set objXMLParser = New ImplMocomWAPmoXMLParser
End If
Set XMLParser = objXMLParser
End Property
End Class
%>