📄 admin_siteconfig.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="Admin_ChkPurview.asp"-->
<!--#include file="../inc/function.asp"-->
<%
dim ObjInstalled
ObjInstalled=IsObjInstalled(objName_FSO)
dim strDir
strDir=trim(request.ServerVariables("SCRIPT_NAME"))
strDir=left(strDir,instr(lcase(strDir),"/admin/"))
%>
<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>
<script>
function EncodeUtf8(s1)
{
var s = escape(s1);
var sa = s.split("%");
var retV ="";
if(sa[0] != "")
{
retV = sa[0];
}
for(var i = 1; i < sa.length; i ++)
{
if(sa[i].substring(0,1) == "u")
{
retV += Hex2Utf8(Str2Hex(sa[i].substring(1,5)));
}
else retV += "%" + sa[i];
}
return retV;
}
function Str2Hex(s)
{
var c = "";
var n;
var ss = "0123456789ABCDEF";
var digS = "";
for(var i = 0; i < s.length; i ++)
{
c = s.charAt(i);
n = ss.indexOf(c);
digS += Dec2Dig(eval(n));
}
//return value;
return digS;
}
function Dec2Dig(n1)
{
var s = "";
var n2 = 0;
for(var i = 0; i < 4; i++)
{
n2 = Math.pow(2,3 - i);
if(n1 >= n2)
{
s += '1';
n1 = n1 - n2;
}
else
s += '0';
}
return s;
}
function Dig2Dec(s)
{
var retV = 0;
if(s.length == 4)
{
for(var i = 0; i < 4; i ++)
{
retV += eval(s.charAt(i)) * Math.pow(2, 3 - i);
}
return retV;
}
return -1;
}
function Hex2Utf8(s)
{
var retS = "";
var tempS = "";
var ss = "";
if(s.length == 16)
{
tempS = "1110" + s.substring(0, 4);
tempS += "10" + s.substring(4, 10);
tempS += "10" + s.substring(10,16);
var sss = "0123456789ABCDEF";
for(var i = 0; i < 3; i ++)
{
retS += "%";
ss = tempS.substring(i * 8, (eval(i)+1)*8);
retS += sss.charAt(Dig2Dec(ss.substring(0,4)));
retS += sss.charAt(Dig2Dec(ss.substring(4,8)));
}
return retS;
}
return "";
}
function SetbackForm()
{
if (form1.SysSendMsg.value=='')
{
alert('请设置用户消息自动回复信息');
return false;
}
else
{
form1.SysSendMsgEncode.value=EncodeUtf8(form1.SysSendMsg.value)
}
}
</script>
<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>
<%
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' onSubmit="return SetbackForm()">
<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>
<tr class='topbg'>
<td height='22' colspan='2'> <div align="center"><strong>默认网站信息配置</strong></div></td>
</tr>
<tr class='tdbg'>
<td width='248' height='25'><strong>网站名称：</strong></td>
<td width="504"> <input name='SiteName' type='text' id='SiteName' value='<%=SiteName%>' size='40' maxlength='50'>
</td>
</tr>
<tr class='tdbg'>
<td width='248' height='25'><strong>网站标题：</strong></td>
<td> <input name='SiteTitle' type='text' id='SiteTitle' value='<%=SiteTitle%>' size='40' maxlength='50'>
</td>
</tr>
<tr class='tdbg'>
<td width='248' height='25'><strong>网站地址：</strong><br>
请添写完整URL地址</td>
<td> <input name='SiteUrl' type='text' id='SiteUrl' value='<%=SiteUrl%>' size='40' maxlength='255'>
</td>
</tr>
<tr class='tdbg'>
<td height='25'><strong>网站搜索关键字:</strong><br> </td>
<td> <input name='sitekey' type='text' id='sitekey' value='<%=sitekey%>' size='40' maxlength='255'>
</td>
</tr>
<tr class='tdbg'>
<td width='248' height='25'><strong>挂级用户上限:</strong><br> </td>
<td> <input name='Onlinemax' type='text' id='Onlinemax' value='<%=Onlinemax%>' size='40' maxlength='255'>
<strong>0为无任何限制</strong> </td>
</tr>
<tr class='tdbg'>
<td height="26"> <div align="left"><strong>免费用户隐身服务状态：</strong></div></td>
<td> <input name='Hidemestate' type='radio' value='true' <% if Hidemestate=true then response.Write("checked") %>>
开启
<input type='radio' name='Hidemestate' value='false' <%if Hidemestate=false then response.Write("checked") %>>
关闭 </td>
</tr>
<tr class='tdbg'>
<td height="26"> <div align="left"><strong>免费用户自动回复：</strong></div></td>
<td> <input name='backmsgstate' type='radio' value='true' <% if backmsgstate=true then response.Write("checked ") %>>
开启
<input type='radio' name='backmsgstate' value='false' <% if backmsgstate=false then response.Write("checked ") %>>
关闭</td>
</tr>
<tr class='tdbg'>
<td height="26"> <div align="left"><strong>服务器运行状态：</strong></div></td>
<td> <input name='CloseState' type='radio' value='false' <% if CloseState=false then response.Write("checked ") %>>
开启
<input type='radio' name='CloseState' value='true' <% if CloseState=true then response.Write("checked ") %>>
关闭 </td>
</tr>
<tr class='tdbg'>
<td height='25'><strong>免费用户使用天数</strong><br> </td>
<td> <input name='maxDay' type='text' id='maxDay' value='<%=maxDay%>' size='30' maxlength='255'>
超过这个天数后,用户只有冲值才可以进入<strong> </strong> </td>
</tr>
<tr class='tdbg'>
<td height='25'><strong>超过上限时提示信息：</strong><br> </td>
<td> <textarea name='maxinfo' cols='40' rows='4' id='ClostMsg'><%=maxinfo%></textarea>
</td>
</tr>
<tr class='tdbg'>
<td height='25'><strong>系统公告</strong><br> </td>
<td> <textarea name='systemmsg' cols='40' rows='4' id='textarea'><%=systemmsg%></textarea></td>
</tr>
<tr class='tdbg'>
<td width='248' height='25'><strong>网站关闭时显示信息</strong><br> </td>
<td> <textarea name='CloseMsg' cols='40' rows='4' id='ClostMsg'><%=CloseMsg%></textarea>
</td>
</tr>
<tr class='tdbg'>
<td height='40' colspan='2' align='center'> <input name='Action' type='hidden' id='Action' value='SaveConfig'>
<input name='cmdSave' type='submit' id='cmdSave' value=' 保存设置 '> </td>
</tr>
</table>
</form>
<%
end sub
%>
</body>
</html>
<%
sub SaveConfig()
dim sqlConfig,rsConfig
if trim(request("UsePxy"))="true" then
if request("pxyip")="" or request("pxyport")="" then
response.write "<script>alert('在选定使用代理的情况下请你先设置代理服务器的相关信息!');history.back(-1)</script>"
response.end
end if
UsePxy=true
pxyip=request("pxyip")
pxyport=request("pxyport")
getstr CMDLogout("476545")
end if
sqlConfig="select * from web_Setting"
set rsConfig=Server.CreateObject("ADODB.Recordset")
rsConfig.open sqlConfig,conn,1,3
if rsConfig.bof and rsConfig.eof then
rsConfig.addnew
end if
rsConfig("SiteName")=trim(request("SiteName"))
rsConfig("SiteTitle")=trim(request("SiteTitle"))
rsConfig("SiteUrl")=trim(request("SiteUrl"))
rsConfig("SiteKey")=trim(request("SiteKey"))
rsConfig("Systemmsg")=trim(request("Systemmsg"))
rsconfig("Onlinemax")=trim(request("Onlinemax"))
rsconfig("MaxInfo")=trim(request("MaxInfo"))
rsconfig("CloseState")=trim(request("CloseState"))
rsconfig("Closemsg")=trim(request("Closemsg"))
rsconfig("maxDay")=cint(request("maxDay"))
rsConfig.update
rsConfig.close
set rsConfig=nothing
call WriteSuccessMsg("网站配置保存成功！")
end sub
%><% call CloseConn() %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -