📄 admin_config.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/UserPs.Asp"-->
<!--#include file="../inc/pwwd.Asp"-->
<!--#include file="../inc/Config.Asp"-->
<!--#include file="Stream.Asp"-->
<%
BotList = "Google,Isaac,SurveyBot,Baiduspider,yahoo,yisou,3721,ia_archiver,P.Arthur,FAST-WebCrawler,Java,Microsoft-ATL-Native,TurnitinBot,WebGather,Sleipnir"
Botlist = Split(Botlist,",")
For i = 0 To Ubound(Botlist)
If InStr(Lcase(Request.ServerVariables("HTTP_USER_AGENT")),Lcase(Botlist(i))) > 0 Then
response.write" - Powered By FYPost - 枫叶贴吧"
response.End()
Exit For
End If
Next
'/*不让搜索引擎收录*/
Call Admin_Admin()
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
if request.querystring("action")="" then
config()
else
configok()
end if
sub config ()
%>
<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<TITLE>管理中心—网站设置</TITLE>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
td {
background:#F1F3F5;
}
/*针对该文件*/
-->
</style>
</head>
<script language="javascript">
<!--
function check_fywen()
{
if(config.Ipnum.value<1||config.Ipnum.value>4)
{
alert("IP显示位数 必须在1-4之间");
config.Ipnum.value="";
config.Ipnum.focus();
return false;
}
if(config.Ipnum.value.match(/[^1-4]/))
{
alert("IP显示位数 必须在1-4之间");
config.Ipnum.value="";
config.Ipnum.focus();
return false;
}
return true;
}
/*枫叶在线*/
-->
</script>
<body>
<form method="post" action="admin_config.asp?action=configok" onSubmit="javascript:return check_fywen();" id="config" name="config" >
<table border="1" width="98%" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
<tr >
<td colspan="2" class="imgbg" width="98%"><div align="center" ><strong class="size">网站基本设置</strong></div></td>
</tr>
<tr class="table_2">
<td colspan="2" class="bj" width="98%">设置网站的基本信息！需要（ADODB.Stream）支持 <font color="#FF0000">[注意：不允许在输入过程中回车或连续空格 如空格请输入&nbsp; 回车请输入<br/>]</font></td>
</tr>
<tr >
<td height="25" width="28%" class="table_3">网站名称：</td>
<td width="72%"><input size="40" name="fywenname" value="<%=fywenname%>" class="input">
</td>
</tr>
<tr >
<td height="25" width="28%" class="table_3">网站LOGO设置：</td>
<td width="72%"><input size="40" name="fywenlogo" value="<%=fywenlogo%>" class="input">
[图片的绝对路径要加 http:// ] 210*55 </td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">网站地址：</td>
<td width="72%"><input size="40" value="<%=fywenurl%>" name="fywenurl" class="input">
</td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">网站关键字：</td>
<td width="72%"><input size="40" value="<%=keywords%>" name="keywords" class="input">
</td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">关键字说明：</td>
<td width="72%"><input size="40" value="<%=description%>" name="description" class="input">
</td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">站长邮箱：</td>
<td width="72%"><input size="40" value="<%=fywenmail%>" name="fywenmail" class="input">
</td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">站长名字：</td>
<td width="72%"><input size="40" value="<%=fywen%>" name="fywen" class="input">
</td>
</tr>
<tr >
<td height="25" width="28%" class="table_3">备案信息：</td>
<td width="72%"><input size="40" value="<%=fywengov%>" name="fywengov" class="input"></td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">网站维护开关：</td>
<td width="72%"><select name="fywenopen" id="fywenopen">
<option value="yes" <%if fywenopen="yes" then response.write "selected" end if%>>=
正常开放 =</option>
<option value="NO" <%if fywenopen="NO" then response.write "selected" end if%>>=
关闭维护 =</option>
</select></td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">网站维护说明：</td>
<td width="72%"><textarea name="offfywen" cols="40" rows="5" class="input_2"><%=offfywen%></textarea>
支持HTML </td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">网站默认皮肤风格设置：</td>
<td width="72%"><select name="skin" id="skin">
<%
sql="select * from [skin] Where [skinid]='"&skin&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<option value="<%=rs("skinid")%>" selected="selected"><%=rs("skinname")%></option>
<%
sql1="select * from [skin] order by [id] desc"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
do while not rs1.eof
%>
<option value="<%=rs1("skinid")%>"><%=rs1("skinname")%></option>
<%
rs1.movenext
loop
if rs1.eof and rs1.bof then
Response.Write "<option value=''>目前没有风格</option>"
end if
set rs1=nothing
set conn1=nothing
%>
</select>
</td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">第三方统计代码：<br><br>
<font color="#FF0000">[注：</script>结束语句后面和标签后面不要留空格也不可用&nbsp;或<br/>代替]</font></td>
<td width="72%" >
<textarea name="fywentj" cols="40" rows="5" class="input_2"><%=fywentj%></textarea>
没有请留空 </td>
</tr>
</table>
<br>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
<tr >
<td colspan="2" class="imgbg" ><div align="center" class="size"><strong>邮件设置</strong></div></td>
</tr>
<tr >
<td height="25" class="table_3" width="28%">关闭邮件或选择发送组件：</td>
<td width="72%"><select name="mailpost" id="select">
<%if mailpost="0" then %> <option value="0" selected > 关 闭 </option>
<option value="1" > Jmail </option>
<%
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -