main.asp

来自「WAP手机网页XXXXX WAP手机网页XXXXX」· ASP 代码 · 共 49 行

<!--#include file="index.asp"-->
<!--#include file="forum.asp"-->
<!--#include file="article.asp"-->
<!--#include file="post.asp"-->
<%
Class ImplMocomWAPmoWAPBbs
Private objIndex
Private objForum
Private objArticle
Private objPost
Private Sub Class_Initialize()
Set objIndex = Nothing
Set objForum = Nothing
Set objArticle = Nothing
Set objPost = Nothing
End Sub
Private Sub Class_Terminate()
Set objIndex = Nothing
Set objForum = Nothing
Set objArticle = Nothing
Set objPost = Nothing
End Sub
Public Property Get index()
If objIndex Is Nothing Then
    Set objIndex = New ImplMocomWAPmoWAPBbsIndex
End If
Set Index = objIndex
End Property
Public Property Get forum()
If objForum Is Nothing Then
    Set objForum = New ImplMocomWAPmoWAPBbsForum
End If
Set Forum = objForum
End Property
Public Property Get article()
If objArticle Is Nothing Then
    Set objArticle = New ImplMocomWAPmoWAPBbsArticle
End If
Set Article = objArticle
End Property
Public Property Get post()
If objPost Is Nothing Then
    Set objPost = New ImplMocomWAPmoWAPBbsPost
End If
Set Post = objPost
End Property
End Class
%>