📄 admin_user.asp

📁 好用的贴吧源代码
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
<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 [posts] 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_endrepost()
%>
<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 [posts] 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_deladmin()
password=session("password")
id=request.QueryString("id")
if id=session("uesrname") then
%>
    <script language="javascript">
       alert("不得删除当前管理员！")
        document.location="javascript:history.back(-1)"
    </script>
<%
response.end
else
name=request.QueryString("id")
set rs= server.createobject("adodb.recordset")
sql="delete from user where username='"&name&"'"
rs.Open sql,conn,3
%>
    <script language="javascript">
       alert("会员删除成功！")
        document.location="admin_user.asp"
    </script>
<%
end if
End Sub
'├========================================┤
'‖             www.fywen.com              ‖
'‖       ╔━═━═━═━═━═━╗       ‖
'‖       ┃   枫叶在线版权所有   ┃       ‖
'‖       ╚━═━═━═━═━═━╝       ‖
'‖         论坛：www.fywen.com/bbs        ‖
'├========================================┤
Sub admin()
id =request.QueryString("id")
set rs= server.createobject("adodb.recordset") 
sql= "select * from [user] where [id]="&id
rs.open sql,conn,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>
<!--#include file="admin_user_table.Asp"-->
<br>
<form  action="admin_user.asp?action=adminok&id=<%=id%>" method="post">
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
  <tr > 
    <td  align="center" class="imgbg" colspan="2"><strong class="size">会员修改管理</strong></td>
    </tr>
<tr class="table_3">
<td class="bj" colspan="2">会员信息：</td>
</tr>
<tr>
  <td height="25" class="table_3" width="23%">会员名称：</td>
  <td  width="76%"><input name="username" type="text" disabled class="input" style="width:145px;" value="<%=rs("username")%>" ></td>
</tr>
<tr>
  <td height="25" class="table_3" width="23%">会员密码：</td>
  <td  width="76%">  <input name="userpwd" type="password" class="input" style="width:145px;" >
    不修改请留空</td>
</tr>
<tr>
  <td height="25" class="table_3" width="23%">会员性别：</td>
  <td  width="76%">
  <%If rs("sex")="男"Then %><input name="sex" type="radio" checked="CHECKED" value="男"  /> 男
  <input type="radio" name="sex" value="女" /> 女
  <% Else%><input name="sex" type="radio" value="男"  /> 男
  <input type="radio" name="sex" checked="CHECKED" value="女" /> 女
  <%End If%>
  </td>
</tr>
<tr>
  <td height="25" class="table_3" width="23%">会员电子邮箱：</td>
  <td  width="76%">  <input name="mail" type="text" class="input" id="mail" style="width:145px;" value="<%=rs("mail")%>" ></td>
</tr>
<tr>
  <td height="25" class="table_3" width="23%">QQ号码：</td>
  <td  width="76%">  <input name="qq" type="text" class="input" id="qq" style="width:145px;" value="<%=rs("qq")%>" ></td>
</tr>
<tr>
  <td height="25" class="table_3" width="23%">贴吧吧主：</td>
  <td  width="76%">  <input name="post" type="text" class="input" id="qq" style="width:145px;" value="<%
  If rs("postadmin")="0" Then
  response.Write("否")
  Else
  response.Write(rs("postadmin"))
  End If
  %>" > 
  如果不是吧主请不要修改</td>
</tr>
<tr>
  <td height="25" class="table_3" width="23%">相关统计</td>
  <td  width="76%">  发表帖子：<%=rs("post")%>篇 发表回复：<%=rs("posts")%>篇 是否管理员：
  <%
  If rs("adminuser")="0" Then
    response.Write("否")
	Else
    response.Write("是")
	End If
  %>
  注册日期：<%=rs("zhucedate")%> 最后登陆：<%=rs("lastdate")%> 最后登陆IP：<%=rs("userip")%></td>
</tr>
    <tr> 
	  <td height="25" class="bj" width="23%">&nbsp;</td>
      <td class="bj" height="25" width="76%"><input name="submit" type="submit" value="确定修改" class="buttion"> &nbsp;<input name="submit" type="reset" value="撤消重填" class="buttion"></td>
    </tr>
</table>
</form>
</body>
</html>
<%
End Sub
'├========================================┤
'‖             www.fywen.com              ‖
'‖       ╔━═━═━═━═━═━╗       ‖
'‖       ┃   枫叶在线版权所有   ┃       ‖
'‖       ╚━═━═━═━═━═━╝       ‖
'‖         论坛：www.fywen.com/bbs        ‖
'├========================================┤
Sub adminok()
id = request.QueryString("id")
userpwd=request.Form("userpwd")
sex=request.Form("sex")
mail=request.Form("mail")
qq=request.Form("qq")
post=request.Form("post")
If post = "否" Then
 post = "0"
End If
If userpwd=""Then
set rs= server.createobject("adodb.recordset")
 sql= "update [user] set [sex]='"&sex&"',[mail]='"&mail&"',[qq]='"&qq&"',[postadmin]='"&post&"' where [id]="&id
 rs.Open sql,conn,3
%>
    <script language="javascript">
       alert("会员资料信息修改完成")
       document.location="admin_user.Asp"
    </script>
<%
Else
userpwd = md5(userpwd)
set rs= server.createobject("adodb.recordset")
 sql= "update [user] set[userpwd]='"&userpwd&"',[sex]='"&sex&"',[mail]='"&mail&"',[qq]='"&qq&"',[postadmin]='"&post&"' where [id]="&id
 rs.Open sql,conn,3
%>
    <script language="javascript">
       alert("会员资料信息修改完成")
       document.location="admin_user.Asp"
    </script>
<%
End If
End Sub
'├========================================┤
'‖             www.fywen.com              ‖
'‖       ╔━═━═━═━═━═━╗       ‖
'‖       ┃   枫叶在线版权所有   ┃       ‖
'‖       ╚━═━═━═━═━═━╝       ‖
'‖         论坛：www.fywen.com/bbs        ‖
'├========================================┤
Sub useradmin()
username=request.QueryString("username")
id=request.QueryString("id")
menu=request.QueryString("menu")
If menu = "0" Then
if username=session("uesrname") then
%>
    <script language="javascript">
       alert("不得撤消当前管理员！")
        document.location="javascript:history.back(-1)"
    </script>
<%
response.end
else
name=request.QueryString("id")
set rs= server.createobject("adodb.recordset")
sql="update [user] set[adminuser]='0' where username='"&username&"'"
rs.Open sql,conn,3
%>
    <script language="javascript">
       alert("管理员撤消成功")
        document.location="admin_user.asp"
    </script>
<%
end if
Else
set rs= server.createobject("adodb.recordset")
sql="update [user] set[adminuser]='1' where username='"&username&"'"
rs.Open sql,conn,3
%>
    <script language="javascript">
       alert("管理员提升成功")
        document.location="admin_user.asp"
    </script>
<%
End If
End Sub
Call Fywencl()
%>
上一页 12
💿 文件大小 351 K
👤 上传用户 evenxyz
📂 所属分类电子书籍
🏷️ 相关标签

#源代码
⌨️ 快捷键说明

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