main.asp

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

<!--#include file="Base16.asp"-->
<!--#include file="Cache.asp"-->
<!--#include file="Command.asp"-->
<!--#include file="Cookie.asp"-->
<!--#include file="CookieDictionary.asp"-->
<!--#include file="DB.asp"-->
<!--#include file="FileItem.asp"-->
<!--#include file="IO.asp"-->
<!--#include file="Memory.asp"-->
<!--#include file="XMLDB.asp"-->
<%
Class ImplMocomUtil
Private objBase16
Private objCache
Private objCommand
Private objCookie
Private objCookieDictionary
Private objDB
Private objFileItem
Private objIO
Private objMemory
Private objXMLDB
Private Sub Class_Initialize()
Set objBase16 = Nothing
Set objCache = Nothing
Set objCommand = Nothing
Set objCookie = Nothing
Set objCookieDictionary = Nothing
Set objDB = Nothing
Set objFileItem = Nothing
Set objIO = Nothing
Set objMemory = Nothing
Set objXMLDB = Nothing
End Sub
Private Sub Class_Terminate()
Set objBase16 = Nothing
Set objCache = Nothing
Set objCommand = Nothing
Set objCookie = Nothing
Set objCookieDictionary = Nothing
Set objDB = Nothing
Set objFileItem = Nothing
Set objIO = Nothing
Set objMemory = Nothing
Set objXMLDB = Nothing
End Sub
Public Property Get Base16()
If objBase16 Is Nothing Then
    Set objBase16 = New ImplMocomUtilBase16
End If
Set Base16 = objBase16
End Property
Public Property Get Cache()
If objCache Is Nothing Then
    Set objCache = New ImplMocomUtilCache
End If
Set Cache = objCache
End Property
Public Property Get Command()
If objCommand Is Nothing Then
    Set objCommand = New ImplMocomUtilCommand
End If
Set Command = objCommand
End Property
Public Property Get Cookie()
If objCookie Is Nothing Then
    Set objCookie = New ImplMocomUtilCookie
End If
Set Cookie = objCookie
End Property
Public Property Get CookieDictionary()
If objCookieDictionary Is Nothing Then
    Set objCookieDictionary = New ImplMocomUtilCookieDictionary
End If
Set CookieDictionary = objCookieDictionary
End Property
Public Property Get DB()
If objDB Is Nothing Then
    Set objDB = New ImplMocomUtilDB
End If
Set DB = objDB
End Property
Public Property Get FileItem()
If objFileItem Is Nothing Then
    Set objFileItem = New ImplMocomUtilFileItem
End If
Set FileItem = objFileItem
End Property
Public Property Get IO()
If objIO Is Nothing Then
    Set objIO = New ImplMocomUtilIO
End If
Set IO = objIO
End Property
Public Property Get Memory()
If objMemory Is Nothing Then
    Set objMemory = New ImplMocomUtilMemory
End If
Set Memory = objMemory
End Property
Public Property Get XMLDB()
If objXMLDB Is Nothing Then
    Set objXMLDB = New ImplMocomUtilXMLDB
End If
Set XMLDB = objXMLDB
End Property
End Class
%>