#template.mo

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

Option Explicit

TBBS.Vars("template") = "admin.template"
TBBS.AddNav "", TBBS.Lang("interface_manage")

Call main()

Private Sub doGet()
    Select Case TBBS.Vars("action")
    Case "lang"
        Call doGetLang
    Case "edit"
        Call doGetEdit
    Case Else
        Call doGetTemplate
    End Select
End Sub

Private Sub doPost()
    TBBS.AddNav "admin.asp?handle=template", TBBS.Lang("template_manage")
    Select Case TBBS.Vars("action")
    Case "lang"
        Call doPostLang
    Case "edit"
        Call doPostEdit
    Case Else
    End Select
End Sub

Private Sub doGetTemplate()
    TBBS.AddNav "", TBBS.Lang("template_manage")
    Dim arr, ptr
    arr = Split("head|foot|index|register|login|forget|out|forum|topic|post|my|error|bulletin|list|service|handle", "|")
    For Each ptr In arr
        TBBS.Attr("template", ptr) = 0
    Next
    TBBS.Attr("template", "common") = 1
    TBBS.Attr("template", "admin") = 1
    arr = Split("myindex|myfav|mymsgbox|myinbox|myoutbox|sendsms|myfriend|myfile|myinfo|mypasswd|ubbcode|ubbflash|ubbmedia|ubbmediamov|ubbmediara|ubbmediarm|ubbquote", "|")
    For Each ptr In arr
        TBBS.Attr("template", ptr) = 2
    Next
End Sub

Private Sub doGetLang()
    TBBS.AddNav "admin.asp?handle=template", TBBS.Lang("template_manage")
    TBBS.AddNav "", TBBS.Lang("language")
    Dim xmlNode
    Dim clsLang, key
    Set xmlNode = TBBS.Element("lang2")
    Set clsLang = Server.CreateObject(PROGID_HASH)
    TBBS.Vars("name") = MyIO.QueryString("name")
    HashAdd clsLang, MyKernel.Resource("moex.twinbbs.lang." & TBBS.Vars("name")), "|"
    For Each key In clsLang.Keys
        xmlNode.setAttribute key, clsLang(key)
    Next
    Set clsLang = Nothing
    Set xmlNode = Nothing
End Sub

Private Sub doGetEdit()
    Dim strName
    TBBS.AddNav "admin.asp?handle=template", TBBS.Lang("template_manage")
    TBBS.AddNav "", TBBS.Lang("edit")
    TBBS.Vars("type") = MyIO.QueryString("type")
    TBBS.Vars("name") = MyIO.QueryString("name")
    strName = "Template.$(NetType).$(Name)"
    strName = Replace(strName, "$(NetType)", TBBS.Vars("type"))
    strName = Replace(strName, "$(Name)", TBBS.Vars("name"))
    TBBS.Vars("content") = MyKernel.Resource("moex.twinbbs." & strName)
End Sub

Private Sub doPostLang()
    Dim clsLang, name, value, i
    Dim xmlNode
    Set xmlNode = TBBS.Element("lang2")
    Set clsLang = Server.CreateObject(PROGID_HASH)
    TBBS.Vars("name") = MyIO.QueryString("name")
    name = MyIO.FormArray("name")
    value = MyIO.FormArray("value")
    For i = 0 To UBound(name)
        If Trim(name(i)) <> "" Then
            clsLang(name(i)) = value(i)
            xmlNode.setAttribute name(i), value(i)
        End If
    Next
    MyKernel.Resource("moex.twinbbs.lang." & TBBS.Vars("name")) = HashString(clsLang, "|")
    Set clsLang = Nothing
    TBBS.Vars("state") = 2
    TBBS.AddHint "set_ok", Array()
End Sub

Private Sub doPostEdit()
    Dim strName
    TBBS.AddNav "", TBBS.Lang("edit")
    TBBS.Vars("type") = MyIO.QueryString("type")
    TBBS.Vars("name") = MyIO.QueryString("name")
    strName = "template.$(NetType).$(Name)"
    strName = Replace(strName, "$(NetType)", TBBS.Vars("type"))
    strName = Replace(strName, "$(Name)", TBBS.Vars("name"))
    TBBS.Vars("content") = MyIO.Form("content")
    MyKernel.Resource("moex.twinbbs." & strName) = TBBS.Vars("content")
    DelCache strName
    TBBS.Vars("state") = 2
    TBBS.AddHint "set_ok", Array()
End Sub