📄 ad_siteconfig.asp
字号:
<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true
Const PurviewLevel=1
'response.write "此功能被暂时禁止了！"
'response.end
%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="ad_ChkPurview.asp"-->
<!--#include file="inc/func.asp"-->
<%
dim ObjInstalled,Action,FoundErr,ErrMsg
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")
Action=trim(request("Action"))
if Action="" then
Action="ShowInfo"
end if
%>
<html>
<head>
<title>专题管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="ad_Style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr>
<td height="22" colspan=2 align=center class="topbg"><b>网 站 配 置</b></td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30"><a href="ad_SiteConfig.asp">网站信息配置</a> | <a href="ad_SiteConfig.asp">网站选项配置</a>
| <a href="#Email">邮件服务器选项</a> | <a href="#UpFile">上传文件选项</a></td>
</tr>
</table>
<%
if Action="SaveConfig" then
call SaveConfig()
else
call ShowConfig()
end if
if FoundErr=True then
call WriteErrMsg()
end if
call CloseConn()
sub ShowConfig()
%>
<form method="POST" action="ad_SiteConfig.asp" id="form1" name="form1">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr class=title>
<td height="22" colspan="2"> <a name="SiteInfo"></a><strong>网站信息配置</strong></td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>网站名称：</strong></td>
<td width="368" height="25" class="tdbg">
<input name="SiteName" type="text" id="SiteName" value="<%=SiteName%>" size="40" maxlength="50">
</td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>网站标题：</strong></td>
<td width="368" height="25" class="tdbg">
<input name="SiteTitle" type="text" id="SiteTitle" value="<%=SiteTitle%>" size="40" maxlength="50">
</td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>网站地址：</strong><br>
请添写完整URL地址</td>
<td width="368" height="25" class="tdbg">
<input name="SiteUrl" type="text" id="SiteUrl" value="<%=SiteUrl%>" size="40" maxlength="255">
</td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>LOGO地址：</strong><br>
请添写完整URL地址</td>
<td width="368" height="25" class="tdbg">
<input name="LogoUrl" type="text" id="LogoUrl" value="<%=LogoUrl%>" size="40" maxlength="255">
</td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>Banner地址：</strong><br>
请添写完整URL地址。若为空，则在Banner处显示广告管理中预设的广告。</td>
<td width="368" height="25" class="tdbg">
<input name="BannerUrl" type="text" id="BannerUrl" value="<%=BannerUrl%>" size="40" maxlength="255">
</td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>站长姓名：</strong></td>
<td width="368" height="25" class="tdbg">
<input name="WebmasterName" type="text" id="WebmasterName" value="<%=WebmasterName%>" size="40" maxlength="20">
</td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>站长信箱：</strong></td>
<td width="368" height="25" class="tdbg">
<input name="WebmasterEmail" type="text" id="WebmasterEmail" value="<%=WebmasterEmail%>" size="40" maxlength="100">
</td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>版权信息：</strong><br>
支持HTML标记，不能使用双引号</td>
<td width="368" height="25" class="tdbg">
<textarea name="Copyright" cols="32" rows="4" id="Copyright"><%=Copyright%></textarea>
</td>
</tr>
<tr class=title>
<td height="22" colspan="2"><a name="SiteOption"></a><strong>网站选项配置</strong></td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>后台是否显示右键菜单：</strong></td>
<td height="25" class="tdbg">
<input type="radio" name="ShowPopMenu" value="Yes" <%if ShowPopMenu="Yes" then response.write "checked"%>>
是
<input type="radio" name="ShowPopMenu" value="No" <%if ShowPopMenu="No" then response.write "checked"%>>
否</td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>是否显示网站频道：</strong></td>
<td height="25" class="tdbg">
<input type="radio" name="ShowSiteChannel" value="Yes" <%if ShowSiteChannel="Yes" then response.write "checked"%>>
是
<input type="radio" name="ShowSiteChannel" value="No" <%if ShowSiteChannel="No" then response.write "checked"%>>
否</td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>是否显示自选风格：</strong></td>
<td height="25" class="tdbg">
<input type="radio" name="ShowMyStyle" value="Yes" <%if ShowMyStyle="Yes" then response.write "checked"%>>
是
<input type="radio" name="ShowMyStyle" value="No" <%if ShowMyStyle="No" then response.write "checked"%>>
否</td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>是否使用树状导航菜单：</strong></td>
<td height="25" class="tdbg">
<input type="radio" name="ShowClassTreeGuide" value="Yes" <%if ShowClassTreeGuide="Yes" then response.write "checked"%>>
是
<input type="radio" name="ShowClassTreeGuide" value="No" <%if ShowClassTreeGuide="No" then response.write "checked"%>>
否</td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>是否启用文章审核功能：</strong><br>
如禁用文章审核功能，则新录入的文章将直接发表（通过审核）</td>
<td height="25" class="tdbg">
<input type="radio" name="EnableArticleCheck" value="Yes" <%if EnableArticleCheck="Yes" then response.write "checked"%>>
是
<input type="radio" name="EnableArticleCheck" value="No" <%if EnableArticleCheck="No" then response.write "checked"%>>
否</td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>是否启用留言审核功能：</strong><br>
如禁用留言审核功能，则新发表的留言将直接显示（通过审核）</td>
<td height="25" class="tdbg">
<input type="radio" name="EnableGuestCheck" value="Yes" <%if EnableGuestCheck="Yes" then response.write "checked"%>>
是
<input type="radio" name="EnableGuestCheck" value="No" <%if EnableGuestCheck="No" then response.write "checked"%>>
否</td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>是否开放文件上传功能：</strong><br>
添加/修改文章时是否可以上传文件</td>
<td height="25" class="tdbg">
<input type="radio" name="EnableUploadFile" value="Yes" <%if EnableUploadFile="Yes" then response.write "checked"%>>
是
<input type="radio" name="EnableUploadFile" value="No" <%if EnableUploadFile="No" then response.write "checked"%>>
否</td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>是否保存远程图片到本地：
</strong><br>
如果从其它网站上复制的内容中包含图片，则将图片复制到本站服务器上</td>
<td height="25" class="tdbg">
<input type="radio" name="EnableSaveRemote" value="Yes" <%if EnableSaveRemote="Yes" then response.write "checked"%>>
是
<input type="radio" name="EnableSaveRemote" value="No" <%if EnableSaveRemote="No" then response.write "checked"%>>
否</td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>是否开放友情链接申请：</strong></td>
<td height="25" class="tdbg">
<input type="radio" name="EnableLinkReg" value="Yes" <%if EnableLinkReg="Yes" then response.write "checked"%>>
是
<input type="radio" name="EnableLinkReg" value="No" <%if EnableLinkReg="No" then response.write "checked"%>>
否</td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>是否弹出公告窗口：</strong></td>
<td height="25" class="tdbg">
<input type="radio" name="PopAnnounce" value="Yes" <%if PopAnnounce="Yes" then response.write "checked"%>>
是
<input name="PopAnnounce" type="radio" value="No" <%if PopAnnounce="No" then response.write "checked"%>>
否</td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>热点文章的点击数：</strong><br>
文章点击数达到此数时就会被设为热点文章</td>
<td height="25" class="tdbg">
<input name="HitsOfHot" type="text" id="HitsOfHot" value="<%=HitsOfHot%>" size="6" maxlength="5">
</td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>Session会话的保持时间：</strong><br>
主要用于后台管理员登录，为了安全，请不要将时间设得太长。建议设为10分钟。</td>
<td height="25" class="tdbg">
<input name="SessionTimeout" type="text" id="SessionTimeout" value="<%=SessionTimeout%>" size="6" maxlength="5">
分钟</td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>发表评论权限：</strong><br>
只有具有相应权限的人才能发表评论。</td>
<td height="25" class="tdbg">
<select name="CommentPurview" id="CommentPurview">
<option value="9999" <%if CommentPurview=9999 then response.write " selected"%>>游客</option>
<option value="999" <%if CommentPurview=999 then response.write " selected"%>>注册用户</option>
<option value="99" <%if CommentPurview=99 then response.write " selected"%>>收费用户</option>
<option value="9" <%if CommentPurview=9 then response.write " selected"%>>VIP用户</option>
<option value="5" <%if CommentPurview=5 then response.write " selected"%>>管理员</option>
</select>
</td>
</tr>
<tr class="title">
<td height="22" colspan="2"><a name="Email"></a><strong>用户选项</strong></td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>是否允许新用户注册：</strong></td>
<td height="25" class="tdbg">
<input type="radio" name="EnableUserReg" value="Yes" <%if EnableUserReg="Yes" then response.write "checked"%>>
是
<input type="radio" name="EnableUserReg" value="No" <%if EnableUserReg="No" then response.write "checked"%>>
否</td>
</tr>
<tr>
<td width="400" height="25" class="tdbg"><strong>新用户注册是否需要邮件验证：</strong><br>
若选择“是”，则用户注册后系统会发一封带有验证码的邮件给此用户，用户必须在通过邮件验证后才能真正成为正式注册用户</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -