admin_siteconfig.asp
来自「本程序系统完全实现了医院网站程序的全部功能的前台和后台程序」· ASP 代码 · 共 673 行 · 第 1/5 页
ASP
673 行
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' class='tdbg5'><strong>版权信息：</strong><br>支持HTML标记，不能使用双引号</td>" & vbCrLf
Response.Write " <td><textarea name='Copyright' cols='60' rows='4' id='Copyright'>" & rsConfig("Copyright") & "</textarea></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' class='tdbg5'><strong>网站META关键词：</strong><br>针对搜索引擎设置的关键词<br>多个关键词请用,号分隔</td>" & vbCrLf
Response.Write " <td><textarea name='Meta_Keywords' cols='60' rows='4' id='Meta_Keywords'>" & rsConfig("Meta_Keywords") & "</textarea></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' class='tdbg5'><strong>网站META网页描述：</strong><br>针对搜索引擎设置的网页描述<br>多个描述请用,号分隔</td>" & vbCrLf
Response.Write " <td><textarea name='Meta_Description' cols='60' rows='4' id='Meta_Description'>" & rsConfig("Meta_Description") & "</textarea></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </tbody>" & vbCrLf
Response.Write " <tbody id='Tabs' style='display:none'>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' class='tdbg5'><strong>是否显示网站频道：</strong></td>" & vbCrLf
Response.Write " <td>" & vbCrLf
Response.Write " <input type='radio' name='ShowSiteChannel' value='1' " & IsRadioChecked(rsConfig("ShowSiteChannel"), True) & "> 是 "
Response.Write " <input type='radio' name='ShowSiteChannel' value='0' " & IsRadioChecked(rsConfig("ShowSiteChannel"), False) & "> 否" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' class='tdbg5'><strong>是否显示管理登录链接：</strong></td>" & vbCrLf
Response.Write " <td>" & vbCrLf
Response.Write " <input type='radio' name='ShowAdminLogin' value='1' " & IsRadioChecked(rsConfig("ShowAdminLogin"), True) & "> 是 "
Response.Write " <input type='radio' name='ShowAdminLogin' value='0' " & IsRadioChecked(rsConfig("ShowAdminLogin"), False) & "> 否" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' class='tdbg5'><strong>是否保存远程图片到本地：</strong><br>如果从其它网站上复制的内容中包含图片，则将图片复制到本站服务器上</td>" & vbCrLf
Response.Write " <td>" & vbCrLf
Response.Write " <input type='radio' name='EnableSaveRemote' value='1' " & IsRadioChecked(rsConfig("EnableSaveRemote"), True) & "> 是 "
Response.Write " <input type='radio' name='EnableSaveRemote' value='0' " & IsRadioChecked(rsConfig("EnableSaveRemote"), False) & "> 否" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' class='tdbg5'><strong>是否开放友情链接申请：</strong></td>" & vbCrLf
Response.Write " <td>" & vbCrLf
Response.Write " <input type='radio' name='EnableLinkReg' value='1' " & IsRadioChecked(rsConfig("EnableLinkReg"), True) & "> 是 "
Response.Write " <input type='radio' name='EnableLinkReg' value='0' " & IsRadioChecked(rsConfig("EnableLinkReg"), False) & "> 否" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' class='tdbg5'><strong>是否统计友情链接点击数：</strong></td>" & vbCrLf
Response.Write " <td>" & vbCrLf
Response.Write " <input type='radio' name='EnableCountFriendSiteHits' value='1' " & IsRadioChecked(rsConfig("EnableCountFriendSiteHits"), True) & "> 是 "
Response.Write " <input type='radio' name='EnableCountFriendSiteHits' value='0' " & IsRadioChecked(rsConfig("EnableCountFriendSiteHits"), False) & "> 否" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' class='tdbg5'><strong>是否使用软键盘输入密码：</strong><br>若选择是，则会员登录后台时使用软键盘输入密码，适合网吧等场所上网使用。</td>" & vbCrLf
Response.Write " <td>" & vbCrLf
Response.Write " <input type='radio' name='EnableSoftKey' value='1' " & IsRadioChecked(rsConfig("EnableSoftKey"), True) & "> 是 "
Response.Write " <input type='radio' name='EnableSoftKey' value='0' " & IsRadioChecked(rsConfig("EnableSoftKey"), False) & "> 否" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' class='tdbg5'><strong>是否使用频道、栏目、专题自设内容：</strong><br>若选择是，频道、栏目、专题管理会增加自设内容选项。</td>" & vbCrLf
Response.Write " <td>" & vbCrLf
Response.Write " <input type='radio' name='IsCustom_Content' value='1' " & IsRadioChecked(rsConfig("IsCustom_Content"), True) & "> 是 "
Response.Write " <input type='radio' name='IsCustom_Content' value='0' " & IsRadioChecked(rsConfig("IsCustom_Content"), False) & "> 否" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' class='tdbg5'><strong>FSO(FileSystemObject)组件的名称：</strong><br>某些网站为了安全，将FSO组件的名称进行更改以达到禁用FSO的目的。如果你的网站是这样做的，请在此输入更改过的名称。</td>" & vbCrLf
Response.Write " <td><input name='objName_FSO' type='text' id='objName_FSO' value='" & rsConfig("objName_FSO") & "' size='40' maxlength='50'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' class='tdbg5'><strong>后台管理目录：</strong><br>为了安全，您可以修改后台管理目录（默认为Admin），改过以后，需要再设置此处</td>" & vbCrLf
Response.Write " <td><input name='AdminDir' type='text' id='AdminDir' value='" & rsConfig("AdminDir") & "' size='20' maxlength='20'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' class='tdbg5'><strong>网站广告目录：</strong><br>为了不让广告拦截软件拦截网站的广告，您可以修改广告JS的存放目录（默认为AD），改过以后，需要再设置此处</td>" & vbCrLf
Response.Write " <td><input name='ADDir' type='text' id='ADDir' value='" & rsConfig("ADDir") & "' size='20' maxlength='20'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' class='tdbg5'><strong>弹出公告窗口的间隔时间：</strong><br>以小时为单位，为0时每次刷新页面时都弹出公告。</td>" & vbCrLf
Response.Write " <td><input name='AnnounceCookieTime' type='text' id='AnnounceCookieTime' value='" & rsConfig("AnnounceCookieTime") & "' size='10' maxlength='10'> 小时</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' class='tdbg5'><strong>网站热点的点击数最小值：</strong><br>只有点击数达到此数值，才会作为网站的热点内容显示。</td>" & vbCrLf
Response.Write " <td><input name='HitsOfHot' type='text' id='HitsOfHot' value='" & rsConfig("HitsOfHot") & "' size='10' maxlength='10'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' class='tdbg5'><strong>模块管理选项：</strong><br>控制网站启用的模块。</td>" & vbCrLf
Response.Write " <td>" & vbCrLf
Response.Write " <table width='100%'>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td><input name='Modules' type='checkbox' value='Advertisement'" & IsModulesSelected(Modules, "Advertisement") & ">网站广告管理</td>" & vbCrLf
Response.Write " <td><input name='Modules' type='checkbox' value='FriendSite'" & IsModulesSelected(Modules, "FriendSite") & ">友情链接管理</td>" & vbCrLf
Response.Write " <td><input name='Modules' type='checkbox' value='Announce'" & IsModulesSelected(Modules, "Announce") & ">网站公告管理</td>" & vbCrLf
Response.Write " <td><input name='Modules' type='checkbox' value='Vote'" & IsModulesSelected(Modules, "Vote") & ">网站调查管理</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td><input name='Modules' type='checkbox' value='KeyLink'" & IsModulesSelected(Modules, "KeyLink") & ">站内链接管理</td>" & vbCrLf
Response.Write " <td><input name='Modules' type='checkbox' value='Rtext'" & IsModulesSelected(Modules, "Rtext") & ">字符过滤管理</td>" & vbCrLf
Response.Write " <td><input name='Modules' type='checkbox' value='Collection'" & IsModulesSelected(Modules, "Collection") & ">采集管理</td>" & vbCrLf
Response.Write " <td><input name='Modules' type='checkbox' value='SMS'" & IsModulesSelected(Modules, "SMS") & ">手机短信</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
If SystemEdition = "GPS" Or SystemEdition = "EPS" Or SystemEdition = "ECS" Or SystemEdition = "IPS" Or SystemEdition = "All" Then
Response.Write " <td><input name='Modules' type='checkbox' value='Survey'" & IsModulesSelected(Modules, "Survey") & ">问卷调查管理</td>" & vbCrLf
End If
If SystemEdition = "IPS" Or SystemEdition = "All" Then
Response.Write " <td><input name='Modules' type='checkbox' value='Supply'" & IsModulesSelected(Modules, "Supply") & ">供求信息管理</td>" & vbCrLf
Response.Write " <td><input name='Modules' type='checkbox' value='House'" & IsModulesSelected(Modules, "House") & ">房产中心管理</td>" & vbCrLf
End If
If SystemEdition = "GPS" Or SystemEdition = "EPS" Or SystemEdition = "ECS" Or SystemEdition = "All" Then
Response.Write " <td><input name='Modules' type='checkbox' value='Job'" & IsModulesSelected(Modules, "Job") & ">人才招聘管理</td>" & vbCrLf
End If
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
If SystemEdition = "eShop" Or SystemEdition = "ECS" Or SystemEdition = "All" Then
Response.Write " <td><input name='Modules' type='checkbox' value='CRM'" & IsModulesSelected(Modules, "CRM") & ">客户关系管理</td>" & vbCrLf
End If
If SystemEdition = "GPS" Or SystemEdition = "EPS" Or SystemEdition = "ECS" Or SystemEdition = "All" Then
Response.Write " <td><input name='Modules' type='checkbox' value='Classroom'" & IsModulesSelected(Modules, "Classroom") & ">室场登记管理</td>" & vbCrLf
End If
If SystemEdition = "EPS" Or SystemEdition = "All" Then
Response.Write " <td><input name='Modules' type='checkbox' value='Sdms'" & IsModulesSelected(Modules, "Sdms") & ">学生学籍管理</td>" & vbCrLf
End If
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' class='tdbg5'><strong><font color=red>网站首页的扩展名：</font></strong><br>若选择前四项，即启用了网站首页的生成HTML功能。</td>" & vbCrLf
Response.Write " <td>" & vbCrLf
Response.Write " <input name='FileExt_SiteIndex' type='radio' value='0' " & IsRadioChecked(rsConfig("FileExt_SiteIndex"), 0) & ">.html " & vbCrLf
Response.Write " <input name='FileExt_SiteIndex' type='radio' value='1' " & IsRadioChecked(rsConfig("FileExt_SiteIndex"), 1) & ">.htm " & vbCrLf
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?