frame

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

Private blnError
Private strError

Private Sub Class_Initialize()
    blnError = True
    strError = "无错误"
End Sub

Private Sub Class_Terminate()
End Sub

Public Sub main()
    If MyIO.Env("REQUEST_METHOD") = "POST" Then
        Call doPost
    Else
        Call doGet
    End If
End Sub

Private Sub doGet()
    Select Case LCase(MyIO.QueryString("Handle"))
    Case "head"
        Call doGetHead
    Case "left"
        Call doGetLeft
    Case "foot"
        Call doGetFoot
    Case "about"
        Call doGetAbout
    Case Else
        Call doGetFrame
    End Select
End Sub

Private Sub doPost()

End Sub

Private Sub doGetFrame()
    Dim tmp
    tmp = GetFileString(GetMapPath("templet/manager/frame.html"), LOCAL_CHARSET)
    tmp = Replace(tmp, "${SiteName}", MyKernel.Config("SiteName"))
    tmp = Replace(tmp, "${PATH_INFO}", MyIO.Env("PATH_INFO"))
    MyIO.Echo tmp
End Sub

Private Sub doGetHead()
    Dim tmp
    tmp = GetFileString(GetMapPath("templet/manager/head.html"), LOCAL_CHARSET)
    tmp = Replace(tmp, "${SiteName}", MyKernel.Config("SiteName"))
    tmp = Replace(tmp, "${admin_name}", MyAdmin("name"))
    MyIO.Echo tmp
End Sub

Private Sub doGetLeft()
    Dim tmp
    tmp = GetFileString(GetMapPath("templet/manager/left.html"), LOCAL_CHARSET)
    tmp = Replace(tmp, "${SiteName}", MyKernel.Config("SiteName"))
    MyIO.Echo tmp
    MyIO.Echo "<script language=""javascript"">"
    If MyKernel.Modlist(moMISC) = 1 Then
        MyIO.Echo "menu.add(new MenuItem(seq++, ""MISC下载统计"", ""admin_record.asp?Option=5"", null, fid[4]));"
    End If
    If MyKernel.Modlist(moTrade) = 1 Then
        MyIO.Echo "menu.add(new MenuItem(seq++, ""订单管理"", ""admin_trade.asp"", null, fid[5]));"
    End If
    If MyKernel.Modlist(moCoop) = 1 Then
        MyIO.Echo "menu.add(new MenuItem(seq++, ""合作管理"", ""admin_coop.asp"", null, fid[5]));"
    End If
    MyIO.Echo "</script>"
    Call AutoRun
End Sub

Private Sub AutoRun()
    Dim xdb
    Set xdb = WM_XMLDB("Spy")
    xdb.Filter = "@Check=1 and @Type>0"
    If Not xdb.EOF Then
        MyIO.Echo "<script language=""javascript"">"
        MyIO.Echo "window.open(""admin_spy.asp?Handle=Run"", ""spy"", ""width=700px,height=500px,scrollbars=yes"");"
        MyIO.Echo "</script>"
    End If
    Set xdb = Nothing
End Sub

Private Sub doGetFoot()
    Dim tmp
    tmp = GetFileString(GetMapPath("templet/manager/foot.html"), LOCAL_CHARSET)
    tmp = Replace(tmp, "${SiteName}", MyKernel.Config("SiteName"))
    MyIO.Echo tmp
End Sub

Private Sub doGetAbout()
    Dim tmp
    tmp = GetFileString(GetMapPath("templet/manager/about.html"), LOCAL_CHARSET)
    tmp = Replace(tmp, "${SiteName}", MyKernel.Config("SiteName"))
    tmp = Replace(tmp, "${PermitVersion}", PermitVersion)
    tmp = Replace(tmp, "${PermitVersion2}", PermitVersion2)
    tmp = Replace(tmp, "${PermitHost}", MyKernel.PermitHost)
    MyIO.Echo tmp
End Sub