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

📄 config

📁 WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品
💻
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
Private blnError
Private strError
Private xmlMimeDoc
Private blnModify
Private rs, strSQL

Private Sub Class_Initialize()
    Set xmlMimeDoc = WM_GetCache("mime")
    blnModify = False
    blnError = True
    strError = "无错误"
End Sub

Private Sub Class_Terminate()
    If blnModify Then
        XMLSaveToFile xmlMimeDoc, GetMapPath("config/mime.xml")
    End If
    Set xmlMimeDoc = Nothing
End Sub

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

Private Sub doGet()
    Select Case LCase(MyIO.QueryString("Handle"))
    Case "option"
        Call doGetOption
    Case Else
        Call doGetMain
    End Select
End Sub

Private Sub doGetMain()
    Dim tmp
    tmp = GetFileString(GetMapPath("templet/manager/config.html"), LOCAL_CHARSET)
    tmp = Replace(tmp, "${SiteName}", MyKernel.Config("SiteName"))
    tmp = Replace(tmp, "${Option}", atoi(MyIO.QueryString("Option")))
    MyIO.Echo tmp
End Sub

Private Sub doGetOption()
    Select Case MyIO.QueryString("Option")
    Case "0"
        MyIO.Echo "<form id=""frmMain"" action=""admin_base.asp?Option=0"" method=""post"" enctype=""multipart/form-data"" 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>本WAP站地址</td>"
        MyIO.Echo "<td>http://" & MyKernel.IO.Env("HTTP_HOST") & "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>站点名称</td>"
        MyIO.Echo "<td><input type=""text"" name=""SiteName"" class=""txt"" size=""20"" value=""" & MyIO.HTMLEncode(MyKernel.Config("SiteName")) & """ /></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>站点LOGO</td>"
        MyIO.Echo "<td>"
        MyIO.Echo " <input type=""file"" name=""SiteLogo"" class=""txt"" size=""30"" />"
        If MyKernel.Config("SiteLogo") <> "" Then
            MyIO.Echo " <img id=""ID_SITELOGO_IMG"" src=""images/xw_view0.gif"" border=""0"" align=""absMiddle"" style=""cursor:pointer"" onmouseover=""ImageBox.filter(this, 1)"" onmouseout=""ImageBox.filter(this, 0)"" onclick=""ImageBox.show('images/logo." & MyKernel.Config("SiteLogo") & "')"" title=""预览"" />"
            MyIO.Echo " <img id=""ID_SITELOGO_BTN"" src=""images/xw_del0.gif"" border=""0"" align=""absMiddle"" style=""cursor:pointer"" onmouseover=""ImageBox.filter(this, 1)"" onmouseout=""ImageBox.filter(this, 0)"" onclick=""rpc_call_remove_file('site','logo',0,'ID_SITELOGO_IMG','ID_SITELOGO_BTN')"" title=""删除"" />"
        End If
        MyIO.Echo " 支持" & Replace(MyKernel.Config("AllowImage"), "|", "、") & "格式的图片"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>站点说明</td>"
        MyIO.Echo "<td><textarea name=""SiteIntro"" class=""area"" cols=""40"" rows=""5"">" & MyIO.HTMLEncode(MyKernel.Config("SiteIntro")) & "</textarea></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>站长信箱</td>"
        MyIO.Echo "<td><input type=""text"" name=""SiteEmail"" class=""txt"" size=""30"" value=""" & MyIO.HTMLEncode(MyKernel.Config("SiteEmail")) & """ /> 如果某栏目设置为只有VIP用户访问，那么用户通过该邮件联系本站站长</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>站点电话</td>"
        MyIO.Echo "<td><input type=""text"" name=""SitePhone"" class=""txt"" size=""30"" value=""" & MyIO.HTMLEncode(MyKernel.Config("SitePhone")) & """ /> 如果某栏目设置为只有VIP用户访问，那么用户通过该电话联系本站站长</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>版权信息</td>"
        MyIO.Echo "<td><textarea name=""SiteCopy"" class=""area"" cols=""40"" rows=""3"">" & MyIO.HTMLEncode(MyKernel.Config("SiteCopy")) & "</textarea></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>保留用户名</td>"
        MyIO.Echo "<td><input type=""text"" name=""ForbidName"" class=""txt"" size=""40"" value=""" & MyIO.HTMLEncode(MyKernel.Config("ForbidName")) & """ /> 保留的不让用户注册使用的用户名，多个用户名用|隔开</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>禁用词语</td>"
        MyIO.Echo "<td><input type=""text"" name=""ForbidWord"" class=""txt"" size=""40"" value=""" & MyIO.HTMLEncode(MyKernel.Config("ForbidWord")) & """ /> 禁止在留言、评论、论坛里使用的词语，多个词语用|隔开</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>检测 WAP 2.0</td>"
        MyIO.Echo "<td><input type=""checkbox"" name=""CheckXHTML"" value=""1""" & setChecked(MyKernel.Config("CheckXHTML") = "1") & " /> 自动检测用户终端是否支持 WAP 2.0，如果不检测，则只支持 WAP 1.2</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>ISAPI Rewrite</td>"
        MyIO.Echo "<td><input type=""checkbox"" name=""IsRewrite"" value=""1""" & setChecked(MyKernel.Config("IsRewrite") = "1") & " /> 服务器是否安装了ISAPI Rewrite组件？该组件用于规范文件下载名称</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>用户登陆超时</td>"
        MyIO.Echo "<td><input type=""text"" name=""Timeout"" value=""" & MyKernel.Config("Timeout") & """ class=""txt"" style=""width:50px"" /> 单位：天；用户登录后多少天后再次登录，如果设置为0，则每次重新访问需要再次登录</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>主题组策略</td>"
        MyIO.Echo "<td><input type=""checkbox"" name=""StapleGroup"" value=""1""" & setChecked(MyKernel.Config("StapleGroup") = "1") & " /> 主题组策略限制一个组的管理员只能管理自己的主题</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>素材组策略</td>"
        MyIO.Echo "<td><input type=""checkbox"" name=""MatterGroup"" value=""1""" & setChecked(MyKernel.Config("MatterGroup") = "1") & " /> 素材组策略限制一个组的管理员只能管理自己的素材</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>首页缓存</td>"
        MyIO.Echo "<td><input type=""text"" name=""CacheIndex"" value=""" & MyKernel.Config("CacheIndex") & """ class=""txt"" style=""width:50px"" /> 单位：分钟；首页缓存时间，默认60分钟 <input type=""button"" value=""清除缓存"" class=""btn"" onclick=""delCache('index')"" /></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>栏目缓存</td>"
        MyIO.Echo "<td><input type=""text"" name=""CacheStaple"" value=""" & MyKernel.Config("CacheStaple") & """ class=""txt"" style=""width:50px"" /> 单位：分钟；栏目缓存时间，默认1440分钟，即1天 <input type=""button"" value=""清除缓存"" class=""btn"" onclick=""delCache('staple')"" /></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>内容缓存</td>"
        MyIO.Echo "<td><input type=""text"" name=""CacheContent"" value=""" & MyKernel.Config("CacheContent") & """ class=""txt"" style=""width:50px"" /> 单位：分钟；内容缓存时间，默认144000分钟，即100天 <input type=""button"" value=""清除缓存"" class=""btn"" onclick=""delCache('content')"" /></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>站点描述</td>"
        MyIO.Echo "<td><input type=""text"" name=""Description"" value=""" & MyIO.HTMLEncode(MyKernel.Config("Description")) & """ class=""txt"" /> 便于让搜索引擎搜索到您的站点</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>搜索关键字</td>"
        MyIO.Echo "<td><input type=""text"" name=""Keywords"" value=""" & MyIO.HTMLEncode(MyKernel.Config("Keywords")) & """ class=""txt"" /> 便于让搜索引擎搜索到您的站点，多个关键字用英文逗号[,]分隔</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>搜索引擎标识</td>"
        MyIO.Echo "<td><input type=""text"" name=""search_engine"" value=""" & MyIO.HTMLEncode(MyKernel.Config("search_engine")) & """ class=""txt"" /> 搜索引擎的UA标识，例如：google，多个搜索引擎标识用|隔开，系统会将搜索引擎标记为支持WAP 1.2</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>开放详细日志</td>"
        MyIO.Echo "<td>"
        MyIO.Echo "<input type=""checkbox"" name=""LogDetail"" value=""1"" onclick=""chkModule(this,this.form.LogSimulator)""" & setChecked(MyKernel.Config("LogDetail") = "1") & " /> 详细记录手机用户每步操作<br/>"
        MyIO.Echo "<input type=""checkbox"" name=""LogSimulator"" value=""1""" & setDisabled(MyKernel.Config("LogDetail") <> "1") & setChecked(MyKernel.Config("LogSimulator") = "1") & " /> 记录模拟器操作</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 "1"
        MyIO.Echo "<form id=""frmMain"" action=""admin_base.asp?Option=1"" enctype=""multipart/form-data"" 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 GetTempletHtml("Templet", MyKernel.Config("Templet"))
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>背景色</td>"
        MyIO.Echo "<td>"
        MyIO.Echo " <input type=""text"" name=""BackColor"" size=""10"" class=""txt"" value=""" & MyKernel.Config("BackColor") & """ onKeyUp=""autoSetColor(this, 'ID_BACKIMAGE_COL')"" />"
        MyIO.Echo " <img id=""ID_BACKIMAGE_COL"" src=""images/xw_color0.gif"" border=""0"" align=""absMiddle""" & IIf(MyKernel.Config("BackColor") <> "", " style=""cursor:pointer;background-color:" & MyKernel.Config("BackColor") & """", "") & " onmouseover=""ImageBox.filter(this, 1)"" onmouseout=""ImageBox.filter(this, 0)"" onclick=""getPalette(this, 'frmMain', 'BackColor')"" title=""调色板"" />"
        MyIO.Echo " 通用颜色表述方式，例如红色表述为：#FF0000"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>背景图片</td>"
        MyIO.Echo "<td>"
        MyIO.Echo " <input type=""file"" name=""BackImage"" class=""txt"" size=""30"" />"
        If MyKernel.Config("BackImage") <> "" Then
            MyIO.Echo " <img id=""ID_BACKIMAGE_IMG"" src=""images/xw_view0.gif"" border=""0"" align=""absMiddle"" style=""cursor:pointer"" onmouseover=""ImageBox.filter(this, 1)"" onmouseout=""ImageBox.filter(this, 0)"" onclick=""ImageBox.show('images/backimage." & MyKernel.Config("BackImage") & "')"" title=""预览"" />"
            MyIO.Echo " <img id=""ID_BACKIMAGE_BTN"" src=""images/xw_del0.gif"" border=""0"" align=""absMiddle"" style=""cursor:pointer"" onmouseover=""ImageBox.filter(this, 1)"" onmouseout=""ImageBox.filter(this, 0)"" onclick=""rpc_call_remove_file('site','backimage',0,'ID_BACKIMAGE_IMG','ID_BACKIMAGE_BTN')"" title=""删除"" />"
        End If
        MyIO.Echo " 支持" & Replace(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=""file"" name=""BackSound"" class=""txt"" size=""30"" />"
        If MyKernel.Config("BackSound") <> "" Then
            MyIO.Echo " <img id=""ID_BACKSOUND_IMG"" src=""images/xw_view0.gif"" border=""0"" align=""absMiddle"" style=""cursor:pointer"" onmouseover=""ImageBox.filter(this, 1)"" onmouseout=""ImageBox.filter(this, 0)"" onclick=""ImageBox.show('images/backimage." & MyKernel.Config("BackSound") & "')"" title=""预览"" />"
1234

⌨️ 快捷键说明

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