main.asp

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

<!--#include file="Ads.asp"-->
<!--#include file="Article.asp"-->
<!--#include file="Book.asp"-->
<!--#include file="Cache.asp"-->
<!--#include file="Category.asp"-->
<!--#include file="Config.asp"-->
<!--#include file="Content.asp"-->
<!--#include file="Forum.asp"-->
<!--#include file="Frame.asp"-->
<!--#include file="Login.asp"-->
<!--#include file="Manager.asp"-->
<!--#include file="Matter.asp"-->
<!--#include file="Msgbox.asp"-->
<!--#include file="Out.asp"-->
<!--#include file="Record.asp"-->
<!--#include file="Remark.asp"-->
<!--#include file="Remove.asp"-->
<!--#include file="Spy.asp"-->
<!--#include file="Staple.asp"-->
<!--#include file="Templet.asp"-->
<!--#include file="UA.asp"-->
<!--#include file="User.asp"-->
<%
Class ImplMocomWAPmoManager
Private objAds
Private objArticle
Private objBook
Private objCache
Private objCategory
Private objConfig
Private objContent
Private objForum
Private objFrame
Private objLogin
Private objManager
Private objMatter
Private objMsgbox
Private objOut
Private objRecord
Private objRemark
Private objRemove
Private objSpy
Private objStaple
Private objTemplet
Private objUA
Private objUser
Private Sub Class_Initialize()
Set objAds = Nothing
Set objArticle = Nothing
Set objBook = Nothing
Set objCache = Nothing
Set objCategory = Nothing
Set objConfig = Nothing
Set objContent = Nothing
Set objForum = Nothing
Set objFrame = Nothing
Set objLogin = Nothing
Set objManager = Nothing
Set objMatter = Nothing
Set objMsgbox = Nothing
Set objOut = Nothing
Set objRecord = Nothing
Set objRemark = Nothing
Set objRemove = Nothing
Set objSpy = Nothing
Set objStaple = Nothing
Set objTemplet = Nothing
Set objUA = Nothing
Set objUser = Nothing
End Sub
Private Sub Class_Terminate()
Set objAds = Nothing
Set objArticle = Nothing
Set objBook = Nothing
Set objCache = Nothing
Set objCategory = Nothing
Set objConfig = Nothing
Set objContent = Nothing
Set objForum = Nothing
Set objFrame = Nothing
Set objLogin = Nothing
Set objManager = Nothing
Set objMatter = Nothing
Set objMsgbox = Nothing
Set objOut = Nothing
Set objRecord = Nothing
Set objRemark = Nothing
Set objRemove = Nothing
Set objSpy = Nothing
Set objStaple = Nothing
Set objTemplet = Nothing
Set objUA = Nothing
Set objUser = Nothing
End Sub
Public Property Get Ads()
If objAds Is Nothing Then
    Set objAds = New ImplMocomWAPmoManagerAds
End If
Set Ads = objAds
End Property
Public Property Get Article()
If objArticle Is Nothing Then
    Set objArticle = New ImplMocomWAPmoManagerArticle
End If
Set Article = objArticle
End Property
Public Property Get Book()
If objBook Is Nothing Then
    Set objBook = New ImplMocomWAPmoManagerBook
End If
Set Book = objBook
End Property
Public Property Get Cache()
If objCache Is Nothing Then
    Set objCache = New ImplMocomWAPmoManagerCache
End If
Set Cache = objCache
End Property
Public Property Get Category()
If objCategory Is Nothing Then
    Set objCategory = New ImplMocomWAPmoManagerCategory
End If
Set Category = objCategory
End Property
Public Property Get Config()
If objConfig Is Nothing Then
    Set objConfig = New ImplMocomWAPmoManagerConfig
End If
Set Config = objConfig
End Property
Public Property Get Content()
If objContent Is Nothing Then
    Set objContent = New ImplMocomWAPmoManagerContent
End If
Set Content = objContent
End Property
Public Property Get Forum()
If objForum Is Nothing Then
    Set objForum = New ImplMocomWAPmoManagerForum
End If
Set Forum = objForum
End Property
Public Property Get Frame()
If objFrame Is Nothing Then
    Set objFrame = New ImplMocomWAPmoManagerFrame
End If
Set Frame = objFrame
End Property
Public Property Get Login()
If objLogin Is Nothing Then
    Set objLogin = New ImplMocomWAPmoManagerLogin
End If
Set Login = objLogin
End Property
Public Property Get Manager()
If objManager Is Nothing Then
    Set objManager = New ImplMocomWAPmoManagerManager
End If
Set Manager = objManager
End Property
Public Property Get Matter()
If objMatter Is Nothing Then
    Set objMatter = New ImplMocomWAPmoManagerMatter
End If
Set Matter = objMatter
End Property
Public Property Get Msgbox()
If objMsgbox Is Nothing Then
    Set objMsgbox = New ImplMocomWAPmoManagerMsgbox
End If
Set Msgbox = objMsgbox
End Property
Public Property Get Out()
If objOut Is Nothing Then
    Set objOut = New ImplMocomWAPmoManagerOut
End If
Set Out = objOut
End Property
Public Property Get Record()
If objRecord Is Nothing Then
    Set objRecord = New ImplMocomWAPmoManagerRecord
End If
Set Record = objRecord
End Property
Public Property Get Remark()
If objRemark Is Nothing Then
    Set objRemark = New ImplMocomWAPmoManagerRemark
End If
Set Remark = objRemark
End Property
Public Property Get Remove()
If objRemove Is Nothing Then
    Set objRemove = New ImplMocomWAPmoManagerRemove
End If
Set Remove = objRemove
End Property
Public Property Get Spy()
If objSpy Is Nothing Then
    Set objSpy = New ImplMocomWAPmoManagerSpy
End If
Set Spy = objSpy
End Property
Public Property Get Staple()
If objStaple Is Nothing Then
    Set objStaple = New ImplMocomWAPmoManagerStaple
End If
Set Staple = objStaple
End Property
Public Property Get Templet()
If objTemplet Is Nothing Then
    Set objTemplet = New ImplMocomWAPmoManagerTemplet
End If
Set Templet = objTemplet
End Property
Public Property Get UA()
If objUA Is Nothing Then
    Set objUA = New ImplMocomWAPmoManagerUA
End If
Set UA = objUA
End Property
Public Property Get User()
If objUser Is Nothing Then
    Set objUser = New ImplMocomWAPmoManagerUser
End If
Set User = objUser
End Property
End Class
%>