📄 system.asp
字号:
<!--#include file="../conn/boardconn.asp"-->
<!--#include file="../style/sql.asp" -->
<!--#include file="../CHAR.INC"-->
<!--#include file="../function.asp"-->
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style=font:9pt Verdana>"
response.write "<center><font face=Georgia,Tahoma size=2><u>友情提示：服务器禁止非法操作...</u></font></center>"
response.write "</td></tr></table></center>"
response.end
end if
%>
<%
fqys=request.servervariables("query_string")
dim nothis(18)
nothis(0)="net user"
nothis(1)="xp_cmdshell"
nothis(2)="/add"
nothis(3)="exec%20master.dbo.xp_cmdshell"
nothis(4)="net localgroup administrators"
nothis(5)="select"
nothis(6)="count"
nothis(7)="asc"
nothis(8)="char"
nothis(9)="mid"
nothis(10)="'"
nothis(11)=":"
nothis(12)=""""
nothis(13)="insert"
nothis(14)="delete"
nothis(15)="drop"
nothis(16)="truncate"
nothis(17)="from"
nothis(18)="%"
errc=false
for i= 0 to ubound(nothis)
if instr(FQYs,nothis(i))<>0 then
errc=true
end if
next
if errc then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style=font:9pt Verdana>"
response.write "<center><font face=Georgia,Tahoma size=2><u>友情提示：服务器禁止非法操作...</u></font></center>"
response.write "</td></tr></table></center>"
response.end
end if
%>
<%CheckAdmin2%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312">
<link href="../style/style.css" rel="stylesheet" type="text/css">
</head>
<body topmargin="0" leftmargin="0">
<div align="center"><center>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from [QiQiBoy_System_Disp]"
Set rs=conn.execute(Sql)
%>
<form id=form name=Form method="POST" action="edit_systemfox.asp?Action=Edit_System&NumID=<%Response.Write(rs(0))%>">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" height="20" bgcolor="#96C5DE" align=center colspan="2"><font color="white"><b>编 辑 系 统 初 始 设 置</b></font></td>
</tr>
<tr>
<td width="100%" height="20" align=center colspan="2"></td>
</tr>
<tr>
<td width="20%" align="right">网站名称:</TD><TD width="80%"><input class="input" type="text" name="name" size="50" value="<%Response.Write(rs(1))%>"></TD>
</tr>
<tr>
<td width="20%" align="right">网站介绍:</TD><TD width="80%"><input class="input" type="text" name="list" size="80" value="<%Response.Write(rs(2))%>"></TD>
</tr>
<tr>
<td width="20%" align="right">网站地址:</TD><TD width="80%"><input class="input" type="text" name="url" size="40" value="<%Response.Write(rs(3))%>"></TD>
</tr>
<tr>
<td width="20%" align="right">网站LOGO:</TD><TD width="80%"><input class="input" type="text" name="logo" size="40" value="<%Response.Write(rs(4))%>"></TD>
</tr>
<tr>
<td width="20%" align="right">网站站长:</TD><TD width="80%"><input class="input" type="text" name="user" size="30" value="<%Response.Write(rs(5))%>"></TD>
</tr>
<tr>
<td width="20%" align="right">邮件地址:</TD><TD width="80%"><input class="input" type="text" name="mail" size="40" value="<%Response.Write(rs(29))%>"></TD>
</tr>
<tr>
<td width="20%" align="right">OICQ号码:</TD><TD width="80%"><input class="input" type="text" name="qq" size="30" value="<%Response.Write(rs(6))%>"></TD>
</tr>
<tr>
<td width="20%" align="right">后台管理地址:</TD><TD width="80%"><input class="input" type="text" name="master" size="40" value="<%Response.Write(rs(27))%>"></TD>
</tr>
<tr>
<td width="20%" align="right">过滤字符:</TD><TD width="80%"><input class="input" type="text" name="mfilter" size="60" value="<%Response.Write(rs(10))%>"></TD>
</tr>
<tr>
<td width="20%" align="right">菜单背景颜色:</TD><TD width="80%"><input class="input" type="text" name="title" size="30" value="<%Response.Write(rs(12))%>"></TD>
</tr>
<tr>
<td width="20%" align="right">帖子循环颜色:</TD><TD width="80%"><input class="input" type="text" name="body" size="30" value="<%Response.Write(rs(13))%>"></TD>
</tr>
<tr>
<td width="20%" align="right">字体颜色:</TD><TD width="80%"><input class="input" type="text" name="font" size="30" value="<%Response.Write(rs(14))%>"></TD>
</tr>
<tr>
<td width="20%" align="right">首页导航菜单:</TD><TD width="80%"><TEXTAREA class=input name="meun" rows="8" cols=60"><%Response.Write(rs(11))%></TEXTAREA></TD>
</tr>
<tr>
<td width="100%" height="20" align=center colspan="2"></td>
</tr>
<tr>
<td width="20%" align="right">网站开启/关闭:</TD><TD width="80%">
<SELECT name="off" size="1" class=input>
<OPTION value="0" <% if rs("SystemOff")="0" then response.Write("selected") end if%>>开放</OPTION>
<OPTION value="1" <% if rs("SystemOff")="1" then response.Write("selected") end if%>>关闭</OPTION>
</SELECT>
</TD>
</tr>
<tr>
<td width="20%" align="right">网站关闭提示:</TD><TD width="80%"><input class="input" type="text" name="txt" size="60" value="<%Response.Write(rs(18))%>"></TD>
</tr>
<tr>
<td width="100%" height="20" align=center colspan="2"></td>
</tr>
<tr>
<td width="20%" align="right">开启/关闭防刷新功能:</TD><TD width="80%">
<SELECT name="refresh" size="1" class=input>
<OPTION value="0" <% if rs("SystemRefresh")="0" then response.Write("selected") end if%>>停用</OPTION>
<OPTION value="1" <% if rs("SystemRefresh")="1" then response.Write("selected") end if%>>启用</OPTION>
</SELECT>
</TD>
</tr>
<tr>
<td width="20%" align="right">防刷新间隔时间(以秒为单位):</TD><TD width="80%"><input class="input" type="text" name="refreshtime" size="10" value="<%Response.Write(rs(16))%>"></TD>
</tr>
<tr>
<td width="100%" height="20" align=center colspan="2"></td>
</tr>
<tr>
<td width="20%" align="right">会员创建贴吧:</TD><TD width="80%">
<SELECT name="mnew" size="1" class=input>
<OPTION value="0" <% if rs("SystemNew")="0" then response.Write("selected") end if%>>停用</OPTION>
<OPTION value="1" <% if rs("SystemNew")="1" then response.Write("selected") end if%>>启用</OPTION>
</SELECT> *注:开启该功能后非注册会员不能创建新帖吧...
</TD>
</tr>
<tr>
<td width="20%" align="right">会员发表/回复帖子:</TD><TD width="80%">
<SELECT name="vip" size="1" class=input>
<OPTION value="0" <% if rs("SystemVip")="0" then response.Write("selected") end if%>>停用</OPTION>
<OPTION value="1" <% if rs("SystemVip")="1" then response.Write("selected") end if%>>启用</OPTION>
</SELECT> *注:开启该功能后非注册会员不能发表新帖和回复帖子...
</TD>
</tr>
<tr>
<td width="20%" align="right">UBB编辑功能:</TD><TD width="80%">
<SELECT name="ubb" size="1" class=input>
<OPTION value="0" <% if rs("SystemUbb")="0" then response.Write("selected") end if%>>启用</OPTION>
<OPTION value="1" <% if rs("SystemUbb")="1" then response.Write("selected") end if%>>停用</OPTION>
</SELECT>
</TD>
</tr>
<tr>
<td width="100%" height="20" align=center colspan="2"></td>
</tr>
<tr>
<td width="20%" align="right">图片上传功能:</TD><TD width="80%">
<SELECT name="up" size="1" class=input>
<OPTION value="0" <% if rs("SystemUp")="0" then response.Write("selected") end if%>>启用</OPTION>
<OPTION value="1" <% if rs("SystemUp")="1" then response.Write("selected") end if%>>停用</OPTION>
</SELECT>
</TD>
</tr>
<tr>
<td width="20%" align="right">上传图片水印功能:</TD><TD width="80%">
<SELECT name="copy" size="1" class=input>
<OPTION value="0" <% if rs("SystemCopy")="0" then response.Write("selected") end if%>>启用</OPTION>
<OPTION value="1" <% if rs("SystemCopy")="1" then response.Write("selected") end if%>>停用</OPTION>
</SELECT>
</TD>
</tr>
<tr>
<td width="20%" align="right">上传图片水印内容:</TD><TD width="80%"><input class="input" type="text" name="copytxt" size="40" value="<%Response.Write(rs(36))%>"></TD>
</tr>
<tr>
<td width="100%" height="20" align=center colspan="2"></td>
</tr>
<tr>
<td width="20%" align="right">随帖广告功能:</TD><TD width="80%">
<SELECT name="ad" size="1" class=input>
<OPTION value="0" <% if rs("SystemAd")="0" then response.Write("selected") end if%>>启用</OPTION>
<OPTION value="1" <% if rs("SystemAd")="1" then response.Write("selected") end if%>>停用</OPTION>
</SELECT>
</TD>
</tr>
<tr>
<td width="100%" height="20" align=center colspan="2"></td>
</tr>
<tr>
<td width="20%" align="right">在线邮件发送功能:</TD><TD width="80%">
<SELECT name="smtp" size="1" class=input>
<OPTION value="0" <% if rs("SystemSmtp")="0" then response.Write("selected") end if%>>启用</OPTION>
<OPTION value="1" <% if rs("SystemSmtp")="1" then response.Write("selected") end if%>>停用</OPTION>
</SELECT>
</TD>
</tr>
<tr>
<td width="20%" align="right">在线发送邮箱地址:</TD><TD width="80%"><input class="input" type="text" name="mailaddress" size="40" value="<%Response.Write(rs(32))%>"> *如:onlinebox@citiz.net</TD>
</tr>
<tr>
<td width="20%" align="right">发送邮箱SMTP地址:</TD><TD width="80%"><input class="input" type="text" name="smtpaddress" size="40" value="<%Response.Write(rs(33))%>"> *如:SMTP.citiz.net</TD>
</tr>
<tr>
<td width="20%" align="right">发送邮箱登陆帐号:</TD><TD width="80%"><input class="input" type="text" name="mailname" size="40" value="<%Response.Write(rs(34))%>"> *如:onlinebox</TD>
</tr>
<tr>
<td width="20%" align="right">发送邮箱登陆密码:</TD><TD width="80%"><input class="input" type="password" name="mailpass" size="40" value="<%Response.Write(rs(35))%>"> *如:onlinebox</TD>
</tr>
<tr>
<td width="100%" height="20" align=center colspan="2"></td>
</tr>
<tr>
<td width="20%" align="right">定义热门帖子回复数目:</TD><TD width="80%"><input class="input" type="text" name="mnot" size="10" value="<%Response.Write(rs(21))%>"> *注:热门帖以您定义的回复数目自动设为热门帖子...</TD>
</tr>
<tr>
<td width="20%" align="right">定义会员积分上传数目:</TD><TD width="80%"><input class="input" type="text" name="integral" size="10" value="<%Response.Write(rs(26))%>"> *注:会员必须达到您设置的积分数目才能使用上传功能...</TD>
</tr>
<tr>
<td width="100%" height="20" align=center colspan="2"></td>
</tr>
<tr>
<td width="20%" align="right">网站统计代码:</TD><TD width="80%"><TEXTAREA class=input name="mcount" rows="8" cols=60"><%Response.Write(rs(28))%></TEXTAREA></TD>
</tr>
<tr>
<td width="100%" height="20" align=center colspan="2"></td>
</tr>
<tr>
<td width="20%" height="25" align="right"></td>
<td width="80%"><input class=input1 type="submit" value="编辑系统初始设置" name="Submit"> <input class=input1 type="reset" value="擦除重填" name="Submit2"></td>
</tr>
</table>
</form>
<%
rs.close
Set rs=NOTHING
conn.Close
set conn=nothing
%>
</center>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -