📄 config.asp
字号:
<!--#include file="ked.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="../md5.asp"-->
<%
menu=request("menu")
ad=request("ad")
user=Request.Cookies("aduser")
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>设置中心</title>
<link rel="stylesheet" href="admin.css" type="text/css">
<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
.style3 {color: #FFFFFF}
-->
</style>
</head>
<body>
<%if menu="config" then
Set rsj = Server.CreateObject("ADODB.Recordset")
sql="select * from [admin] where name='"&user&"'"
rsj.open sql,conn,1,1
if rsj.eof then
Response.Write("<div align=center><br><br><br><br><br><br><br>·不存在该用户或者该用户已经是管理员<br><br><a href='javascript:history.go(-1)'><img border=0 src=menu/face12.gif align=absmiddle><font color=#000000>返回重新填写!</font></a></div>")
else
fen=rsj("fen")
lei=split(fen,"|")
if lei(0)="0" then
Response.Write("<div align=center><img src=menu/face12.gif>贴心提示:“1.可能是您的后台等级不适和该操作;因此系统已自动将其保留,望以后多努力哦!”</div>")
response.End
end if
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [config]"
rs.open sql,conn,1,3
if ad="save" then
rs("webname")=request("webname")
rs("weburl")=request("weburl")
rs("webopen")=request("webopen")
rs("webreg2")=request("webreg2")
rs("webreg3")=request("webreg3")
rs.update
rs.close
response.write "<script>alert('修改成功');location.href='?menu=config'</script>"
end if
%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" class="a2">
<form name="form1" method="post" action="?menu=config&ad=save">
<tr>
<td colspan="2" class="a1"><div align="center" class="STYLE1">系统配置</div></td>
</tr>
<tr>
<td width="17%" class="a4">网站名称：</td>
<td width="83%" class="a4"><input name="webname" type="text" id="webname" value="<%=rs("webname")%>" size="40"></td>
</tr>
<tr>
<td class="a4">网站URL：</td>
<td width="83%" class="a4"><input name="weburl" type="text" id="weburl" value="<%=rs("weburl")%>" size="40"></td>
</tr>
<tr>
<td class="a4">网站开关：</td>
<td width="83%" class="a4"><input name="webopen" type="radio" value="yes" <%if rs("webopen")="yes" then response.write "checked"%> />
打开
<input type="radio" name="webopen" value="no" <%if rs("webopen")="no" then response.write "checked"%> />
关闭</td>
</tr>
<tr>
<td class="a4">新用户注册：</td>
<td width="83%" class="a4"><input name="webreg2" type="radio" value="yes" <%if rs("webreg2")="yes" then response.write "checked"%> />
打开
<input type="radio" name="webreg2" value="no" <%if rs("webreg2")="no" then response.write "checked"%> />
关闭</td>
</tr>
<tr>
<td class="a4">用户审核：</td>
<td width="83%" class="a4"><input name="webreg3" type="radio" value="yes" <%if rs("webreg3")="yes" then response.write "checked"%> />
打开
<input type="radio" name="webreg3" value="no" <%if rs("webreg3")="no" then response.write "checked"%> />
关闭</td>
</tr>
<tr>
<td colspan="2" class="a4"><div align="center">
<input type="submit" name="Submit" value="提交">
</div></td>
</tr></form>
</table>
<%end if%>
<%if menu="reg" then
Set rsj = Server.CreateObject("ADODB.Recordset")
sql="select * from [admin] where name='"&user&"'"
rsj.open sql,conn,1,1
if rsj.eof then
Response.Write("<div align=center><br><br><br><br><br><br><br>·不存在该用户或者该用户已经是管理员<br><br><a href='javascript:history.go(-1)'><img border=0 src=menu/face12.gif align=absmiddle><font color=#000000>返回重新填写!</font></a></div>")
else
fen=rsj("fen")
lei=split(fen,"|")
if lei(1)="0" then
Response.Write("<div align=center><img src=menu/face12.gif>贴心提示:“2.可能是您的后台等级不适和该操作;因此系统已自动将其保留,望以后多努力哦!”</div>")
response.End
end if
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [config]"
rs.open sql,conn,1,3
if ad="save" then
rs("webreg")=request("webreg")
rs.update
rs.close
response.write "<script>alert('修改成功');location.href='?menu=reg'</script>"
end if
%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" class="a2">
<form name="form1" method="post" action="?menu=reg&ad=save">
<tr>
<td colspan="2" class="a1"><div align="center" class="STYLE1">注册协议</div></td>
</tr>
<tr>
<td width="17%" class="a4">协议内容：</td>
<td width="83%" class="a4"><textarea name="webreg" cols="100" rows="30" id="webreg"><%=rs("webreg")%></textarea></td>
</tr>
<tr>
<td colspan="2" class="a4"><div align="center">
<input type="submit" name="Submit2" value="提交">
</div></td>
</tr>
</form>
</table>
<%end if%>
<%if menu="admin" then
Set rsj = Server.CreateObject("ADODB.Recordset")
sql="select * from [admin] where name='"&user&"'"
rsj.open sql,conn,1,1
if rsj.eof then
Response.Write("<div align=center><br><br><br><br><br><br><br>·不存在该用户或者该用户已经是管理员<br><br><a href='javascript:history.go(-1)'><img border=0 src=menu/face12.gif align=absmiddle><font color=#000000>返回重新填写!</font></a></div>")
else
fen=rsj("fen")
lei=split(fen,"|")
if lei(2)="0" then
Response.Write("<div align=center><img src=menu/face12.gif>贴心提示:“3.可能是您的后台等级不适和该操作;因此系统已自动将其保留,望以后多努力哦!”</div>")
response.End
end if
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [admin]"
rs.open sql,conn,1,3
if ad="save" then
rs.addnew
rs("name")=request("name")
rs("pass")=md5((request("pass")),32)
rs("fen")="0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0"
rs("bei")=request("bei")
rs.update
rs.close
response.write "<script>alert('管理员添加成功');location.href='?menu=admin'</script>"
end if
%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" class="a2">
<form name="form1" method="post" action="?menu=admin&ad=save">
<tr>
<td colspan="2" class="a1"><div align="center" class="STYLE1">添加管理员</div></td>
</tr>
<tr>
<td width="17%" class="a4">管理员帐号：</td>
<td width="83%" class="a4"><input name="name" type="text" id="name" size="30"></td>
</tr>
<tr>
<td class="a4">管理密码：</td>
<td width="83%" class="a4"><input name="pass" type="password" id="pass" size="30"></td>
</tr>
<tr>
<td class="a4">权限说明：</td>
<td width="83%" class="a4"><textarea name="bei" cols="40" rows="5" id="bei"></textarea></td>
</tr>
<tr>
<td colspan="2" class="a4"><div align="center">
<input type="submit" name="Submit22" value="提交">
</div></td>
</tr>
</form>
</table>
<%end if%>
<%if menu="adminlist" then
Set rsj = Server.CreateObject("ADODB.Recordset")
sql="select * from [admin] where name='"&user&"'"
rsj.open sql,conn,1,1
if rsj.eof then
Response.Write("<div align=center><br><br><br><br><br><br><br>·不存在该用户或者该用户已经是管理员<br><br><a href='javascript:history.go(-1)'><img border=0 src=menu/face12.gif align=absmiddle><font color=#000000>返回重新填写!</font></a></div>")
else
fen=rsj("fen")
lei=split(fen,"|")
if lei(3)="0" then
Response.Write("<div align=center><img src=menu/face12.gif>贴心提示:“4.可能是您的后台等级不适和该操作;因此系统已自动将其保留,望以后多努力哦!”</div>")
response.End
end if
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [admin]"
rs.open sql,conn,1,3
if ad="del" then
id=request("id")
set rs=server.createobject("adodb.recordset")
sql="delete from admin where id="&id
rs.open sql,conn,1,3
response.Redirect("?menu=adminlist")
end if
%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" class="a2">
<tr>
<td colspan="4" class="a1"><div align="center" class="STYLE1">管理员列表</div></td>
</tr>
<tr>
<td width="24%" class="a4">管理员</td>
<td width="35%" class="a4">权限级别</td>
<td width="22%" class="a4">管理等级</td>
<td width="19%" class="a4">删除</td>
</tr>
<%do while not rs.eof%>
<tr>
<td class="a4">
<a href="?menu=admined&name=<%=rs("name")%>" target="main"><%=rs("name")%></a>
</td>
<td class="a4"><%=rs("dj")%></td>
<td class="a4"><%=rs("bei")%></td>
<td class="a4"><a href='?menu=adminlist&ad=del&id=<%=rs("id")%>' onclick='javascript: return confirm("你确定要删除吗? ");'>点此删除该管理员</a></td>
</tr>
<%rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
<%end if%>
<%if menu="admined" then
name=request("name")
set rs=server.createobject("adodb.recordset")
sql="select * from [admin] where name='"&name&"'"
rs.open sql,conn,1,3
if ad="save" then
rs("name")=request("name")
if request("pass")<>"" then
rs("pass")=md5((request("pass")),32)
end if
rs("bei")=request("bei")
rs("dj")=request("dj")
rs.update
rs.close
response.write "<script>alert('管理员修改成功');location.href='?menu=adminlist'</script>"
end if
%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" class="a2">
<form name="form1" method="post" action="?menu=admined&ad=save">
<tr>
<td colspan="2" class="a1"><div align="center" class="STYLE1">修改管理员信息</div></td>
</tr>
<tr>
<td width="17%" class="a4">管理员帐号：</td>
<td width="83%" class="a4"><input name="name" type="text" id="name" value="<%=rs("name")%>" size="30"></td>
</tr>
<tr>
<td class="a4">管理密码：</td>
<td width="83%" class="a4"><input name="pass" type="password" id="pass" size="30"></td>
</tr>
<tr>
<td class="a4">权限说明：</td>
<td width="83%" class="a4"><input name="bei" type="text" id="bei" value="<%=rs("bei")%>" size="40"></td>
</tr>
<tr>
<td class="a4">权限等级：</td>
<td width="83%" class="a4"><input name="dj" type="text" id="dj" value="<%=rs("dj")%>" size="40"></td>
</tr>
<tr>
<td colspan="2" class="a4"><div align="center">
<input type="submit" name="Submit222" value="提交">
</div></td>
</tr>
</form>
</table>
<%end if%>
<%if menu="adlog" then
Set rsj = Server.CreateObject("ADODB.Recordset")
sql="select * from [admin] where name='"&user&"'"
rsj.open sql,conn,1,1
if rsj.eof then
Response.Write("<div align=center><br><br><br><br><br><br><br>·不存在该用户或者该用户已经是管理员<br><br><a href='javascript:history.go(-1)'><img border=0 src=menu/face12.gif align=absmiddle><font color=#000000>返回重新填写!</font></a></div>")
else
fen=rsj("fen")
lei=split(fen,"|")
if lei(5)="0" then
Response.Write("<div align=center><img src=menu/face12.gif>贴心提示:“6.可能是您的后台等级不适和该操作;因此系统已自动将其保留,望以后多努力哦!”</div>")
response.End
end if
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [adlog]"
rs.open sql,conn,1,3
if ad="del" then
set rs=server.createobject("adodb.recordset")
sql="delete from adlog"
rs.open sql,conn,1,3
response.Redirect("?menu=adlog")
end if
%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" class="a2">
<tr>
<td colspan="3" class="a1"><div align="center" class="STYLE1">管理员登陆信息</div></td>
</tr>
<tr>
<td width="14%" class="a4"><div align="center">管理员</div></td>
<td width="43%" class="a4"><div align="center">IP地址</div></td>
<td width="43%" class="a4"><div align="center">登陆时间</div></td>
</tr>
<%do while not rs.eof%>
<tr>
<td class="a4"><div align="center"><%=rs("name")%>
</div></td>
<td class="a4"><div align="center"><%=rs("ip")%></div></td>
<td class="a4"><div align="center"><%=rs("time")%></div></td>
</tr>
<%rs.movenext
loop
rs.close
set rs=nothing
%>
<tr>
<td colspan="3" class="a4"><div align="center"><a href="?menu=adlog&ad=del">清空数据</a></div></td>
</tr>
</table>
<%end if%>
<%if menu="log" then
Set rsj = Server.CreateObject("ADODB.Recordset")
sql="select * from [admin] where name='"&user&"'"
rsj.open sql,conn,1,1
if rsj.eof then
Response.Write("<div align=center><br><br><br><br><br><br><br>·不存在该用户或者该用户已经是管理员<br><br><a href='javascript:history.go(-1)'><img border=0 src=menu/face12.gif align=absmiddle><font color=#000000>返回重新填写!</font></a></div>")
else
fen=rsj("fen")
lei=split(fen,"|")
if lei(6)="0" then
Response.Write("<div align=center><img src=menu/face12.gif>贴心提示:“5.可能是您的后台等级不适和该操作;因此系统已自动将其保留,望以后多努力哦!”</div>")
response.End
end if
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [log]"
rs.open sql,conn,1,3
if ad="del" then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -