📄 templet

📁 WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品
💻
📖 第 1 页 / 共 2 页
字号:
12 下一页
Private blnError
Private strError
Private rs
Private strSQL
Private objPage

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 "open"
        Call doGetOpen
    Case "load"
        Call doGetTemplet
    Case "ads"
        Call doGetAds
    Case Else
        Call doGetMain
    End Select
End Sub

Private Sub doPost()
    Select Case LCase(MyIO.QueryString("Handle"))
    Case "save"
        Call doPostSave
    Case "rename"
        Call doPostRename
    Case "delete"
        Call doPostDelete
    Case Else
        MyIO.Echo "未知操作"
    End Select
End Sub

Private Sub doGetMain()
    MyIO.Echo "<html>"
    MyIO.Echo "<head>"
    MyIO.Echo "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />"
    MyIO.Echo "<meta http-equiv=""Cache-Control"" content=""no-cache, max-age=0"" />"
    MyIO.Echo "<title>模版管理</title>"
    MyIO.Echo "<link rel=""stylesheet"" href=""images/xw.css"" />"
    MyIO.Echo "<script language=""javascript"" src=""jspp/jspp.js""></script>"
    MyIO.Echo "<script language=""javascript"">"
    MyIO.Echo "jspp.ImageFront = " & atoi(MyKernel.Config("ImageFront")) & ";"
    MyIO.Echo "jspp.Share = " & atoi(MyKernel.Config("StapleGroup")) & ";"
    MyIO.Echo "jspp.GroupId = " & MyAdmin("GroupId") & ";"
    MyIO.Echo "jspp.TeamId = """ & MyAdmin("TeamId") & """;"
    MyIO.Echo "jspp.AdminId = """ & MyAdmin("SeqId") & """;"
    MyIO.Echo "jspp.Power = " & MyPower.Status & ";"
    MyIO.Echo "</script>"
    MyIO.Echo "<script language=""javascript"" src=""images/wm_templet.js""></script>"
    MyIO.Echo "</head>"
    MyIO.Echo "<body class=""system2"">"
    MyIO.Echo "<div id=""_templet""></div>"
    MyIO.Echo "<table width=""100%"" border=""0"" cellpadding=""2"" cellspacing=""0"">"
    MyIO.Echo "<tr class=""winT4"">"
    MyIO.Echo "<td>"
    MyIO.Echo "<li>模板编辑器的菜单都用鼠标右键调用，暂不支持Opera浏览器</li>"
    MyIO.Echo "<li>右键菜单共有四个：主菜单、列菜单、行菜单、模板菜单</li>"
    MyIO.Echo "<li>主菜单在窗口左上角的四角图片处<img src=""../images/xw_table0.gif"" />，在图片上点右键即可调出主菜单</li>"
    MyIO.Echo "<li>列菜单为第一行表格，标有1、2、3等数字的表格，右键即可调出菜单</li>"
    MyIO.Echo "<li>行菜单为左边第一列的表格，标有“左”字符的表格，右键即可调出菜单</li>"
    MyIO.Echo "<li>模板菜单在表格中，在表格中任意位置点右键即可调出菜单</li>"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "</table>"
    MyIO.Echo "</body>"
    MyIO.Echo "</html>"
End Sub

Private Sub doGetOpen()
    MyIO.Echo "<table width=""400"" border=""1"" cellpadding=""2"" cellspacing=""0"" style=""border-collapse:collapse"" bordercolor=""#000000"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td width=""150"" class=""winT0""><b>模版名称</b></td>"
    MyIO.Echo "<td width=""90"" class=""winT0""><b>模版类型</b></td>"
    MyIO.Echo "<td width=""160"" class=""winT0""><b>管理</b></td>"
    MyIO.Echo "</tr>"
    Dim xmlDoc
    Dim xmlNode
    Set xmlDoc = WM_GetCache("templet")
    For Each xmlNode In xmlDoc.documentElement.childNodes
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td>" & xmlNode.getAttribute("name") & "</td>"
        MyIO.Echo "<td>" & GetTempletType(xmlNode.getAttribute("type")) & "</td>"
        MyIO.Echo "<td align=""center"">"
        MyIO.Echo " <input type=""button"" value=""编辑"" class=""btn"" onclick=""Templet.callModify('" & xmlNode.getAttribute("name") & "')"" />"
        MyIO.Echo " <input type=""button"" value=""重命名"" class=""btn"" onclick=""Templet.callRename('" & xmlNode.getAttribute("name") & "')"" />"
        MyIO.Echo " <input type=""button"" value=""删除"" class=""btn"" onclick=""Templet.callRemove('" & xmlNode.getAttribute("name") & "')"" />"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
    Next
    MyIO.Echo "</table>"
    Set xmlNode = Nothing
    Set xmlDoc = Nothing
End Sub

Private Sub doGetTemplet()
    Dim strName
    strName = Trim(MyIO.QueryString("Name"))
    If strName = "" Then
        MyIO.Echo "ERR:请选择您要编辑的模版"
    Else
        Dim xmlDoc, xmlNode, strPath
        Set xmlDoc = WM_GetCache("templet")
        Set xmlNode = XMLQuery(xmlDoc.documentElement, "templet[@name='" & XPathString(strName) & "']")
        If Not xmlNode Is Nothing Then
            strPath = GetMapPath("templet/" & XMLAttr(xmlNode, "file") & ".tpl")
            If fso.FileExists(strPath) Then
                MyIO.Echo XMLAttr(xmlNode, "type") & "$$$" & GetFileString(strPath, LOCAL_CHARSET)
            Else
                MyIO.Echo "ERR:找不到您要编辑的模版文件 - " & strName
            End If
        Else
            MyIO.Echo "ERR:找不到您要编辑的模版 - " & strName
        End If
        Set xmlNode = Nothing
        Set xmlDoc = Nothing
    End If
End Sub

Private Sub doGetAds()
    Dim i
    Dim strWhere
    Dim xmlNode
    Set objPage = vbsre.mocom.WAPmo.Page.newInstance()
    objPage.ID = atol(MyIO.QueryString("Page"))
    objPage.Size = 20
    objPage.DataType = WM_DataType
    objPage.Column = "*"
    objPage.Table = T_ADS
    objPage.Count = GetPageCount(objPage)
    objPage.Index = "SeqId"
    objPage.Sort = "SEQID DESC"
    objPage.SortType = 1
    objPage.Build "ads", "ad"
    MyIO.Echo "<table width=""100%"" border=""1"" cellpadding=""2"" cellspacing=""0"" align=""center"" style=""border-collapse:collapse;word-break:break-all;word-wrap:break-word;"" bordercolor=""#000000"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td width=""8%"" class=""winT0""><b>选择</b></td>"
    MyIO.Echo "<td width=""8%"" class=""winT0""><b>类型<b/></td>"
    MyIO.Echo "<td width=""34%"" class=""winT0""><b>连接标题/图片地址<b/></td>"
    MyIO.Echo "<td width=""34%"" class=""winT0""><b>连接地址/文本/图片连接<b/></td>"
    MyIO.Echo "<td width=""8%"" class=""winT0""><b>显示<b/></td>"
    MyIO.Echo "<td width=""8%"" class=""winT0""><b>点击<b/></td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr class=""winT4"">"
    MyIO.Echo "<td align=""center""><input type=""radio"" name=""AdsId"" value=""0"" checked=""true"" /></td>"
    MyIO.Echo "<td colspan=""5"">使用随机广告</td>"
    MyIO.Echo "</tr>"
    If objPage.Rows.hasChildNodes Then
        i = 0
        For Each xmlNode In objPage.Rows.childNodes
            MyIO.Echo "<tr class=""winT4"">"
            MyIO.Echo "<td align=""center""><input type=""radio"" name=""AdsId"" value=""" & XMLAttr(xmlNode, "seqid") & """ /></td>"
            MyIO.Echo "<td align=""center"">" & GetAdsCategory(XMLAttr(xmlNode, "category")) & "</td>"
            MyIO.Echo "<td>" & MyIO.HTMLEncode(XMLAttr(xmlNode, "title")) & "</td>"
            MyIO.Echo "<td>" & MyIO.HTMLEncode(XMLAttr(xmlNode, "content")) & "</td>"
            MyIO.Echo "<td align=""right"">" & XMLAttr(xmlNode, "look") & "</td>"
            MyIO.Echo "<td align=""right"">" & XMLAttr(xmlNode, "hit") & "</td>"
            MyIO.Echo "</tr>"
            i = i + 1
        Next
        Call ShowPage
    Else
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td colspan=""6"">尚无任何广告</td>"
        MyIO.Echo "</tr>"
    End If
    MyIO.Echo "</table>"
    Set objPage = Nothing
End Sub

Private Function GetAdsCategory(ByVal x)
    If x = 0 Then
        GetAdsCategory = "连接"
    ElseIf x = 1 Then
        GetAdsCategory = "文本"
    ElseIf x = 2 Then
        GetAdsCategory = "图片"
    Else
12 下一页
💿 文件大小 2007 K
👤 上传用户 yangjiuhe
📂 所属分类手机WAP编程
🏷️ 相关标签

#WAPmo #WAP #网站 #手机
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -