main.asp

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

<!--#include file="remark.asp"-->
<!--#include file="book.asp"-->
<!--#include file="forum.asp"-->
<!--#include file="article.asp"-->
<!--#include file="remove.asp"-->
<!--#include file="login.asp"-->
<!--#include file="cache.asp"-->
<!--#include file="msgbox.asp"-->
<%
Class ImplMocomWAPmoManager
Private objRemark
Private objBook
Private objForum
Private objArticle
Private objRemove
Private objLogin
Private objCache
Private objMsgbox
Private Sub Class_Initialize()
Set objRemark = Nothing
Set objBook = Nothing
Set objForum = Nothing
Set objArticle = Nothing
Set objRemove = Nothing
Set objLogin = Nothing
Set objCache = Nothing
Set objMsgbox = Nothing
End Sub
Private Sub Class_Terminate()
Set objRemark = Nothing
Set objBook = Nothing
Set objForum = Nothing
Set objArticle = Nothing
Set objRemove = Nothing
Set objLogin = Nothing
Set objCache = Nothing
Set objMsgbox = Nothing
End Sub
Public Property Get remark()
If objRemark Is Nothing Then
    Set objRemark = New ImplMocomWAPmoManagerRemark
End If
Set Remark = objRemark
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 forum()
If objForum Is Nothing Then
    Set objForum = New ImplMocomWAPmoManagerForum
End If
Set Forum = objForum
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 remove()
If objRemove Is Nothing Then
    Set objRemove = New ImplMocomWAPmoManagerRemove
End If
Set Remove = objRemove
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 cache()
If objCache Is Nothing Then
    Set objCache = New ImplMocomWAPmoManagerCache
End If
Set Cache = objCache
End Property
Public Property Get msgbox()
If objMsgbox Is Nothing Then
    Set objMsgbox = New ImplMocomWAPmoManagerMsgbox
End If
Set Msgbox = objMsgbox
End Property
End Class
%>