📄 admin_set.asp
字号:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%if WS_S.MemberPriv("WS_FrontSetSystem")<>1 then HX_GoBack "对不起,您的权限不够!",""
dim a125_name,a125_Title,a125_description,a125_keywords,a125_http,a125_icp,a125_line_H,a125_Logo,a125_Banner,a125_qqonline,leader,switch_gonggao,switch_onlingQQ,switch_count,switch_online,switch_author,news_permission,voteincdir,ts%>
<!--#include file="../Include/setting.asp"-->
<%
action =trim(Request("action"))
if action="ok" then
a125_name = WS_s.HX_Replace(trim(Request.form("a125_name")))
a125_Title = WS_s.HX_Replace(trim(Request.form("a125_Title")))
a125_description = WS_s.HX_Replace(trim(Request.form("a125_description")))
a125_keywords = WS_s.HX_Replace(trim(Request.form("a125_keywords")))
a125_http = WS_s.HX_Replace(trim(Request.form("a125_http")))
a125_icp = WS_s.HX_Replace(trim(Request.form("a125_icp")))
a125_line_H = WS_s.HX_Replace(trim(Request.form("a125_line_H")))
a125_Logo = WS_s.HX_Replace(trim(Request.form("a125_Logo")))
a125_Banner = WS_s.HX_Replace(trim(Request.form("a125_Banner")))
a125_qqonline = WS_s.HX_Replace(trim(Request.form("a125_qqonline")))
news_permission = WS_s.HX_Replace(trim(Request.form("news_permission")))
leader = WS_s.HX_Replace(trim(Request.form("leader")))
switch_gonggao = trim(Request.form("switch_gonggao"))
switch_onlingQQ = trim(Request.form("switch_onlingQQ"))
switch_author = trim(Request.form("switch_author"))
switch_count = trim(Request.form("switch_count"))
switch_online = trim(Request.form("switch_online"))
voteincdir = server.mappath("../Include/setting.asp")
Const ForReading =1, ForWriting = 2
set fs = CreateObject("Scripting.FileSystemObject")
set ts = fs.OpenTextFile(voteincdir,ForWriting, True)
ts.Write ""
ts.Write "<"
ts.Write "%"& vbCrLf
ts.Write " a125_name= "&""""&a125_name&""""& vbCrLf
ts.Write " a125_Title= "&""""&a125_Title&""""& vbCrLf
ts.Write " a125_description= "&""""&a125_description&""""& vbCrLf
ts.Write " a125_keywords= "&""""&a125_keywords&""""& vbCrLf
ts.Write " a125_http= "&""""&a125_http&""""& vbCrLf
ts.Write " a125_icp= "&""""&a125_icp&""""& vbCrLf
ts.Write " a125_line_H= "&""""&a125_line_H&""""& vbCrLf
ts.Write " a125_Logo= "&""""&a125_Logo&""""& vbCrLf
ts.Write " a125_Banner = "&""""&a125_Banner &""""& vbCrLf
ts.Write " a125_qqonline = "&""""&a125_qqonline &""""& vbCrLf
ts.Write " switch_author = "&""""&switch_author &""""& vbCrLf
ts.Write " leader= "&""""&leader&""""& vbCrLf
ts.Write " switch_gonggao= "&""""&switch_gonggao&""""& vbCrLf
ts.Write " switch_onlingQQ= "&""""&switch_onlingQQ&""""& vbCrLf
ts.Write " switch_count= "&""""&switch_count&""""& vbCrLf
ts.Write " switch_online= "&""""&switch_online&""""& vbCrLf
ts.Write "%"
ts.Write ">"
ts.close
response.write "<script language=javascript>"
response.write "alert('系统相关设置成功！');"
response.write "</script>"
end if
%>
<HTML>
<HEAD>
<TITLE>系统后台管理-相关参数设置</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../HXinclude/HX_Style.css" rel="stylesheet" type="text/css">
</HEAD>
<body topmargin='20' leftmargin='0' bottommargin='20'>
<table width='596' border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#115F8F'><tr><td colspan='2' bgcolor=ffffff>
<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>基本设置</font></td></tr></table>
<table width='100%' border='0' cellspacing='1' cellpadding='3' bgcolor=f1f1f1>
<form name="form1" method="post" action="Admin_Set.asp?action=ok">
<tr bgcolor="#FFFFFF">
<td width="27%" height="25"> <div align="right">网站名称： </div></td>
<td width="73%"> <input type="text" name="a125_name" size="40" value="<%=a125_name%>" id="a125_name">
<font color="#FF0000">底部版权名称</font>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="27%" height="25" align=left> <div align="right">网址： </div></td>
<td width="73%" align=left> <input name="a125_http" type="text" id="a125_http" value="<%=a125_http%>" size="40">
<font color="#FF0000">不要加 Http://</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="27%" height="25" align=left> <div align="right">网站标题： </div></td>
<td width="73%" align=left> <input name="a125_Title" type="text" id="a125_Title" value="<%=a125_Title%>" size="40">
<font color="#FF0000">补充部分，便于搜索引擎收录</font>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="27%" height="25" align=left> <div align="right">网站描述： </div></td>
<td width="73%" align=left> <input name="a125_description" type="text" id="a125_description" value="<%=a125_description%>" size="40">
<font color="#FF0000">便于搜索引擎收录</font>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="27%" height="25" align=left> <div align="right">网站关键字： </div></td>
<td width="73%" align=left> <input name="a125_keywords" type="text" id="a125_keywords" value="<%=a125_keywords%>" size="40">
<font color="#FF0000">多个关键字用“,”隔开</font>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">顶部LOGO：</div></td>
<td align=left><input type="text" name="a125_Logo" size="40" value="<%=a125_Logo%>">
<font color="#FF0000">顶部FLASH</font>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">中间BANNER：</div></td>
<td align=left><input type="text" name="a125_Banner" size="40" value="<%=a125_Banner%>">
<font color="#FF0000">中部FLASH</font>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">底部备案：</div></td>
<td align=left><input type="text" name="a125_icp" size="40" value="<%=a125_icp%>">
<font color="#FF0000">底部版权备案号</font>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="27%" height="25" align=left> <div align="right">字体行距： </div></td>
<td width="73%" align=left> <input name="a125_line_H" type="text" id="a125_line_H" value="<%=a125_line_H%>" size="40">
<font color="#FF0000">如：150%</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="27%" height="25" align=left> <div align="right">主管职位：</div></td>
<td width="73%" align=left> <input type="text" name="leader" size="10" value="<%=leader%>">
<font color="#FF0000">用于领导信箱</font>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="27%" height="25" align=left> <div align="right">首页公告：</div></td>
<td width="73%" align=left> <input name="switch_gonggao" type="radio" id="switch_gonggao" value="1" <% if switch_gonggao=1 then%>checked <% end if %> style=border:0px>
显示列表
<input name="switch_gonggao" type="radio" id="switch_gonggao" value="0" <% if switch_gonggao=0 then%>checked <% end if %> style=border:0px>
显示内容
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">显示作者：</div></td>
<td align=left><input name="switch_author" type="radio" id="switch_author" value="3" <% if switch_author=3 then%>checked <% end if %> style=border:0px>
显示两者
<input name="switch_author" type="radio" id="switch_author" value="2" <% if switch_author=2 then%>checked <% end if %> style=border:0px>
显示发表部门
<input name="switch_author" type="radio" id="switch_author" value="1" <% if switch_author=1 then%>checked <% end if %> style=border:0px>
显示发表人
<input name="switch_author" type="radio" id="switch_author" value="0" <% if switch_author=0 then%>checked <% end if %> style=border:0px>
不显示</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">打开在线QQ：</div></td>
<td align=left><input name="switch_onlingQQ" type="radio" id="switch_onlingQQ" value="2" <% if switch_onlingQQ=2 then%>checked <% end if %> style=border:0px>
多QQ客服系统
<input name="switch_onlingQQ" type="radio" id="switch_onlingQQ" value="1" <% if switch_onlingQQ=1 then%>checked <% end if %> style=border:0px>
单QQ客服系统
<input name="switch_onlingQQ" type="radio" id="switch_onlingQQ" value="0" <% if switch_onlingQQ=0 then%>checked <% end if %> style=border:0px>
否</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">单QQ客服系统QQ：</div></td>
<td align=left><input type="text" name="a125_qqonline" size="40" value="<%=a125_qqonline%>">
<font color="#FF0000">多个QQ号用逗号(,)分开</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">页脚显示网站点击数：</div></td>
<td align=left><input name="switch_count" type="radio" id="switch_count" value="1" <% if switch_count=1 then%>checked <% end if %> style=border:0px>
是
<input name="switch_count" type="radio" id="switch_count" value="0" <% if switch_count=0 then%>checked <% end if %> style=border:0px>
否
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align=left><div align="right">页脚显示当前在线人数：</div></td>
<td align=left><input name="switch_online" type="radio" id="switch_online" value="1" <% if switch_online=1 then%>checked <% end if %> style=border:0px>
是
<input name="switch_online" type="radio" id="switch_online" value="0" <% if switch_online=0 then%>checked <% end if %> style=border:0px>
否
<font color="#FF0000">极耗资源，建议关闭</font></td>
</tr>
<tr bgcolor="#115F8F">
<td height="25" colspan="2" align=left><div align="center">
<input type="submit" name="Submit" value="设 置" ></div>
</td>
</tr>
</form>
</table>
</td></tr></table>
</BODY>
</HTML>
<%
conn.Close
Set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -