📄 manage.asp
字号:
<!-- #include file="inc/conn.asp" -->
<!-- #include file="inc/config.asp" -->
<!-- #include file="inc/function.asp" -->
<!-- #include file="inc/md5.asp" -->
<%
If Session("manager")=Empty Then
admin=trim(SafeRequest("admin"))
password=trim(SafeRequest("password"))
If admin="" And password="" Then
Response.Redirect "login.asp"
End If
tbname="manage"
sql="select admin,password from "&tbname
set mg=GetRS(mdbname,tbname,sql)
If md5(admin)<>mg("admin") Or md5(password)<>mg("password") Then
Response.Redirect "message.asp?action=rewrite&message=你输入的帐号或密码错误，请重新输入"
Else Session("manager")="login"
End If
End If
action=SafeRequest("action")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
</html>
<!-- #include file="inc/head.html" -->
<body>
<div id="body" align="center">
<div id="block-body">
<div id="block">
<div class="title">
</div>
<div class="frame-top"></div>
<div class="frame-body">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="frame-left"></td>
<td class="name">
<div class="name-image">
<% If action="" Or action="interface" Then %>
<img src="images/block/theme_20.gif" height="70">
<% ElseIf action="alterblock" Then %>
<img src="images/block/theme_23.gif" height="70">
<% ElseIf action="altermanager" Then %>
<img src="images/block/theme_25.gif" height="70">
<% ElseIf action="loginquestion" Then %>
<img src="images/block/theme_18.gif" height="70">
<% ElseIf action="IPFilter" Then %>
<img src="images/block/theme_21.gif" height="70">
<% ElseIf action="register" Then %>
<img src="images/block/theme_19.gif" height="70">
<% End If %>
</div>
<span class="name-text">
<div class="manage-name">
<a href="manage.asp?action=interface">基本设置</a>
</div>
<div class="manage-name">
<a href="manage.asp?action=alterblock">版块管理</a>
</div>
<div class="manage-name">
<a href="manage.asp?action=loginquestion">登录问题</a>
</div>
<div class="manage-name">
<a href="manage.asp?action=altermanager">密码修改</a>
</div>
<div class="manage-name">
<a href="page.asp">数据管理</a>
</div>
<div class="manage-name">
<a href="ListFile.asp?FolderName=uploadclass\upload" target="_blank">上传管理</a>
</div>
<div class="manage-name">
<a href="manage.asp?action=IPFilter">I P 过滤</a>
</div>
<div class="manage-name">
<a href="manage.asp?action=register">注册登陆</a>
</div>
<div class="manage-name">
<a href="process.asp?action=logout">注销退出</a>
</div>
</span>
</td>
<td class="frame-main">
<div class="note">
<div class="note-text">
<% If action="interface" Or action="" Then %>
<form action="process.asp" method="post" name="FormName">
<fieldset class="input-fieldset">
<legend align="left"><span class="input-legend">基本设置</span></legend>
<div class="note-text-input-text">
<span id="manage-text">站点名称</span>
<input type="text" name="SiteName" class="manage-frame" value="<% =SiteName %>" maxlength="10">
</div>
<div class="note-text-input-text">
<span id="manage-text">对外开放可写</span>
<select name="IsOpened" class="manage-frame" size="1">
<% If IsOpened="True" Then %>
<option selected value="True">允许</option>
<option value="False">禁止</option>
<% Else %>
<option value="True">允许</option>
<option selected value="False">禁止</option>
<% End If %>
</select>
<span class="manage-tip" id="manage-Upload-tip" style="display: none"></span>
</div>
<div class="note-text-input-text">
<span id="manage-text">公告栏</span>
<input type="text" name="Bulletin" class="manage-frame2" value="<% =Bulletin %>" maxlength="42">
</div>
<div class="note-text-input-text">
<span id="manage-text">留言每页帖子数</span>
<input type="text" name="PageSize" class="manage-frame" value="<% =PageSize %>" maxlength="9" onclick="changemenu('manage-PageSize-tip');">
<span class="manage-tip" id="manage-PageSize-tip" style="display: none">* 最小为10最大为30</span>
</div>
<div class="note-text-input-text">
<span id="manage-text">主题每页帖子数</span>
<input type="text" name="ThemePageSize" class="manage-frame" value="<% =ThemePageSize %>" maxlength="9" onclick="changemenu('manage-ThemePageSize-tip');">
<span class="manage-tip" id="manage-ThemePageSize-tip" style="display: none">* 最小为10最大为50</span>
</div>
<div class="note-text-input-text">
<span id="manage-text">主题区帖子数</span>
<input type="text" name="ThemeOnlyPageSize" class="manage-frame" value="<% =ThemeOnlyPageSize %>" maxlength="9" onclick="changemenu('manage-ThemeOnlyPageSize-tip');">
<span class="manage-tip" id="manage-ThemeOnlyPageSize-tip" style="display: none">* 最小为8最大为20</span>
</div>
<div class="note-text-input-text">
<span id="manage-text">最大留言字数</span>
<input type="text" name="MaxNote" class="manage-frame" value="<% =MaxNote/2 %>" maxlength="9" onclick="changemenu('manage-MaxNote-tip');">
<span class="manage-tip" id="manage-MaxNote-tip" style="display: none">* 最小为1000最大为5000</span>
</div>
<div class="note-text-input-text">
<span id="manage-text">允许上传文件</span>
<select name="Upload" class="manage-frame" size="1">
<% If Upload="True" Then %>
<option selected value="True">允许</option>
<option value="False">禁止</option>
<% Else %>
<option value="True">允许</option>
<option selected value="False">禁止</option>
<% End If %>
</select>
</div>
<div class="note-text-input-text">
<span id="manage-text">主题列表顺序</span>
<select name="ThemeListMode" class="manage-frame" onclick="changemenu('manage-ThemeListMode-tip');" size="1">
<% If ThemeListMode=1 Then %>
<option selected value=1>按发帖时间</option>
<option value=2>按回复时间</option>
<option value=3>按回复数</option>
<% ElseIf ThemeListMode=2 Then %>
<option value=1>按发帖时间</option>
<option selected value=2>按回复时间</option>
<option value=3>按回复数</option>
<% ElseIf ThemeListMode=3 Then %>
<option value=1>按发帖时间</option>
<option value=2>按回复时间</option>
<option selected value=3>按回复数</option>
<% End If %>
</select>
<span class="manage-tip" id="manage-ThemeListMode-tip" style="display: none"></span>
</div>
<div class="note-text-input-text">
<span id="manage-text">留言簿主题样式</span>
<select name="css" class="manage-frame" onclick="changemenu('manage-css-tip');" size="1">
<%
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
Set ServerFolder=FSO.GetFolder(Server.MapPath("Theme\"))
Set ServerFolderList=ServerFolder.SubFolders
For Each ServerFolderEvery IN ServerFolderList
If css=ServerFolderEvery.Name Then
%>
<option selected value="<% =ServerFolderEvery.Name %>"><% =ServerFolderEvery.Name %></option>
<% Else %>
<option value="<% =ServerFolderEvery.Name %>"><% =ServerFolderEvery.Name %></option>
<% End If %>
<% Next %>
</select>
<span class="manage-tip" id="manage-css-tip" style="display: none">* 到<a href="http://sp2.itmss.cn/theme.asp">这里</a>下载更多主题</span>
</div>
<div class="note-text-input-text">
<span id="manage-text">LOGO路径</span>
<input type="text" name="LOGOPath" class="manage-frame2" value="<% =LOGOPath %>" maxlength="50" onclick="changemenu('manage-LOGOPath-tip');">
<span class="manage-tip" id="manage-LOGOPath-tip" style="display: none">* <a href="ListFile.asp?FolderName=images/LOGO" target="_blank">查看</a></span>
</div>
<input type="hidden" name="action" value="interface">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -