<%
'程序名称：千纸鹤网站管理系统
'程序作者：千纸鹤
'作者邮箱：qzhxxw@sina.com
'作者 Q Q：138999501
'作者电话：0000000000
'官方主页：http://www.qqzzhh.com/
'官方论坛：http://www.qqzzhh.com/bbs
%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/dll.asp"-->
<%
call hacker()
if session("superlogin")<>yecao then
response.Write "<script>alert('您还没有登陆！');this.location.href='index.asp';</script>"
Response.End
end if
if session("superadmin")<>"admin" then
response.Write "<script>alert('您不是超级管理员！您的权限不足！');this.location.href='index.asp';</script>"
Response.End
end if%>
<HTML><HEAD><TITLE>管理中心</TITLE>
<script language="JavaScript"> 
function pressKey(){
if(navigator.appName=='Netscape')
alert('你按键的编码值为：'+ event.which +
'\n其ASCII码字符为:'+ String.fromCharCode(event.which))
else
alert('你按键的编码值为：'+ event.keyCode +
'\n其ASCII码字符为:'+ String.fromCharCode(event.keyCode));}
</script>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="img/admin.css" type=text/css rel=StyleSheet>
<script src=img/adminjs.js></script>
</HEAD>
<body  style="border:outset 1 #ffffff;margin: 0;background-color:#D4D0C8;padding:3px" scroll=no>
<%
select case Request("menu")
case ""
call myset()
case "setok"
call setok()
end select
sub myset()%>
<style type="text/css">
<!--
body{font-size: 12px;background-color: #D4D0C8;color:#000000;}
td, div, input, textarea{font-size: 12px;cursor: default;}
.title{background-color: #000080;color:#ffffff;padding: 1;font-family:宋体;font-size:12px;}
.up{background-color: #D4D0C8;color:#000000;border: 2px outset #ffffff}
.down{background-color: #D4D0C8;border:2px inset #ffffff}
.up1{background-color: #D4D0C8;color: #000000;border: 1px outset #ffffff}
.down1{background-color:#D4D0C8;border:1px inset #ffffff}
.l{background-color: #D4D0C8; height: 18px; border-left: 2px outset #ffffff;border-right: 2px outset #ffffff; color:#000000;
border-top: 2px outset #ffffff; padding-top: 2;height:18}
.lc{background-color: #D4D0C8; height: 18px; border-left: 2px outset #ffffff;border-right: 2px outset #ffffff; color:#000000;
border-top: 2px outset #ffffff; padding-top: 2;height:20}
.l-h{ background-color: #D4D0C8; border-left: 2px outset #ffffff ; border-top: 2px outset #ffffff;color:#000000; }
.l-c{ background-color: #D4D0C8; border-top: 2px outset #ffffff }
.l-r{ background-color: #D4D0C8; border-right: 2px outset #ffffff; border-top: 2px outset #ffffff;color:#000000;}
.l-hc{ background-color: #D4D0C8; border-left: 2px outset #ffffff;color:#000000;}
.l-cc{ background-color: #D4D0C8;color:#000000; }
.l-rc{ background-color: #D4D0C8; border-right: 2px outset #ffffff;color:#000000;}td{color:#000000;}
-->
</style>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
function restore()
{
td1.className="l";
td2.className="l";
td3.className="l";
td4.className="l";
td5.className="l";
td6.className="l";
td7.className="l";
td_1.className="l-h";
td_2.className="l-c";
td_3.className="l-c";
td_4.className="l-c";
td_5.className="l-c";
td_6.className="l-c";
td_7.className="l-c";
w1.style.display="none";
w2.style.display="none";
w3.style.display="none";
w4.style.display="none";
w5.style.display="none";
w6.style.display="none";
w7.style.display="none";
}
function c1()
{
td1.className="lc";
td_1.className="l-hc";
w1.style.display="block";
}
function c2()
{
td2.className="lc";
td_2.className="l-cc";
w2.style.display="block";
}
function c3()
{
td3.className="lc";
td_3.className="l-cc";
w3.style.display="block";
}
function c4()
{
td4.className="lc";
td_4.className="l-cc";
w4.style.display="block";
}
function c5()
{
td5.className="lc";
td_5.className="l-cc";
w5.style.display="block";
}
function c6()
{
td6.className="lc";
td_6.className="l-cc";
w6.style.display="block";
}
function c7()
{
td7.className="lc";
td_7.className="l-cc";
w7.style.display="block";
}
function killErrors() {
return true;}
window.onerror = killErrors;
//-->
</SCRIPT>
<table align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d id="go"  style="position:absolute;left:20;top:40;width:450">
<tr height=22><td colspan="2" class="title"  onmousedown="MDown(go)"><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;网站基本设置</b>
</td></tr>
<tr class=bg>
<td align=center height=30 style="padding:10px">
<table border="0" cellpadding="0" cellspacing="0" width="430" height="61"><tr>
<form method="post" action="?menu=setok">
<td width="75" height="20" align="center" valign="bottom" onclick=restore();c1();>
<div id="td1" class="lc">基本设置</div></td>
<td width="75" height="20" align="center" valign="bottom" onclick=restore();c2();>
<div id="td2" class="l">排序设置</div></td>
<td width="75" height="20" align="center" valign="bottom" onclick=restore();c3();>
<div id="td3" class="l">会员设置</div></td>
<td width="75" height="20" align="center" valign="bottom" onclick=restore();c4();>
<div id="td4" class="l">上传设置</div></td>
<td width="75" height="20" align="center" valign="bottom" onclick=restore();c5();>
<div id="td5" class="l">屏蔽设置</div></td>
<td width="75" height="20" align="center" valign="bottom" onclick=restore();c6();>
<div id="td6" class="l">安全设置</div></td>
<td width="75" height="20" align="center" valign="bottom" onclick=restore();c7();>
<div id="td7" class="l">其他设置</div></td>

</tr>
<tr>
<td width="70" height="1" align="center" class="l-hc" id="td_1" >&nbsp;</td>
<td width="70" height="1" align="center" class="l-c" id="td_2">&nbsp;</td>
<td width="70" height="1" align="center" class="l-c" id="td_3">&nbsp;</td>
<td width="70" height="1" align="center" class="l-c" id="td_4">&nbsp;</td>
<td width="70" height="1" align="center" class="l-c" id="td_5">&nbsp;</td> 
<td width="70" height="1" align="center" class="l-c" id="td_6">&nbsp;</td>
<td width="70" height="1" align="center" class="l-c" id="td_7">&nbsp;</td>
<td width="50" height="1" align="center" class="l-r" id="td_">&nbsp;</td>
</tr>
<tr>
<td  class="up" colspan="8" style="border-top-style: solid; border-top-width: 0; padding: 5">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><td width="100%">
<div style="display:" id=w1>
<table border=0>
<tr><td width=75>
&nbsp;网站名称：</td><td><input type=text size="20" name="webname" value="<%=YCMSIE(webname)%>" class=yecao>&nbsp;如：千纸鹤<br>
</td></tr>
<tr><td>
&nbsp;网站地址：</td><td><input type=text size="20" value="<%=YCMSIE(weburl)%>" name="weburl" class=yecao>&nbsp;如：http://www.qqzzhh.com<br>
</td></tr>
<tr><td width=75>
&nbsp;网站LOGO：</td><td><input type=text size="20" value="<%=YCMSIE(weblogo)%>" name="weblogo" class=yecao>&nbsp;如：img/logo.gif<br>
</td></tr>
<tr><td width=75>
&nbsp;站长邮箱：</td><td><input type=text size="20" value="<%=YCMSIE(webmail)%>" name="webmail" class=yecao>&nbsp;如：qzhxxw@sina.com<br>
</td></tr>
<tr><td width=75>
&nbsp;站长名字：</td><td><input type=text size="20" value="<%=YCMSIE(webceo)%>" name="webceo" class=yecao>&nbsp;如：千纸鹤<br>
</td></tr>
<tr><td width=75>
&nbsp;边框颜色：</td><td><input type=text size="20" value="<%=YCMSIE(border)%>" name="border" class=yecao>&nbsp;如：#000000<br>
</td></tr>
<tr><td width=75>
&nbsp;后台缓存：</td><td><input type=text size="20" value="<%=YCMSIE(yecao)%>" name="yecao" class=yecao>&nbsp;不要和前台的缓存相同！<br>
</td></tr>
<tr><td width=75>
&nbsp;前台缓存：</td><td><input type=text size="20" value="<%=YCMSIE(sys)%>" name="sys" class=yecao>&nbsp;不要和后台的缓存相同！<br>
</td></tr>
<tr><td width=75>
&nbsp;默认皮肤：</td><td><input type=text size="20" value="<%=YCMSIE(skin)%>" name="skin" class=yecao>&nbsp;填写SKIN文件夹里的文件夹。<br>
</td></tr>

</table>
</div>
<div style="display:none;line-height:150%" id=w2 >
&nbsp;首页显示：<input type=text size="20" value="<%=YCMSIE(Join(indexpage,"|"))%>" name="indexpage" class=yecao>&nbsp;新闻|文章|图片|娱乐|下载|连接|公告<br>
&nbsp;前台分页：<input type=text size="20" value="<%=YCMSIE(Join(yecaopage,"|"))%>" name="yecaopage" class=yecao>&nbsp;新闻|文章|图片|娱乐|下载|连接|留言<br>
&nbsp;后台分页：<input type=text size="20" value="<%=YCMSIE(adminpage)%>" name="adminpage" class=yecao><br>
&nbsp;点击排行：<input type=text size="20" value="<%=YCMSIE(toplist)%>" name="toplist" class=yecao><br>
&nbsp;本站推荐：<input type=text size="20" value="<%=YCMSIE(bestlist)%>" name="bestlist" class=yecao><br>
</div>
<div style="display:none" id=w3>
&nbsp;会员系统模式：<br>
<input type="radio" name="user_mode" value="0" <%if user_mode="0" then response.write " checked"%>>关闭模式（会员不可以登陆，游客也不能注册）<br>
<input type=radio name="user_mode" value="1" <%if user_mode="1" then response.write " checked"%>>开放模式（会员可以登陆，但不能注册）<br>
<input type=radio name="user_mode" value="2" <%if user_mode="2" then response.write " checked"%>>开放模式（会员可以登陆，新用户注册需要审核）<br>
<input type=radio name="user_mode" value="3" <%if user_mode="3" then response.write " checked"%>>开放模式（会员可以登陆，新用户注册不需要通过审核）
<br>
&nbsp;关闭注册原因：<input type=text size="50" value="<%=YCMSIE(noregtext)%>" name="noregtext" class=yecao><hr>
&nbsp;上传选项：<input type="radio" name="userup" value="yes" <%if userup="yes" then response.write " checked"%>>可以上传
<input type="radio" name="userup" value="no" <%if userup="no" then response.write " checked"%>>屏蔽上传<br><hr>
&nbsp;发布新闻：<input type="radio" name="usernews" value="yes" <%if usernews="yes" then response.write " checked"%>>可以发布
<input type="radio" name="usernews" value="no" <%if usernews="no" then response.write " checked"%>>屏蔽发布<br>
&nbsp;发布文章：<input type="radio" name="userart" value="yes" <%if userart="yes" then response.write " checked"%>>可以发布
<input type="radio" name="userart" value="no" <%if userart="no" then response.write " checked"%>>屏蔽发布<br>
&nbsp;发布娱乐：<input type="radio" name="userdj" value="yes" <%if userdj="yes" then response.write " checked"%>>可以发布
<input type="radio" name="userdj" value="no" <%if userdj="no" then response.write " checked"%>>屏蔽发布<br>
&nbsp;发布图片：<input type="radio" name="userpic" value="yes" <%if userpic="yes" then response.write " checked"%>>可以发布
<input type="radio" name="userpic" value="no" <%if userpic="no" then response.write " checked"%>>屏蔽发布<br>
&nbsp;发布下载：<input type="radio" name="userdown" value="yes" <%if userdown="yes" then response.write " checked"%>>可以发布
<input type="radio" name="userdown" value="no" <%if userdown="no" then response.write " checked"%>>屏蔽发布<br>
<hr>
&nbsp;浏览新闻：<input type="radio" name="shownews" value="yes" <%if shownews="yes" then response.write " checked"%>>可以浏览
<input type="radio" name="shownews" value="no" <%if shownews="no" then response.write " checked"%>>屏蔽浏览<br>

&nbsp;浏览文章：<input type="radio" name="showart" value="yes" <%if showart="yes" then response.write " checked"%>>可以浏览
<input type="radio" name="showart" value="no" <%if showart="no" then response.write " checked"%>>屏蔽浏览<br>

&nbsp;浏览娱乐：<input type="radio" name="showdj" value="yes" <%if showdj="yes" then response.write " checked"%>>可以浏览
<input type="radio" name="showdj" value="no" <%if showdj="no" then response.write " checked"%>>屏蔽浏览<br>

&nbsp;浏览图片：<input type="radio" name="showpic" value="yes" <%if showpic="yes" then response.write " checked"%>>可以浏览
<input type="radio" name="showpic" value="no" <%if showpic="no" then response.write " checked"%>>屏蔽浏览<br>

&nbsp;浏览下载：<input type="radio" name="showdown" value="yes" <%if showdown="yes" then response.write " checked"%>>可以浏览
<input type="radio" name="showdown" value="no" <%if showdown="no" then response.write " checked"%>>屏蔽浏览<br></center>


</div>

<div style="display:none" id=w4>
<table>
<tr><td width=80>
&nbsp;新闻附件：</td><td><input size="20" value="<%=YCMSIE(newsup)%>" name="newsup" class=yecao style=width:250px>
<input size="20" value="<%=YCMSIE(newsupsize)%>" name="newsupsize" class=yecao style=width:50px>&nbsp;KB
</td></tr>
<tr><td width=75>
&nbsp;文章附件：</td><td><input size="20" value="<%=YCMSIE(artup)%>" name="artup" class=yecao style=width:250px>
<input size="20" value="<%=YCMSIE(artupsize)%>" name="artupsize" class=yecao style=width:50px>&nbsp;KB
</td></tr>
<tr><td width=75>
&nbsp;娱乐附件：</td><td><input size="20" value="<%=YCMSIE(djup)%>" name="djup" class=yecao style=width:250px>
<input size="20" value="<%=YCMSIE(djupsize)%>" name="djupsize" class=yecao style=width:50px>&nbsp;KB
</td></tr>
<tr><td width=75>
&nbsp;娱乐缩图：</td><td><input size="20" value="<%=YCMSIE(djpicup)%>" name="djpicup" class=yecao style=width:250px>
<input size="20" value="<%=YCMSIE(djpicupsize)%>" name="djpicupsize" class=yecao style=width:50px>&nbsp;KB
</td></tr>
<tr><td width=75>
&nbsp;下载附件：</td><td><input size="20" value="<%=YCMSIE(downup)%>" name="downup" class=yecao style=width:250px>
<input size="20" value="<%=YCMSIE(downupsize)%>" name="downupsize" class=yecao style=width:50px>&nbsp;KB
</td></tr>
<tr><td width=75>
&nbsp;下载缩图：</td><td><input size="20" value="<%=YCMSIE(downpicup)%>" name="downpicup" class=yecao style=width:250px>
<input size="20" value="<%=YCMSIE(downpicupsize)%>" name="downpicupsize" class=yecao style=width:50px>&nbsp;KB
</td></tr>
<tr><td width=75>
&nbsp;图片附件：</td><td><input size="20" value="<%=YCMSIE(picup)%>" name="picup" class=yecao style=width:250px>
<input size="20" value="<%=YCMSIE(picupsize)%>" name="picupsize" class=yecao style=width:50px>&nbsp;KB
</td></tr>
<tr><td width=75>
&nbsp;频道附件：</td><td><input size="20" value="<%=YCMSIE(otherup)%>" name="otherup" class=yecao style=width:250px>
<input size="20" value="<%=YCMSIE(otherupsize)%>" name="otherupsize" class=yecao style=width:50px>&nbsp;KB
</td></tr>
<tr><td  height=25>&nbsp;说明介绍：</td><td>
1.上传文件格式要以斜杠“/”为分隔符。<br>
2.为了安全请不要把格式文件设置成[.ASP]后缀。否则会带来安全隐患。<br>
3.1M=1024KB  2M=2048KB 3M=3027KB 4MB=4096KB 5MB=5120KB
</td></tr>
</table>
</div>

<div style="display:none" id=w5>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><td width=75>
&nbsp;禁止右键：</td><td>
<input type="radio" name="rightmenu" value=0 <%if rightmenu=0 then response.write " checked"%>>不禁止
<input type="radio" name="rightmenu" value=1 <%if rightmenu=1 then response.write " checked"%>>半禁止
<input type="radio" name="rightmenu" value=2 <%if rightmenu=2 then response.write " checked"%>>全禁止<br>
</td></tr>
<tr><td width=75>
&nbsp;娱乐下载：</td><td>
<input type="radio" name="downdj" value="1" <%if downdj="1" then response.write " checked"%>>关闭
<input type="radio" name="downdj" value="0" <%if downdj="0" then response.write " checked"%>>打开<br>
</td></tr>
<tr><td width=75>
&nbsp;网站开关：</td><td>
<input type="radio" name="web" value="1" <%if web="1" then response.write " checked"%>>关闭
<input type="radio" name="web" value="0" <%if web="0" then response.write " checked"%>>打开<br>
</td></tr>

<tr><td width=75>
&nbsp;维护说明：</td><td><input size="20" value="<%=YCMSIE(webwords)%>" name="webwords" class=yecao style=width:300px>
</td></tr>
<tr><td width=75>
&nbsp;字符过滤：</td><td><textarea  name="keys" class=yecao style=width:300px;height:60px>
<%=YCMSIE(keys)%></textarea>
</td></tr>
<tr><td width=75>
&nbsp;注册过滤：</td><td><textarea  name="replace_reg" class=yecao style=width:300px;height:60px>
<%=YCMSIE(replace_reg)%></textarea>
</td></tr>
<tr><td width=75>
&nbsp;I P 屏蔽：</td><td><textarea  name="replace_ip" class=yecao style=width:300px;height:60px>
<%=YCMSIE(replace_ip)%></textarea>
</td></tr>
</table>
</div>

<div style="display:none" id=w6>

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><td width=100>&nbsp;二次密码开关：</td><td>
<input type="radio" name="mypassopen" value="no" <%if mypassopen="no" then response.write " checked"%>>关闭
<input type="radio" name="mypassopen" value="yes" <%if mypassopen="yes" then response.write " checked"%>>打开<br><br>
</td></tr>
<tr><td width=100>&nbsp;输入二次密码：</td><td><input type=text size="20" value="<%=mypass%>" name="mypass" class=yecao>&nbsp;您可以随意输入您的密码<br>
</td></tr>
<tr><td width=100>&nbsp;二次密码开值：</td><td><input type=text size="20" value="<%=mypasskey%>" name="mypasskey" class=yecao>&nbsp;ACCII编码值。<br>
</td></tr>
<tr><td width=100>&nbsp;简单说明：</td><td style="line-height:150%">
①如果您开启了开关，则进入后台时需要验证二次密码<br>
②二次密码防止黑客暴力破解密码的补助器 <br>
③二次密码开值指ACCII编码值,相关值，请<a href="#" onKeyPress="pressKey()"><font color=red><b>单击</b></font></a>此处,在有焦点的时候请键入你想要的相应ACCII键盘值,如果您开启了这个功能您必须要进入管理时按下您设置的ACCII相应的键盘键。这样才会显示出来输入框。
</td></tr>
</table>
</div>
<div style="display:none" id=w7>
  <table border="0" cellpadding="0" cellspacing="0" width="100%">

<tr><td width=75>
&nbsp;版权信息：</td><td>
<textarea  name="copyright" class=yecao style=width:300px;height:60px>
<%=YCMSIE(copyright)%></textarea>
</td></tr>
<tr><td width=75>
&nbsp;状态信息：</td><td>
<textarea  name="status" class=yecao style=width:300px;height:60px>
<%=YCMSIE(status)%></textarea>
</td></tr>
<tr><td width=75>
&nbsp;关 键 字：</td><td><textarea  name="keywords" class=yecao style=width:300px;height:60px>
<%=YCMSIE(keywords)%></textarea>
</td></tr>
<tr><td width=75>
&nbsp;在线超时：</td><td>
<input size="20" value="<%=YCMSIE(kicktime)%>" name="kicktime" class=yecao style=width:100px> 以分钟为单位<br>
</td></tr>
<tr><td width=75>
&nbsp;在线交流：</td><td><textarea  name="qq_online" class=yecao style=width:300px;height:60px>
<%=YCMSIE(qq_online)%></textarea><br>请把QQ在线状态复制到这里！
</td></tr>
</table>
</div>
</td></tr></table>
</td></tr>
<tr><td width="398" height="37" colspan="8" style="border-top-style: solid; border-top-width: 0; padding: 5" align="center">
<input type="submit" value="更 新"  style="width: 60;height:22" class=adminbutton></td></form></tr></table></td></tr></table>


<%
end sub
Function YCMSIE(byval s_string)
If isnull(s_string) Then
YCMSIE=""
Else
s_string=replace(s_string,"&","&amp;")
s_string=replace(s_string,chr(34),"&quot;")
s_string=replace(s_string,"<","&lt;")
YCMSIE=replace(s_string,">","&gt;")
End If
End Function
Sub ADODB_SaveToFile(ByVal strBody,ByVal File)
	On Error Resume Next
	Dim objStream,FSFlag,fs,WriteFile
	FSFlag = 1
	If DEF_FSOString <> "" Then
		Set fs = Server.CreateObject(DEF_FSOString)
		If Err Then
			FSFlag = 0
			Err.Clear
			Set fs = Nothing
		End If
	Else
		FSFlag = 0
	End If
	
	If FSFlag = 1 Then
		Set WriteFile = fs.CreateTextFile(Server.MapPath(File),True)
		WriteFile.Write strBody
		WriteFile.Close
		Set Fs = Nothing
	Else
		Set objStream = Server.CreateObject("ADODB.Stream")
		If Err.Number=-2147221005 Then 
			GBL_CHK_TempStr = "您的主机不支持ADODB.Stream，无法完成操作，请手工修改<font color=Red >inc/asp.asp</font>文件!"
			Err.Clear
			Set objStream = Noting
			Exit Sub
		End If
		With objStream
			.Type = 2
			.Open
			.Charset = "GB2312"
			.Position = objStream.Size
			.WriteText = strBody
			.SaveToFile Server.MapPath(File),2
			.Close
		End With
		Set objStream = Nothing
	End If
End Sub
sub setok()
Dim n,TempStr
TempStr=""
TempStr=TempStr&chr(60) & "%" & VbCrLf
TempStr=TempStr&"'■■■■■■■■网站基本信息■■■■■■■■" & VbCrLf
TempStr=TempStr&"yecao="&Chr(34)&replace(Trim(Request.Form("yecao")),CHR(34),"'")&Chr(34)&"          '后台缓存" & VbCrLf
TempStr=TempStr&"mypassopen="&Chr(34)&replace(Trim(Request.Form("mypassopen")),CHR(34),"'")&Chr(34)&"    '二次密码启动开关" & VbCrLf
TempStr=TempStr&"mypasskey="&Chr(34)&replace(Trim(Request.Form("mypasskey")),CHR(34),"'")&Chr(34)&"    '二次密码启动值" & VbCrLf
TempStr=TempStr&"mypass="&Chr(34)&replace(Trim(Request.Form("mypass")),CHR(34),"'")&Chr(34)&"    '二次密码" & VbCrLf
TempStr=TempStr&"sys="&Chr(34)&replace(Trim(Request.Form("sys")),CHR(34),"'")&Chr(34)&"    '前台缓存" & VbCrLf
TempStr=TempStr&"webname="&Chr(34)&replace(Trim(Request.Form("webname")),CHR(34),"'")&Chr(34)&"      '设置站点名称" & VbCrLf
TempStr=TempStr&"weburl="&Chr(34)&replace(Trim(Request.Form("weburl")),CHR(34),"'")&Chr(34) &"       '设置网站地址" & VbCrLf
TempStr=TempStr&"webmail="&Chr(34)&replace(Trim(Request.Form("webmail")),CHR(34),"'")&Chr(34)&"      '设置站长EMAIL" & VbCrLf
TempStr=TempStr&"weblogo="&Chr(34)&replace(Trim(Request.Form("weblogo")),CHR(34),"'")&Chr(34)&"       '设置logo代码" & VbCrLf
TempStr=TempStr&"border="&Chr(34)&replace(Trim(Request.Form("border")),CHR(34),"'")&Chr(34)&"         '设置广告代码" & VbCrLf
TempStr=TempStr&"webceo="&Chr(34)&replace(Trim(Request.Form("webceo")),CHR(34),"'")&Chr(34)&"         '设置站长名字" & VbCrLf
TempStr=TempStr&"skin="&Chr(34)&replace(Trim(Request.Form("skin")),CHR(34),"'")&Chr(34)&"    '设置站点首页默认皮肤" & VbCrLf
TempStr=TempStr&"downdj="&Chr(34)&replace(Trim(Request.Form("downdj")),CHR(34),"'")&Chr(34)&"         '设置是否下载娱乐" & VbCrLf
TempStr=TempStr&"web="&Chr(34)&replace(Trim(Request.Form("web")),CHR(34),"'")&Chr(34)&"         '设置是否打开站点" & VbCrLf
TempStr=TempStr&"webwords="&Chr(34)&replace(Trim(Request.Form("webwords")),CHR(34),"'")&Chr(34)&"    '设置维护说明" & VbCrLf
TempStr=TempStr&"copyright="&Chr(34)&replace(Trim(Request.Form("copyright")),CHR(34),"'")&Chr(34)&"  '设置维护说明" & VbCrLf
TempStr=TempStr&"keys="&Chr(34)&replace(Trim(Request.Form("keys")),CHR(34),"'")&Chr(34)&"  '关键字过滤，请用“|”分隔多项！" & VbCrLf 
TempStr=TempStr&"rightmenu="&replace(Trim(Request.Form("rightmenu")),CHR(34),"'")&"  '禁止右键0为不禁止|1为半禁止|2为全禁止" & VbCrLf
TempStr=TempStr&"keywords="&Chr(34)&replace(Trim(Request.Form("keywords")),CHR(34),"'")&Chr(34)&"  '网站关键字，为了让搜索器自动找到你的网站" & VbCrLf
TempStr=TempStr&"kicktime="&Chr(34)&replace(Trim(Request.Form("kicktime")),CHR(34),"'")&Chr(34)&"  '在线用户超时时间" & VbCrLf
TempStr=TempStr&"status="&Chr(34)&replace(Trim(Request.Form("status")),CHR(34),"'")&Chr(34)&"  '状态栏信息" & VbCrLf
TempStr=TempStr&"replace_reg="&Chr(34)&replace(Trim(Request.Form("replace_reg")),CHR(34),"'")&Chr(34)&"  '注册过滤，用|分隔多个名字。" & VbCrLf
TempStr=TempStr&"replace_ip="&Chr(34)&replace(Trim(Request.Form("replace_ip")),CHR(34),"'")&Chr(34)&"  'IP封锁，用|分隔多个IP。" & VbCrLf
TempStr=TempStr&"qq_online="&Chr(34)&replace(Trim(Request.Form("qq_online")),CHR(34),"'")&Chr(34)&"  '在线QQ交流代码" & VbCrLf

TempStr=TempStr&"'■■■■■■■■用户设置■■■■■■■■" & VbCrLf
TempStr=TempStr&"noregtext="&Chr(34)&replace(Trim(Request.Form("noregtext")),CHR(34),"'")&Chr(34)&"   '屏蔽注册说明" & VbCrLf
TempStr=TempStr&"user_mode="&Chr(34)&replace(Trim(Request.Form("user_mode")),CHR(34),"'")&Chr(34)&"   '会员系统模式0=关闭，1=关闭，但能登陆，2=会员可以登陆，新用户注册需要审核，4=会员可以登陆，新用户注册不需要通过审核" & VbCrLf
TempStr=TempStr&"userup="&Chr(34)&replace(Trim(Request.Form("userup")),CHR(34),"'")&Chr(34)&"     '是否可以上传" & VbCrLf
TempStr=TempStr&"usernews="&Chr(34)&replace(Trim(Request.Form("usernews")),CHR(34),"'")&Chr(34)&" '是否可以发布新闻" & VbCrLf
TempStr=TempStr&"userart="&Chr(34)&replace(Trim(Request.Form("userart")),CHR(34),"'")&Chr(34)&"   '是否可以发布文章" & VbCrLf
TempStr=TempStr&"userdj="&Chr(34)&replace(Trim(Request.Form("userdj")),CHR(34),"'")&Chr(34)&"    '是否可以发布娱乐" & VbCrLf
TempStr=TempStr&"userpic="&Chr(34)&replace(Trim(Request.Form("userpic")),CHR(34),"'")&Chr(34)&"   '是否可以发布图片" & VbCrLf
TempStr=TempStr&"userdown="&Chr(34)&replace(Trim(Request.Form("userdown")),CHR(34),"'")&Chr(34)&" '是否可以发布下载" & VbCrLf
TempStr=TempStr&"shownews="&Chr(34)&replace(Trim(Request.Form("shownews")),CHR(34),"'")&Chr(34)&" '是否可以浏览新闻" & VbCrLf
TempStr=TempStr&"showart="&Chr(34)&replace(Trim(Request.Form("showart")),CHR(34),"'")&Chr(34)&"   '是否可以浏览文章" & VbCrLf
TempStr=TempStr&"showdj="&Chr(34)&replace(Trim(Request.Form("showdj")),CHR(34),"'")&Chr(34)&"    '是否可以浏览娱乐" & VbCrLf
TempStr=TempStr&"showpic="&Chr(34)&replace(Trim(Request.Form("showpic")),CHR(34),"'")&Chr(34)&" '是否可以浏览图片" & VbCrLf
TempStr=TempStr&"showdown="&Chr(34)&replace(Trim(Request.Form("showdown")),CHR(34),"'")&Chr(34)&" '是否可以浏览下载" & VbCrLf
TempStr=TempStr&"'■■■■■■■■前台首页设置■■■■■■■■" & VbCrLf
TempStr=TempStr&"indexpage=split("""&replace(Trim(Request.Form("indexpage")),CHR(34),"'")&""",""|"") '首页设置，新闻|文章|图片|娱乐|下载|连接|公告" & VbCrLf
TempStr=TempStr&"yecaopage=split("""&replace(Trim(Request.Form("yecaopage")),CHR(34),"'")&""",""|"") '分页设置，新闻|文章|图片|娱乐|下载|连接|留言" & VbCrLf
TempStr=TempStr&"adminpage="&replace(Trim(Request.Form("adminpage")),CHR(34),"'")&"     '后台分页设置" & VbCrLf
TempStr=TempStr&"toplist="&replace(Trim(Request.Form("toplist")),CHR(34),"'")&"       '点击排行设置" & VbCrLf
TempStr=TempStr&"bestlist="&replace(Trim(Request.Form("bestlist")),CHR(34),"'")&"      '本站推荐设置" & VbCrLf

TempStr=TempStr&"'■■■■■■■■上传文件设置■■■■■■■■" & VbCrLf
TempStr=TempStr&"newsup="&Chr(34)&replace(Trim(Request.Form("newsup")),CHR(34),"'")&Chr(34)&"     '新闻附件格式" & VbCrLf
TempStr=TempStr&"artup="&Chr(34)&replace(Trim(Request.Form("artup")),CHR(34),"'")&Chr(34)&"     '文章附件格式" & VbCrLf
TempStr=TempStr&"djup="&Chr(34)&replace(Trim(Request.Form("djup")),CHR(34),"'")&Chr(34)&"     '娱乐附件格式" & VbCrLf
TempStr=TempStr&"djpicup="&Chr(34)&replace(Trim(Request.Form("djpicup")),CHR(34),"'")&Chr(34)&" '下载略图附件格式"&VbCrLf
TempStr=TempStr&"picup="&Chr(34)&replace(Trim(Request.Form("picup")),CHR(34),"'")&Chr(34)&"     '图片附件格式" & VbCrLf
TempStr=TempStr&"downup="&Chr(34)&replace(Trim(Request.Form("downup")),CHR(34),"'")&Chr(34)&"     '下载附件格式" & VbCrLf
TempStr=TempStr&"downpicup="&Chr(34)&replace(Trim(Request.Form("downpicup")),CHR(34),"'")&Chr(34)&" '下载略图附件格式"&VbCrLf
TempStr=TempStr&"otherup="&Chr(34)&replace(Trim(Request.Form("otherup")),CHR(34),"'")&Chr(34)&"     '频道附件格式" & VbCrLf

TempStr=TempStr&"'■■■■■■■■上传文件大小设置■■■■■■■■" & VbCrLf
TempStr=TempStr&"newsupsize="&Chr(34)&replace(Trim(Request.Form("newsupsize")),CHR(34),"'")&Chr(34)&" '新闻附件大小" & VbCrLf
TempStr=TempStr&"artupsize="&Chr(34)&replace(Trim(Request.Form("artupsize")),CHR(34),"'")&Chr(34)&"  '文章附件大小" & VbCrLf
TempStr=TempStr&"djupsize="&Chr(34)&replace(Trim(Request.Form("djupsize")),CHR(34),"'")&Chr(34)&"   '娱乐附件大小" & VbCrLf
TempStr=TempStr&"djpicupsize="&Chr(34)&replace(Trim(Request.Form("djpicupsize")),CHR(34),"'")&Chr(34)&"'娱乐略图大小"& VbCrLf
TempStr=TempStr&"picupsize="&Chr(34)&replace(Trim(Request.Form("picupsize")),CHR(34),"'")&Chr(34)&"  '图片附件大小" & VbCrLf
TempStr=TempStr&"downupsize="&Chr(34)&replace(Trim(Request.Form("downupsize")),CHR(34),"'")&Chr(34)&" '下载附件大小" & VbCrLf
TempStr=TempStr&"downpicupsize="&Chr(34)&replace(Trim(Request.Form("downpicupsize")),CHR(34),"'")&Chr(34)&"'下载略图大小"& VbCrLf
TempStr=TempStr&"otherupsize="&Chr(34)&replace(Trim(Request.Form("otherupsize")),CHR(34),"'")&Chr(34)&" '频道附件大小"& VbCrLf

TempStr=TempStr&"%" & chr(62) & VbCrLf
ADODB_SaveToFile TempStr,"inc/set.asp"
If GBL_CHK_TempStr="" Then
Response.Write("<script>alert('网站设置成功！');this.location.href='admin.asp?action=right';</script>")
Response.End
Else
GBL_CHK_TempStr=""
End If
End Sub
call closedata()%>
