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

📄 config.asp

📁 WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
        MyIO.Echo " <img id=""ID_IMPRESS_COL"" src=""images/xw_color0.gif"" border=""0"" align=""absMiddle""" & IIf(MyKernel.Config("impress_color") <> "", " style=""cursor:pointer;background-color:" & MyKernel.Config("impress_color") & """", "") & " onmouseover=""ImageBox.filter(this, 1)"" onmouseout=""ImageBox.filter(this, 0)"" onclick=""getPalette(this, 'frmMain', 'impress_color')"" title=""调色板"" />"
        MyIO.Echo " 通用颜色表述方式，例如红色表述为：#FF0000"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        Call getFontList(MyKernel.Config("impress_font"))
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>图片水印路径</td>"
        MyIO.Echo "<td><input type=""text"" name=""impress_image"" class=""txt"" value=""" & MyKernel.Config("impress_image") & """ /> 水印类型为[图片水印]时，该配置有效</td>"
        MyIO.Echo "</tr>"
        Call getImpressPlace(MyKernel.Config("impress_place"))
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>水印坐标</td>"
        MyIO.Echo "<td><input type=""text"" name=""impress_x"" class=""txt"" size=""5"" value=""" & MyKernel.Config("impress_x") & """ /> x <input type=""text"" name=""impress_y"" class=""txt"" size=""5"" value=""" & MyKernel.Config("impress_y") & """ /> 单位：像素，水印距离边框的坐标</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr>"
        MyIO.Echo "<td colspan=""2"" align=""center"" class=""winT0"">多个文件扩展名用|分隔，建议不要修改MIME类型</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>允许的图片格式</td>"
        MyIO.Echo "<td>"
        MyIO.Echo "<input type=""text"" name=""AllowImage"" value=""" & MyKernel.Config("AllowImage") & """ size=""40"" class=""txt"" />"
        Call GetMIMEList("image", MyKernel.Config("AllowImage"))
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>允许的铃声格式</td>"
        MyIO.Echo "<td>"
        MyIO.Echo "<input type=""text"" name=""AllowRing"" value=""" & MyKernel.Config("AllowRing") & """ size=""40"" class=""txt"" />"
        Call GetMIMEList("ring", MyKernel.Config("AllowRing"))
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>允许的视频格式</td>"
        MyIO.Echo "<td>"
        MyIO.Echo "<input type=""text"" name=""AllowVideo"" value=""" & MyKernel.Config("AllowVideo") & """ size=""40"" class=""txt"" />"
        Call GetMIMEList("video", MyKernel.Config("AllowVideo"))
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>允许的软件格式</td>"
        MyIO.Echo "<td>"
        MyIO.Echo "<input type=""text"" name=""AllowSoft"" value=""" & MyKernel.Config("AllowSoft") & """ size=""40"" class=""txt"" />"
        Call GetMIMEList("soft", MyKernel.Config("AllowSoft"))
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT2"">"
        MyIO.Echo "<td colspan=""2"">"
        MyIO.Echo " <input type=""button"" value=""保存配置"" class=""btn"" onclick=""Form.submit(this)"" />"
        MyIO.Echo " <input type=""button"" value=""刷新页面"" class=""btn"" onclick=""location.reload()"" />"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "</table>"
        MyIO.Echo "</form>"
    Case "4"
        MyIO.Echo "<form id=""frmMain"" action=""admin_base.asp?Option=4"" method=""post"" onSubmit=""return(false)"">"
        MyIO.Echo "<table width=""100%"" border=""border=""1"" cellpadding=""2"" cellspacing=""0"" align=""center"" style=""border-collapse:collapse"" bordercolor=""#000000"">"
        MyIO.Echo "<tr>"
        MyIO.Echo "<td width=""100"" class=""winT0""><b>参数名</b></td>"
        MyIO.Echo "<td class=""winT0""><b>参数值</b></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>IP访问规则</td>"
        MyIO.Echo "<td>"
        MyIO.Echo "<select name=""IPRule"" class=""sel"" onChange=""SetIPRule(this)"">"
        MyIO.Echo "<option value=""0""" & setSelected(atoi(MyKernel.Config("IPRule")) = 0) & ">不使用IP访问规则</option>"
        MyIO.Echo "<option value=""1""" & setSelected(atoi(MyKernel.Config("IPRule")) = 1) & ">允许任何IP访问</option>"
        MyIO.Echo "<option value=""2""" & setSelected(atoi(MyKernel.Config("IPRule")) = 2) & ">禁止任何IP访问</option>"
        MyIO.Echo "</select><br/>"
        Call getIPRule(0)
        Call getIPRule(1)
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT2"">"
        MyIO.Echo "<td colspan=""2"">"
        MyIO.Echo " <input type=""button"" value=""保存配置"" class=""btn"" onclick=""IPSubmit(this)"" />"
        MyIO.Echo " <input type=""button"" value=""刷新页面"" class=""btn"" onclick=""location.reload()"" />"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "</table>"
        MyIO.Echo "</form>"
    Case "5"
        MyIO.Echo "<form id=""frmMain"" action=""admin_base.asp?Option=5"" method=""post"" onSubmit=""return(false)"">"
        MyIO.Echo "<table width=""100%"" border=""border=""1"" cellpadding=""2"" cellspacing=""0"" align=""center"" style=""border-collapse:collapse"" bordercolor=""#000000"">"
        MyIO.Echo "<tr>"
        MyIO.Echo "<td width=""100"" class=""winT0""><b>参数名</b></td>"
        MyIO.Echo "<td class=""winT0""><b>参数值</b></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>屏蔽模拟器列表</td>"
        MyIO.Echo "<td>"
        MyIO.Echo "根据USER_AGENT（即UA）判断，只需要输入一个UA标识即可，例如M3Gate的UA为：M3Gate 0.6，那么只要输入M3Gate即可<br/>"
        Call getUARule
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT2"">"
        MyIO.Echo "<td colspan=""2"">"
        MyIO.Echo " <input type=""button"" value=""保存配置"" class=""btn"" onclick=""UASubmit(this)"" />"
        MyIO.Echo " <input type=""button"" value=""刷新页面"" class=""btn"" onclick=""location.reload()"" />"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "</table>"
        MyIO.Echo "</form>"
    Case Else
        MyIO.Echo "未知选项"
    End Select
End Sub

Private Sub getFontList(ByVal strFont)
    Dim arr, ptr
    arr = Split(GetFileString(GetMapPath("config/fonts.txt"), LOCAL_CHARSET), "|")
    MyIO.Echo "<tr class=""winT1"">"
    MyIO.Echo "<td>文字水印字体</td>"
    MyIO.Echo "<td>"
    MyIO.Echo " <select name=""impress_font"">"
    For Each ptr In arr
        MyIO.Echo " <option value=""" & ptr & """" & setSelected(ptr = strFont) & ">" & ptr & "</option>"
    Next
    MyIO.Echo " </select>"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
End Sub

Private Sub getImpressPlace(ByVal strPlace)
    Dim arr1, arr2, i
    arr1 = Split("NorthWest|North|NorthEast|West|Center|East|SouthWest|South|SouthEast", "|")
    arr2 = Split("上左|上中|上右|右|中|左|下左|下中|下右", "|")
    MyIO.Echo "<tr class=""winT1"">"
    MyIO.Echo "<td>水印位置</td>"
    MyIO.Echo "<td>"
    MyIO.Echo " <select name=""impress_place"">"
    For i = 0 To UBound(arr1)
        MyIO.Echo " <option value=""" & arr1(i) & """" & setSelected(arr1(i) = strPlace) & ">" & arr2(i) & "</option>"
    Next
    MyIO.Echo " </select>"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
End Sub

Private Sub doPost()
    Call doPostConfig
End Sub

Private Sub doPostConfig()
    MyIO.Allow = MyKernel.Config("AllowImage") & "|" & MyKernel.Config("AllowRing")
    Dim arr
    Dim ptr
    Select Case atoi(MyIO.QueryString("Option"))
    Case 0
        If MyPower("ConfigWeb") = 1 Then
            If MyPower.Status = 1 Then
                arr = Array("SiteName", "SiteIntro", "SiteEmail", "SitePhone", "SiteCopy", "ForbidName", "ForbidWord", "CheckXHTML", "IsRewrite", "Timeout", "StapleGroup", "MatterGroup", "CacheIndex", "CacheStaple", "CacheContent", "Description", "Keywords", "search_engine", "LogDetail", "LogSimulator")
            Else
                arr = Array("SiteName", "SiteIntro", "SiteEmail", "SitePhone", "SiteCopy", "ForbidName", "ForbidWord", "CheckXHTML", "IsRewrite")
            End If
            For Each ptr In arr
                MyKernel.Config(ptr) = MyIO.Form(ptr)
            Next
            Call MySaveFile("SiteLogo")
            RemoveCache "index", 0, 0, 0
            blnError = False
            strError = "基本配置保存成功"
        Else
            strError = "您没有修改基本配置的权限"
        End If
    Case 1
        If MyPower("ConfigIndex") = 1 Then
            arr = Array("Templet", "BackColor", "IndexCSS")
            For Each ptr In arr
                MyKernel.Config(ptr) = MyIO.Form(ptr)
            Next
            Call MySaveFile("BackImage")
            Call MySaveFile("BackSound")
            RemoveCache "index", 0, 0, 0
            blnError = False
            strError = "首页配置保存成功"
        Else
            strError = "您没有修改首页配置的权限"
        End If
    Case 2
        If MyPower("ConfigPlus") = 1 Then
            Dim strRooms
            strRooms = MyKernel.Config("ChatRoom")
            arr = Array("IsQuery", "QueryTitle", "QueryStaple", "QueryDepth", "IsBook", "BookTitle", "IsBookPublic", "IsBookWrite", "BookInterval", "BookTotal", "IsMsgbox", "MsgboxTitle", "MsgboxMaxIn", "MsgboxMaxOut", "IsBBS", "BBSTitle", "ArtInterval", "ArtTotal", "RemarkInterval", "RemarkTotal", "TradeInterval", "TradeTotal", "IsMarker", "MarkerTitle", "MarkerTotal", "IsCoop", "IsChat", "ChatTitle", "ChatTotal", "ChatRoom")
            For Each ptr In arr
                MyKernel.Config(ptr) = MyIO.Form(ptr)
            Next
            If MyKernel.Modlist(moChat) = 0 And strRooms <> MyKernel.Config("ChatRoom") Then
                Call AsyncRooms
            End If
            blnError = False
            strError = "插件配置保存成功"
        Else
            strError = "您没有修改插件配置的权限"
        End If
    Case 3
1234

⌨️ 快捷键说明

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