main.asp

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

<!--#include file="bbs/main.asp"-->
<!--#include file="index.asp"-->
<!--#include file="content.asp"-->
<!--#include file="staple.asp"-->
<!--#include file="register.asp"-->
<!--#include file="forget.asp"-->
<!--#include file="login.asp"-->
<!--#include file="view.asp"-->
<!--#include file="marker.asp"-->
<!--#include file="out.asp"-->
<!--#include file="remark.asp"-->
<!--#include file="book.asp"-->
<!--#include file="query.asp"-->
<!--#include file="console.asp"-->
<!--#include file="ads.asp"-->
<!--#include file="log.asp"-->
<%
Class ImplMocomWAPmoWAP
Private objBbs
Private objIndex
Private objContent
Private objStaple
Private objRegister
Private objForget
Private objLogin
Private objView
Private objMarker
Private objOut
Private objRemark
Private objBook
Private objQuery
Private objConsole
Private objAds
Private objLog
Private Sub Class_Initialize()
Set objBbs = Nothing
Set objIndex = Nothing
Set objContent = Nothing
Set objStaple = Nothing
Set objRegister = Nothing
Set objForget = Nothing
Set objLogin = Nothing
Set objView = Nothing
Set objMarker = Nothing
Set objOut = Nothing
Set objRemark = Nothing
Set objBook = Nothing
Set objQuery = Nothing
Set objConsole = Nothing
Set objAds = Nothing
Set objLog = Nothing
End Sub
Private Sub Class_Terminate()
Set objBbs = Nothing
Set objIndex = Nothing
Set objContent = Nothing
Set objStaple = Nothing
Set objRegister = Nothing
Set objForget = Nothing
Set objLogin = Nothing
Set objView = Nothing
Set objMarker = Nothing
Set objOut = Nothing
Set objRemark = Nothing
Set objBook = Nothing
Set objQuery = Nothing
Set objConsole = Nothing
Set objAds = Nothing
Set objLog = 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 index()
If objIndex Is Nothing Then
    Set objIndex = New ImplMocomWAPmoWAPIndex
End If
Set Index = objIndex
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 staple()
If objStaple Is Nothing Then
    Set objStaple = New ImplMocomWAPmoWAPStaple
End If
Set Staple = objStaple
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 forget()
If objForget Is Nothing Then
    Set objForget = New ImplMocomWAPmoWAPForget
End If
Set Forget = objForget
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 view()
If objView Is Nothing Then
    Set objView = New ImplMocomWAPmoWAPView
End If
Set View = objView
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 out()
If objOut Is Nothing Then
    Set objOut = New ImplMocomWAPmoWAPOut
End If
Set Out = objOut
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 book()
If objBook Is Nothing Then
    Set objBook = New ImplMocomWAPmoWAPBook
End If
Set Book = objBook
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 console()
If objConsole Is Nothing Then
    Set objConsole = New ImplMocomWAPmoWAPConsole
End If
Set Console = objConsole
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 log()
If objLog Is Nothing Then
    Set objLog = New ImplMocomWAPmoWAPLog
End If
Set Log = objLog
End Property
End Class
%>