⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 content

📁 WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品
💻
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
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 "list"
        Call doGetList
    Case "modify"
        Call doGetModify
    Case "matter"
        Call doGetMatter
    Case "option"
        Call doGetOption
    Case Else
        Call doGetMain
    End Select
End Sub

Private Sub doPost()
    Select Case LCase(MyIO.QueryString("Handle"))
    Case "add"
        Call doPostAdd
    Case "change"
        Call doPostChange
    Case "move"
        Call doPostMove
    Case "remove"
        Call doPostRemove
    Case "modify"
        Call doPostModify
    Case "examine"
        Call doPostExamine
    Case "preview"
        Call doPostPreview
    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.Option = " & atoi(MyIO.QueryString("Option")) & ";"
    MyIO.Echo "jspp.SeqId = " & atol(MyIO.QueryString("SeqId")) & ";"
    MyIO.Echo "jspp.Allow = """ & MyKernel.Config("AllowVideo") & "|" & MyKernel.Config("AllowSoft") & """;"
    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 "jspp.Staple = 0;"
    MyIO.Echo "</script>"
    MyIO.Echo "<script language=""javascript"" src=""images/wm_content.js""></script>"
    MyIO.Echo "<script language=""javascript"" src=""images/wm_contentx.js""></script>"
    MyIO.Echo "</head>"
    MyIO.Echo "<body style=""padding:5;margin:0;overflow:auto;border:0"">"
    MyIO.Echo "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"" style=""border:1px solid #000000"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td align=""right"" bgcolor=""#A2ADC4"" style=""border-bottom:1px solid #000000;padding-right:1px;padding-top:1px"" height=""24""><img src=""images/xw_cls0.gif"" border=""0"" align=""absMiddle"" onMouseOver=""this.src='images/xw_cls1.gif'"" onMouseOut=""this.src='images/xw_cls0.gif'"" onMouseDown=""this.src='images/xw_cls2.gif'"" onMouseUp=""this.src='images/xw_cls1.gif'"" /></td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td>"
    MyIO.Echo "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td height=""24"" style=""background-image:url(images/xw_back4.gif)"">&nbsp;</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td>"
    MyIO.Echo "<table width=""98%"" border=""0"" cellpadding=""0"" cellspacing=""0"" align=""center"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td id=""_OPTION"" class=""f12""></td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "</table>"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "</table>"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "</table>"
    MyIO.Echo "<iframe id=""console"" name=""console"" frameborder=""0"" scrolling=""no"" width=""100%"" height=""30""></iframe>"
    MyIO.Echo "</body>"
    MyIO.Echo "</html>"
End Sub

Private Sub doGetOption()
    Select Case MyIO.QueryString("Option")
    Case "0"
        MyIO.Echo "<form id=""frmMain"" onsubmit=""return(false)"">"
        MyIO.Echo "<table width=""100%"" border=""1"" cellpadding=""2"" cellspacing=""0"" align=""center"" style=""border-collapse:collapse"" bordercolor=""#000000"">"
        MyIO.Echo "<tr>"
        MyIO.Echo "<td colspan=""2"" class=""winT0"">"
        MyIO.Echo " <b>所有内容</b>"
        MyIO.Echo " <select name=""Parent"" class=""sel"" onchange=""jspp.Content.parent=this.value;jspp.Content.doPage(0)"">"
        MyIO.Echo "<option value=""0"">选择栏目</option>"
        MyIO.Echo "</select>"
        MyIO.Echo " <a href=""javascript:void(0)"" class=""a1"" onclick=""jspp.Content.doPage(jspp.Content.page)"">刷新内容列表</a>"
        If MyPower.Status = 100 Then
            MyIO.Echo " 带有*字符的是属于您的栏目"
        End If
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td colspan=""2"" id=""_list_""></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td colspan=""2"">"
        MyIO.Echo " <label style=""padding:4px 2px 0px 2px""><b>类型</b></label>"
        MyIO.Echo " <img src=""images/xw_cate0.gif"" border=""0"" align=""absBottom"" /> 普通内容"
        MyIO.Echo " <img src=""images/xw_cate1.gif"" border=""0"" align=""absBottom"" /> HTTP连接<br/>"
        MyIO.Echo " <label style=""padding:4px 2px 0px 2px""><b>状态</b></label>"
        MyIO.Echo " <img src=""images/xw_stat0.gif"" border=""0"" align=""absBottom"" /> 正常的内容"
        MyIO.Echo " <img src=""images/xw_stat1.gif"" border=""0"" align=""absBottom"" /> 隐藏的内容<br/>"
        MyIO.Echo " <label style=""padding:4px 2px 0px 2px""><b>推荐</b></label>"
        MyIO.Echo " <img src=""images/xw_commend0.gif"" border=""0"" align=""absBottom"" /> 设置为推荐的内容<br/>"
        MyIO.Echo " <label style=""padding:4px 2px 0px 2px""><b>热点</b></label>"
        MyIO.Echo " <img src=""images/xw_hot0.gif"" border=""0"" align=""absBottom"" /> 设置为热点的内容<br/>"
        MyIO.Echo " <label style=""padding:4px 2px 0px 2px""><b>审核</b></label>"
        MyIO.Echo " <img src=""images/xw_examine0.gif"" border=""0"" align=""absBottom"" /> 未审核的内容"
        MyIO.Echo " <img src=""images/xw_examine1.gif"" border=""0"" align=""absBottom"" /> 已审核的内容<br/>"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "</table>"
        MyIO.Echo "</form>"
    Case "1"
        If MyPower("AddContent") = 0 Then
            MyIO.Echo "您没有新建内容的权限"
        Else
            MyIO.Echo "<form id=""frmMain"" action=""admin_content.asp?Handle=add&Option=1"" method=""post"" enctype=""multipart/form-data"" onsubmit=""return(false)"" target=""console"">"
            MyIO.Echo "<table width=""100%"" border=""1"" cellpadding=""2"" cellspacing=""0"" align=""center"" style=""border-collapse:collapse"" bordercolor=""#000000"">"
            MyIO.Echo "<tr>"
            MyIO.Echo "<td colspan=""2"" class=""winT0""><b>新建内容</b>" & MUST_INPUT_HINT & "</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td width=""20%"">所属栏目</td>"
            MyIO.Echo "<td width=""80%""><select name=""StapleId"" class=""sel"" style=""width:200px"" onchange=""jspp.SeqId = this.value""></select>" & MUST_INPUT & IIf(MyPower.Status = 100, "带有*字符的是属于您的栏目<br/>", "") & "</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>内容类型</td>"
            MyIO.Echo "<td>"
            MyIO.Echo " <select name=""Category"" class=""sel"" onchange=""chkCategory(this, 'LinkParent', 'LinkChild')"">"
            MyIO.Echo "<option value=""" & wmContentNormal & """>普通内容</option>"
            MyIO.Echo "<option value=""" & wmContentLinking & """>HTTP连接</option>"
            MyIO.Echo "</select>"
            MyIO.Echo " <select name=""LinkParent"" class=""sel"" style=""display:none"" onchange=""Kernel.setLink(this.form, 'LinkChild', this.value)""><option value=""0"">插件连接</option><option value=""1"">栏目连接</option></select><select name=""LinkChild"" class=""sel"" style=""width:200px;display:none"" onchange=""Kernel.putLink(this.value)""></select>"
            MyIO.Echo "</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>内容标题</td>"
            MyIO.Echo "<td><input type=""text"" name=""Title"" class=""txt"" style=""width:200px"" />" & MUST_INPUT & "</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>内容文本</td>"
            MyIO.Echo "<td>"
            MyIO.Echo " <textarea name=""Content"" class=""area"" style=""width:500px;height:200px"" onclick=""this.form.Focus.value = Form.getLength(event)"" onfocus=""Kernel.lockLink=this""></textarea><br/>"
            MyIO.Echo " <input type=""button"" value=""预览"" class=""btn"" onclick=""jspp.ContentX.doPreview(this)"" />"
            MyIO.Echo " <input type=""button"" value=""插入素材"" class=""btn"" onclick=""jspp.ContentX.single = 0;jspp.ContentX.doGetMatter(this.form, 0, '', 1)"" />"
            MyIO.Echo " <input type=""button"" value=""插入图片"" class=""btn"" onclick=""jspp.ContentX.doGetImage(this)"" />"
            MyIO.Echo " <input type=""button"" value=""插入连接"" class=""btn"" onclick=""jspp.ContentX.doGetLink(this)"" />"
            MyIO.Echo " 光标位置：<input type=""text"" value=""0"" class=""txt"" style=""width:50px"" name=""Focus"" />"
            MyIO.Echo "</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>分页标记</td>"
            MyIO.Echo "<td><input type=""text"" name=""PageMark"" class=""txt"" /> 优先于分页长度，如果为空，则按长度分页</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>分页长度</td>"
            MyIO.Echo "<td><input type=""text"" name=""Length"" class=""txt"" style=""width:50px"" value=""" & wmContentLength & """ />" & MUST_INPUT & " 分页的字符长度</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>内容附件</td>"
            MyIO.Echo "<td>"
            MyIO.Echo "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td width=""30""><input type=""radio"" name=""Attach"" value=""0"" checked=""true"" onclick=""jspp.Content.chkAttach(this)"" /></td>"
            MyIO.Echo "<td>本地文件：<input type=""file"" id=""Attach0"" name=""Attach0"" class=""txt"" style=""width:300px"" onchange=""jspp.Content.chkAttachX(this, 0)"" /></td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>&nbsp;</td>"
            MyIO.Echo "<td>JAD 文件：<input type=""file"" id=""JAD0"" name=""JAD0"" class=""txt"" style=""width:300px"" disabled=""true"" /></td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>&nbsp;</td>"
            MyIO.Echo "<td>预览图片：<input type=""file"" id=""PRE0"" name=""PRE0"" class=""txt"" style=""width:300px"" disabled=""true"" /></td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td><input type=""radio"" name=""Attach"" value=""1"" onclick=""jspp.Content.chkAttach(this)"" /></td>"
            MyIO.Echo "<td>远程文件：<input type=""text"" id=""Attach1"" name=""Attach1"" class=""txt"" style=""width:300px"" onchange=""jspp.Content.chkAttachX(this, 1)"" disabled=""true"" /></td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>&nbsp;</td>"
            MyIO.Echo "<td>JAD 文件：<input type=""text"" id=""JAD1"" name=""JAD1"" class=""txt"" style=""width:300px"" disabled=""true"" /></td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>&nbsp;</td>"
            MyIO.Echo "<td>预览图片：<input type=""text"" id=""PRE1"" name=""PRE1"" class=""txt"" style=""width:300px"" disabled=""true"" /></td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td><input type=""radio"" name=""Attach"" value=""2"" onclick=""jspp.Content.chkAttach(this)"" /></td>"
            MyIO.Echo "<td>素 材 库：<input type=""text"" id=""Attach2"" name=""Attach2"" class=""txt"" style=""width:300px"" disabled=""true"" /></td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
12345

⌨️ 快捷键说明

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