📄 admin_postuser.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/UserPs.Asp"-->
<!--#include file="../inc/pwwd.asp"-->
<%
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
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()
action = ReplaceBadWord(Request.QueryString("action"))
Select Case action
Case ""
Call admin_index()
Case "repost"
Call repost()
Case "delpost"
Call delpost()
Case "moveuser"
Call moveuser()
End Select
Sub admin_index()
%>
<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>
<body>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
<tr >
<td align="center" class="imgbg" colspan="5"><strong class="size">吧主申请管理</strong></td>
</tr>
<tr class="table_3">
<td class="bj" colspan="5">申请列表（点击贴吧名称可以查看详细内容以及申请理由）</td>
</tr>
<tr>
<td width="42%" height="25" class="table_3" >贴吧名称</td>
<td width="14%"><span class="table_3">会员名称</span></td>
<td width="10%">作者IP</td>
<td width="20%">申请日期</td>
<td width="14%">操作</td>
</tr>
<%
sql="select * from [postuser] order by [id] desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Response.Write "<tr><td colspan=""6"" height=""25""><div align=""center"">现在没有待审核内容</div></td></tr>"
End if
do while not rs.eof
%>
<tr>
<td class="table_3"><a href="admin_postuser.Asp?action=repost&id=<%=rs("id")%>"><%=rs("post")%></a></td>
<td width="14%"><%=rs("username")%></td>
<td width="10%"><%=rs("userip")%></td>
<td width="20%"><%=rs("sqdate")%></td>
<td width="14%">[<a onClick="return confirm('确定删除该审核帖子? ')" href="admin_postuser.Asp?action=delpost&id=<%=rs("id")%>">删除</a>] [<a href="admin_postuser.Asp?action=moveuser&username=<%=Server.URLEncode(rs("username"))%>&id=<%=rs("id")%>&post=<%=Server.URLEncode(rs("post"))%>">审核通过</a>]</td>
</tr>
<%
rs.movenext
Loop
%>
</table>
</body>
</html>
<%
End Sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
Sub delpost()
id=request.QueryString("id")
set rs= server.createobject("adodb.recordset")
sql="delete from [postuser] where [id]="&id
rs.Open sql,conn,3
%>
<script language="javascript">
alert("管理员审核删除完成")
document.location="admin_postuser.asp"
</script>
<%
End Sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
Sub repost()
id = request.QueryString("id")
sql="select * from [postuser] where [id]="&id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<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>
<body>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
<tr >
<td align="center" class="imgbg"><strong class="size">贴吧申请内容查看</strong></td>
</tr>
<tr class="table_3">
<td class="bj">贴吧名称：<%=rs("post")%> 姓名:<%=rs("name")%> QQ:<%=rs("qq")%> mail:<%=rs("mail")%> 申请日期：<%=rs("sqdate")%></td>
</tr>
<tr>
<td height="25" class="table_3" ><br/>申请理由:<br/><br/>
<%
Response.Write(rs("body"))
%>
</td>
</tr>
<tr>
<td height="25" class="table_3" ><div align="right">[<a href="javascript:window.history.back();">返回</a>] </div></td>
</tr>
</table>
</body>
</html>
<%
End Sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
Sub moveuser()
id=request.QueryString("id")
username=request.QueryString("username")
post=request.QueryString("post")
sql="select * from [user] where [username]='"&username&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
If rs.eof and rs.bof Then
%>
<script language="javascript">
alert("会员<%=username%>不存在")
document.location="admin_postuser.asp"
</script>
<%
Else
If rs("postadmin")<> "0" Then
%>
<script language="javascript">
alert("会员<%=username%>已经是「<%=rs("postadmin")%>」吧吧主")
document.location="admin_postuser.asp"
</script>
<%
Else
set rs= server.createobject("adodb.recordset")
sql= "update [user] set [postadmin]='"&post&"' where [username]='"&username&"'"
rs.Open sql,conn
sql="delete * from [postuser] where [id]="&id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<script language="javascript">
alert("管理员审核通过")
document.location="admin_postuser.asp"
</script>
<%
End If
End If
End Sub
Call Fywencl()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -