main.asp

来自「WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品」· ASP 代码 · 共 49 行

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