📄 admin_siteconfig.asp
字号:
<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true
Const PurviewLevel=1 '操作权限
%>
<!--#include file="Admin_ChkPurview.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/function.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="Admin_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 class="topbg">
<td height="22" colspan=2 align=center><b>网 站 配 置</b></td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30"><a href="Admin_SiteConfig.asp">网站信息配置</a> | <a href="Admin_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="Admin_SiteConfig.asp" id="form1" name="form1">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr class="topbg">
<td height="22" colspan="2"> <a name="SiteInfo"></a><strong>网站信息配置</strong></td>
</tr>
<tr class="tdbg">
<td width="300" height="25"><strong>网站名称：</strong></td>
<td height="25"> <input name="SiteName" type="text" id="SiteName" value="<%=SiteName%>" size="40" maxlength="50">
</td>
</tr>
<tr class="tdbg">
<td width="300" height="25"><strong>网站标题：</strong></td>
<td height="25"> <input name="SiteTitle" type="text" id="SiteTitle" value="<%=SiteTitle%>" size="40" maxlength="50">
</td>
</tr>
<tr class="tdbg">
<td width="300" height="25"><strong>网站地址：</strong><br>
请添写完整URL地址</td>
<td height="25"> <input name="SiteUrl" type="text" id="SiteUrl" value="<%=SiteUrl%>" size="40" maxlength="255">
</td>
</tr>
<tr class="tdbg">
<td width="300" height="25"><strong>LOGO地址：</strong><br>
请添写完整URL地址</td>
<td height="25"> <input name="LogoUrl" type="text" id="LogoUrl" value="<%=LogoUrl%>" size="40" maxlength="255">
</td>
</tr>
<tr class="tdbg">
<td width="300" height="25"><strong>Banner地址：</strong><br>
请添写完整URL地址。若为空，则在Banner处显示广告管理中预设的广告。</td>
<td height="25"> <input name="BannerUrl" type="text" id="BannerUrl" value="<%=BannerUrl%>" size="40" maxlength="255">
</td>
</tr>
<tr class="tdbg">
<td width="300" height="25"><strong>站长姓名：</strong></td>
<td height="25"> <input name="WebmasterName" type="text" id="WebmasterName" value="<%=WebmasterName%>" size="40" maxlength="20">
</td>
</tr>
<tr class="tdbg">
<td width="300" height="25"><strong>站长信箱：</strong></td>
<td height="25"> <input name="WebmasterEmail" type="text" id="WebmasterEmail" value="<%=WebmasterEmail%>" size="40" maxlength="100">
</td>
</tr>
<tr class="tdbg">
<td width="300" height="25"><strong>版权信息：</strong><br></strong>
支持HTML标记，不能使用双引号</td>
<td height="25"> <textarea name="Copyright" cols="32" rows="4" id="Copyright"><%=Copyright%></textarea></td>
</tr>
<tr class="topbg">
<td height="25" colspan="2"><a name="SiteOption"></a><strong>网站选项配置</strong></td>
</tr>
<tr class="tdbg">
<td width="300" height="25"><strong>首页模板：</strong></td>
<td height="25"><select name="LayoutFileName_Index" id="LayoutFileName_Index">
<%
dim rsLayout
set rsLayout=conn.execute("select * from Layout where LayoutType=1")
do while not rsLayout.eof
if rsLayout("LayoutFileName")=LayoutFileName_Index then
response.write "<option value='" & rsLayout("LayoutFileName") & "' selected>" & rsLayout("LayoutName") & "</option>"
else
response.write "<option value='" & rsLayout("LayoutFileName") & "'>" & rsLayout("LayoutName") & "</option>"
end if
rsLayout.movenext
loop
set rsLayout=nothing
%>
</select></td>
</tr>
<tr class="tdbg">
<td width="300" height="25"><strong>是否显示网站频道：</strong></td>
<td height="25"> <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 class="tdbg">
<td width="300" height="25"><strong>是否显示自选风格：</strong></td>
<td height="25"> <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 class="tdbg">
<td width="300" height="25"><strong>是否启用文章审核功能：</strong><br>
如禁用文章审核功能，则新录入的文章将直接发表（通过审核）</td>
<td height="25"> <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 class="tdbg">
<td width="300" height="25"><strong>是否开放文件上传功能：</strong><br>
添加/修改文章时是否可以上传文件</td>
<td height="25"><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 class="tdbg">
<td width="300" height="25"><strong>是否允许新用户注册：</strong></td>
<td height="25"><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 class="tdbg">
<td width="300" height="25"><strong>新用户注册是否需要邮件验证：</strong><br>
若选择“是”，则用户注册后系统会发一封带有验证码的邮件给此用户，用户必须在通过邮件验证后才能真正成为正式注册用户</td>
<td height="25"><input type="radio" name="EmailCheckReg" value="Yes" <%if EmailCheckReg="Yes" then response.write "checked"%>>
是 <input type="radio" name="EmailCheckReg" value="No" <%if EmailCheckReg="No" then response.write "checked"%>>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -