admin_siteconfig.asp
来自「个人网站比较简短」· ASP 代码 · 共 705 行 · 第 1/5 页
ASP
705 行
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'>"
Response.Write " <td width='40%' class='tdbg5'><strong>子域名功能：</strong></td>" & vbCrLf
Response.Write " <td><input name='Plug_SubDomainEnable' type='radio' value='True'"
If Enable_SubDomain = True Then Response.Write " checked"
Response.Write ">启用"
Response.Write " <input name='Plug_SubDomainEnable' type='radio' value='False'"
If Enable_SubDomain = False Then Response.Write " checked"
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><input name='Plug_SubDomainRoot' type='text' id='Plug_SubDomainRoot' size='30' maxlength='30' value='" & DomainRoot & "'></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><input name='Plug_SubDomains' type='text' id='Plug_SubDomains' size='30' maxlength='20' value='" & strSubDomains & "'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' class='tdbg5'><strong><FONT color=#ff0000>系统防SQL注入功能开关：</FONT></strong><a title=如果您是正常提交仍出现【很抱歉，由于您提交的内容中含有危险的SQL注入代码，致使本次操作无效】的提示，请暂时禁用此项，操作完成后再开启！>←[ 提示 ]</a></td>" & vbCrLf
Response.Write " <td><input name='Plug_StopInjectionEnable' type='radio' value='True'"
If EnableStopInjection = True Then Response.Write " checked"
Response.Write ">启用"
Response.Write " <input name='Plug_StopInjectionEnable' type='radio' value='False'"
If EnableStopInjection = False Then Response.Write " checked"
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><input name='Plug_ShowUnpass' type='radio' value='True'"
If ShowUnpass = True Then Response.Write " checked"
Response.Write ">启用"
Response.Write " <input name='Plug_ShowUnpass' type='radio' value='False'"
If ShowUnpass = False Then Response.Write " checked"
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><input name='Plug_FriendSiteCheckCode' type='radio' value='True'"
If FriendSiteCheckCode = True Then Response.Write " checked"
Response.Write ">启用"
Response.Write " <input name='Plug_FriendSiteCheckCode' type='radio' value='False'"
If FriendSiteCheckCode = False Then Response.Write " checked"
Response.Write ">禁用</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' class='tdbg5'><strong>后台管理认证码开关（<FONT color=#ff0000>↓</FONT>）：</strong></td>" & vbCrLf
Response.Write " <td><input name='Plug_ManageCodeEnable' type='radio' value='True'"
If EnableSiteManageCode = True Then Response.Write " checked"
Response.Write ">启用"
Response.Write " <input name='Plug_ManageCodeEnable' type='radio' value='False'"
If EnableSiteManageCode = False Then Response.Write " checked"
Response.Write ">禁用</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' class='tdbg5'><strong>后台管理认证码（<FONT color=#ff0000>区分大小写</FONT>）：</strong></td>" & vbCrLf
Response.Write " <td><input name='Plug_ManageCode' type='text' id='Plug_ManageCode' size='30' maxlength='20' value='" & SiteManageCode & "'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' class='tdbg5'><strong>生成HTML每页生成的数量：</strong></td>" & vbCrLf
Response.Write " <td><input name='Plug_CreateMaxPerPage' type='text' id='Plug_CreateMaxPerPage' size='3' maxlength='3' value='" & MaxPerPage_Create & "' > 篇</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='40%' class='tdbg5'><strong>生成HTML每页间的间隔时间：</strong></td>" & vbCrLf
Response.Write " <td><input name='Plug_CreateSleepTime' type='text' id='Plug_CreateSleepTime' size='3' maxlength='3' value='" & SleepTime & "'> 秒</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
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?