main.asp

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

<!--#include file="bbs/main.asp"-->
<!--#include file="Ads.asp"-->
<!--#include file="Book.asp"-->
<!--#include file="Category.asp"-->
<!--#include file="Console.asp"-->
<!--#include file="Content.asp"-->
<!--#include file="Core.asp"-->
<!--#include file="Forget.asp"-->
<!--#include file="Hit.asp"-->
<!--#include file="Index.asp"-->
<!--#include file="Log.asp"-->
<!--#include file="Login.asp"-->
<!--#include file="Marker.asp"-->
<!--#include file="MsgBox.asp"-->
<!--#include file="Out.asp"-->
<!--#include file="Query.asp"-->
<!--#include file="Register.asp"-->
<!--#include file="Remark.asp"-->
<!--#include file="Staple.asp"-->
<!--#include file="UBB.asp"-->
<!--#include file="Upload.asp"-->
<!--#include file="View.asp"-->
<%
Class ImplMocomWAPmoWAP
Private objBbs
Private objAds
Private objBook
Private objCategory
Private objConsole
Private objContent
Private objCore
Private objForget
Private objHit
Private objIndex
Private objLog
Private objLogin
Private objMarker
Private objMsgBox
Private objOut
Private objQuery
Private objRegister
Private objRemark
Private objStaple
Private objUBB
Private objUpload
Private objView
Private Sub Class_Initialize()
Set objBbs = Nothing
Set objAds = Nothing
Set objBook = Nothing
Set objCategory = Nothing
Set objConsole = Nothing
Set objContent = Nothing
Set objCore = Nothing
Set objForget = Nothing
Set objHit = Nothing
Set objIndex = Nothing
Set objLog = Nothing
Set objLogin = Nothing
Set objMarker = Nothing
Set objMsgBox = Nothing
Set objOut = Nothing
Set objQuery = Nothing
Set objRegister = Nothing
Set objRemark = Nothing
Set objStaple = Nothing
Set objUBB = Nothing
Set objUpload = Nothing
Set objView = Nothing
End Sub
Private Sub Class_Terminate()
Set objBbs = Nothing
Set objAds = Nothing
Set objBook = Nothing
Set objCategory = Nothing
Set objConsole = Nothing
Set objContent = Nothing
Set objCore = Nothing
Set objForget = Nothing
Set objHit = Nothing
Set objIndex = Nothing
Set objLog = Nothing
Set objLogin = Nothing
Set objMarker = Nothing
Set objMsgBox = Nothing
Set objOut = Nothing
Set objQuery = Nothing
Set objRegister = Nothing
Set objRemark = Nothing
Set objStaple = Nothing
Set objUBB = Nothing
Set objUpload = Nothing
Set objView = Nothing
End Sub
Public Property Get bbs()
If objBbs Is Nothing Then
    Set objBbs = New ImplMocomWAPmoWAPBbs
End If
Set Bbs = objBbs
End Property
Public Property Get Ads()
If objAds Is Nothing Then
    Set objAds = New ImplMocomWAPmoWAPAds
End If
Set Ads = objAds
End Property
Public Property Get Book()
If objBook Is Nothing Then
    Set objBook = New ImplMocomWAPmoWAPBook
End If
Set Book = objBook
End Property
Public Property Get Category()
If objCategory Is Nothing Then
    Set objCategory = New ImplMocomWAPmoWAPCategory
End If
Set Category = objCategory
End Property
Public Property Get Console()
If objConsole Is Nothing Then
    Set objConsole = New ImplMocomWAPmoWAPConsole
End If
Set Console = objConsole
End Property
Public Property Get Content()
If objContent Is Nothing Then
    Set objContent = New ImplMocomWAPmoWAPContent
End If
Set Content = objContent
End Property
Public Property Get Core()
If objCore Is Nothing Then
    Set objCore = New ImplMocomWAPmoWAPCore
End If
Set Core = objCore
End Property
Public Property Get Forget()
If objForget Is Nothing Then
    Set objForget = New ImplMocomWAPmoWAPForget
End If
Set Forget = objForget
End Property
Public Property Get Hit()
If objHit Is Nothing Then
    Set objHit = New ImplMocomWAPmoWAPHit
End If
Set Hit = objHit
End Property
Public Property Get Index()
If objIndex Is Nothing Then
    Set objIndex = New ImplMocomWAPmoWAPIndex
End If
Set Index = objIndex
End Property
Public Property Get Log()
If objLog Is Nothing Then
    Set objLog = New ImplMocomWAPmoWAPLog
End If
Set Log = objLog
End Property
Public Property Get Login()
If objLogin Is Nothing Then
    Set objLogin = New ImplMocomWAPmoWAPLogin
End If
Set Login = objLogin
End Property
Public Property Get Marker()
If objMarker Is Nothing Then
    Set objMarker = New ImplMocomWAPmoWAPMarker
End If
Set Marker = objMarker
End Property
Public Property Get MsgBox()
If objMsgBox Is Nothing Then
    Set objMsgBox = New ImplMocomWAPmoWAPMsgBox
End If
Set MsgBox = objMsgBox
End Property
Public Property Get Out()
If objOut Is Nothing Then
    Set objOut = New ImplMocomWAPmoWAPOut
End If
Set Out = objOut
End Property
Public Property Get Query()
If objQuery Is Nothing Then
    Set objQuery = New ImplMocomWAPmoWAPQuery
End If
Set Query = objQuery
End Property
Public Property Get Register()
If objRegister Is Nothing Then
    Set objRegister = New ImplMocomWAPmoWAPRegister
End If
Set Register = objRegister
End Property
Public Property Get Remark()
If objRemark Is Nothing Then
    Set objRemark = New ImplMocomWAPmoWAPRemark
End If
Set Remark = objRemark
End Property
Public Property Get Staple()
If objStaple Is Nothing Then
    Set objStaple = New ImplMocomWAPmoWAPStaple
End If
Set Staple = objStaple
End Property
Public Property Get UBB()
If objUBB Is Nothing Then
    Set objUBB = New ImplMocomWAPmoWAPUBB
End If
Set UBB = objUBB
End Property
Public Property Get Upload()
If objUpload Is Nothing Then
    Set objUpload = New ImplMocomWAPmoWAPUpload
End If
Set Upload = objUpload
End Property
Public Property Get View()
If objView Is Nothing Then
    Set objView = New ImplMocomWAPmoWAPView
End If
Set View = objView
End Property
End Class
%>