📄 admin_user.asp

📁 好用的贴吧源代码
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#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 "all"
	Call admin_all()
	Case "toppost"
	Call admin_toppost()
	Case "endpost"
	Call admin_endpost()
	Case "toprepost"
	Call admin_toprepost()
	Case "endrepost"
	Call admin_endrepost()
	Case "deladmin"
	Call admin_deladmin()
	Case "admin"
	Call admin()
	Case "adminok"
	Call adminok()
	Case "useradmin"
	Call useradmin()
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>
<!--#include file="admin_user_table.Asp"-->
<br>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
  <tr > 
    <td width="99%"  align="center" class="imgbg"><strong class="size">会员管理</strong></td>
  </tr>
<tr >
<td >
<table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
	 <td width="14%" class="bj">会员名称</td>
          <td width="17%" class="bj">注册日期</td>
          <td width="17%" class="bj">最后登陆日期</td>
          <td width="16%" class="bj">最后登陆IP</td>
	  <td width="10%" class="bj">是否吧主</td>
          <td width="12%" class="bj">管理员操作</td>
          <td width="14%" class="bj">操作</td>
          <%
dim a
set rs= server.createobject("adodb.recordset") 
sql= "select * from [user] order by [id] desc "
rs.open sql,conn,1
do while not rs.eof 
a=a+1
%>
 <tr>
 <td ><%=a%>.</font><%=rs("username")%></td>
<td ><%=rs("zhucedate")%></td>
<td ><%=rs("lastdate")%></td>
 <td ><%=rs("userip")%></td>
<td>
<%
If rs("postadmin") = "0" Then
Response.Write"否"
Else
Response.Write "<a href=""../SearchPost.Asp?searchname="&Server.URLEncode(rs("postadmin"))&""">"&rs("postadmin")&"吧</a>"
End If
%></td>
<td><%
If rs("adminuser") = "1" Then
Response.Write"<a href=""admin_user.Asp?action=useradmin&id="&rs("id")&"&menu=0&username="&server.URLEncode(rs("username"))&""">撤消管理员</a>"
Else
Response.Write "<a href=""admin_user.Asp?action=useradmin&id="&rs("id")&"&menu=1&username="&server.URLEncode(rs("username"))&""">提升管理员</a>"
End If
%></td>
<td >
[<a href="admin_user.Asp?action=admin&id=<%=rs("id")%>">信息</a>] [<a onClick="return confirm('确定删除该会员？')"  href="admin_user.Asp?action=deladmin&id=<%=Server.URLEncode(rs("username"))%>">删除</a>]</td>
 </tr>
<%
rs.movenext
loop
%></table>
</td>
</tr>
</table>
</body>
</html>
<%
End Sub
'├========================================┤
'‖             www.fywen.com              ‖
'‖       ╔━═━═━═━═━═━╗       ‖
'‖       ┃   枫叶在线版权所有   ┃       ‖
'‖       ╚━═━═━═━═━═━╝       ‖
'‖         论坛：www.fywen.com/bbs        ‖
'├========================================┤
Sub admin_all()
%>
<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>
<!--#include file="admin_user_table.Asp"-->
<br>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
  <tr > 
    <td width="99%"  align="center" class="imgbg"><strong class="size">会员管理</strong></td>
    </tr>
<tr >
<td >
<table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
	 <td width="14%" class="bj">会员名称</td>
          <td width="17%" class="bj">注册日期</td>
          <td width="17%" class="bj">最后登陆日期</td>
          <td width="16%" class="bj">最后登陆IP</td>
	  <td width="20%" class="bj">是否吧主</td>
          <td width="16%" class="bj">操作</td>
          <%
dim a
set rs= server.createobject("adodb.recordset") 
sql= "select * from [user] where [adminuser]='1' order by [post] desc "
rs.open sql,conn,1
do while not rs.eof 
a=a+1
%>
 <tr>
 <td ><%=a%>.</font><%=rs("username")%></td>
<td ><%=rs("zhucedate")%></td>
<td  ><%=rs("lastdate")%></td>
 <td ><%=rs("userip")%></td>
<td>
<%
If rs("postadmin") = "0" Then
Response.Write"否"
Else
Response.Write "<a href=""../SearchPost.Asp?searchname="&Server.URLEncode(rs("postadmin"))&""">"&rs("postadmin")&"吧</a>"
End If
%></td>
<td >
<a href="admin_user.Asp?action=admin&id=<%=rs("id")%>">信息</a> <a onClick="return confirm('确定删除该会员？')"  href="admin_user.Asp?action=deladmin&id=<%=Server.URLEncode(rs("username"))%>">删除</a></td>
 </tr>
<%
rs.movenext
loop
%></table>
</td>
</tr>
</table>
</body>
</html>
<%
End Sub
'├========================================┤
'‖             www.fywen.com              ‖
'‖       ╔━═━═━═━═━═━╗       ‖
'‖       ┃   枫叶在线版权所有   ┃       ‖
'‖       ╚━═━═━═━═━═━╝       ‖
'‖         论坛：www.fywen.com/bbs        ‖
'├========================================┤
Sub admin_toppost()
%>
<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>
<!--#include file="admin_user_table.Asp"-->
<br>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
  <tr > 
    <td width="99%"  align="center" class="imgbg"><strong class="size">会员管理</strong></td>
    </tr>
<tr >
<td >
<table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
	 <td width="14%" class="bj">会员名称</td>
          <td width="17%" class="bj">注册日期</td>
          <td width="17%" class="bj">最后登陆日期</td>
          <td width="16%" class="bj">最后登陆IP</td>
	  <td width="20%" class="bj">是否吧主</td>
          <td width="16%" class="bj">操作</td>
          <%
dim a
set rs= server.createobject("adodb.recordset") 
sql= "select * from [user] order by [post] desc "
rs.open sql,conn,1
do while not rs.eof 
a=a+1
%>
 <tr>
 <td ><%=a%>.</font><%=rs("username")%></td>
<td ><%=rs("zhucedate")%></td>
<td  ><%=rs("lastdate")%></td>
 <td ><%=rs("userip")%></td>
<td>
<%
If rs("postadmin") = "0" Then
Response.Write"否"
Else
Response.Write "<a href=""../SearchPost.Asp?searchname="&Server.URLEncode(rs("postadmin"))&""">"&rs("postadmin")&"吧</a>"
End If
%></td>
<td >
<a href="admin_user.Asp?action=admin&id=<%=rs("id")%>">信息</a> <a onClick="return confirm('确定删除该会员？')"  href="admin_user.Asp?action=deladmin&id=<%=Server.URLEncode(rs("username"))%>">删除</a></td>
 </tr>
<%
rs.movenext
If a>=100 Then
Exit Do
End If
loop
%></table>
</td>
</tr>
</table>
</body>
</html>
<%
End Sub
'├========================================┤
'‖             www.fywen.com              ‖
'‖       ╔━═━═━═━═━═━╗       ‖
'‖       ┃   枫叶在线版权所有   ┃       ‖
'‖       ╚━═━═━═━═━═━╝       ‖
'‖         论坛：www.fywen.com/bbs        ‖
'├========================================┤
Sub admin_endpost()
%>
<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>
<!--#include file="admin_user_table.Asp"-->
<br>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
  <tr > 
    <td width="99%"  align="center" class="imgbg"><strong class="size">会员管理</strong></td>
    </tr>
<tr >
<td >
<table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
	 <td width="14%" class="bj">会员名称</td>
          <td width="17%" class="bj">注册日期</td>
          <td width="17%" class="bj">最后登陆日期</td>
          <td width="16%" class="bj">最后登陆IP</td>
	  <td width="20%" class="bj">是否吧主</td>
          <td width="16%" class="bj">操作</td>
          <%
dim a
set rs= server.createobject("adodb.recordset") 
sql= "select * from [user] order by [post] asc "
rs.open sql,conn,1
do while not rs.eof 
a=a+1
%>
 <tr>
 <td ><%=a%>.</font><%=rs("username")%></td>
<td ><%=rs("zhucedate")%></td>
<td  ><%=rs("lastdate")%></td>
 <td ><%=rs("userip")%></td>
<td>
<%
If rs("postadmin") = "0" Then
Response.Write"否"
Else
Response.Write "<a href=""../SearchPost.Asp?searchname="&Server.URLEncode(rs("postadmin"))&""">"&rs("postadmin")&"吧</a>"
End If
%></td>
<td >
<a href="admin_user.Asp?action=admin&id=<%=rs("id")%>">信息</a> <a onClick="return confirm('确定删除该会员？')"  href="admin_user.Asp?action=deladmin&id=<%=Server.URLEncode(rs("username"))%>">删除</a></td>
 </tr>
<%
rs.movenext
If a>=100 Then
Exit Do
End If
loop
%></table>
</td>
</tr>
</table>
</body>
</html>
<%
End Sub
'├========================================┤
'‖             www.fywen.com              ‖
'‖       ╔━═━═━═━═━═━╗       ‖
'‖       ┃   枫叶在线版权所有   ┃       ‖
'‖       ╚━═━═━═━═━═━╝       ‖
'‖         论坛：www.fywen.com/bbs        ‖
'├========================================┤
Sub admin_toprepost()
%>
<HTML>
<HEAD>
12 下一页
💿 文件大小 351 K
👤 上传用户 evenxyz
📂 所属分类电子书籍
🏷️ 相关标签

#源代码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -