?? user_manage.asp
字號:
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="background.asp"-->
<%
if session("admin")<>1 then response.Redirect "default.asp"
if (request.Form<>"") and (request.Form("search")=0) then
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * FROM register"
rs.open SQL,Conn,3,3
select case request("act")
case 1
do while not rs.eof
n=trim(cstr(rs("id")))
if request.form(n)="on" then
sql= "update register set level1='網(wǎng)友' where id="&rs("id")
conn.execute(sql)
end if
rs.movenext
loop
info="成功設(shè)成網(wǎng)友！"
case 2
do while not rs.eof
n=trim(cstr(rs("id")))
if request.form(n)="on" then
sql= "update register set level1='嘉賓' where id="&rs("id")
conn.execute(sql)
end if
rs.movenext
loop
info="成功設(shè)成嘉賓！"
case 3
do while not rs.eof
n=trim(cstr(rs("id")))
if request.form(n)="on" then
sql= "update register set level1='管理員' where id="&rs("id")
conn.execute(sql)
end if
rs.movenext
loop
info="成功設(shè)成管理員！"
case 4
do while not rs.eof
n=trim(cstr(rs("id")))
if request.form(n)="on" then
sql="delete from register where id="&rs("id")
conn.execute(sql)
end if
rs.movenext
loop
info="用戶刪除成功！"
case 5
do while not rs.eof
n=trim(cstr(rs("id")))
if request.form(n)="on" then
sql= "update register set level1='版主' where id="&rs("id")
conn.execute(sql)
end if
rs.movenext
loop
info="成功設(shè)成版主！"
end select
response.Redirect "post_ok.asp?info="&info
end if
Set rs=server.createobject("ADODB.RECORDSET")
if request.Form("text")<>"" then
sql="SELECT * FROM register where username='"&request.Form("text")&"' order by count1 desc,id"
else
sql="SELECT * FROM register order by count1 desc,id"
end if
rs.open sql,conn,3,3
Set rs1=server.createobject("ADODB.RECORDSET")
rs1.open "Select * From option1",Conn,3,3
rs.pagesize=rs1("row2")
rs1.close
PageNo=REQUEST("PageNo")
if PageNo="" or PageNo=0 then PageNo=1
RS.AbsolutePage=PageNo
TSum=rs.pagecount
RowCount=rs.PageSize
PageNo=PageNo+1
PageNo=PageNo-1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用戶管理</title>
<link href="1.css" rel="stylesheet" type="text/css">
</head>
<body>
<table border=0 width=100% align=center>
<tr>
<td width="100%" align=center>
<!--#INCLUDE FILE="top.asp"--> </tr>
<tr>
<td align=center><hr size=1 width=100% noshade color=#C0C0C0></tr>
</table></td>
<table border=0 width=100% align=center>
<td width="17%" align=lift> <font color=#000000><font color=#000000><font color=#000000><font color=#000000>共有注冊人員：<%=rs.recordcount%>名</font>
</font></font></font></td>
<td width="83%" align=right>
<!--#INCLUDE FILE="link.asp"--> </td>
</table>
<HR SIZE=1 WIDTH=100% NOSHADE COLOR=#C0C0C0>
<form action="" method="post" name="form" id="form">
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#0098c8" >
<tr class="table003">
<td bordercolorlight="#000000" bordercolordark="#C0C0C0"><div align="center"><b>用戶名</b></div></td>
<td width="228" align="center" bordercolorlight="#000000" bordercolordark="#C0C0C0"><b>電子郵件</b></td>
<td width="258" align="center" bordercolorlight="#000000" bordercolordark="#C0C0C0"><b>個人主頁</b></td>
<td width="65" align="center" bordercolorlight="#000000" bordercolordark="#C0C0C0"><strong>QQ</strong></td>
<td width="79" align="center" bordercolorlight="#000000" bordercolordark="#C0C0C0"><b>頭銜</b></td>
<td width="70" align="center" bordercolorlight="#000000" bordercolordark="#C0C0C0"><b>發(fā)言數(shù)</b></td>
<td width="44" align="center" bordercolorlight="#000000" bordercolordark="#C0C0C0"><strong>修改</strong></td>
<td width="42" align=center bordercolorlight="#000000" bordercolordark="#C0C0C0"><b>操作</b> </td>
</tr>
<% DO WHILE NOT rs.EOF AND RowCount>0%>
<tr class="table001">
<td width="114" height="28" onmouseover="this.className='table002'" onmouseout="this.className='table001'">
<div align="center"><font color=#000000><%=rs("username")%></font></div></td>
<td align="center"><font color=#000000><a href="mailto:<%=rs("mail")%>"><%=rs("mail")%></a></font></td>
<td align="center"><font color=#000000><a href="<%=rs("homepage")%>" target="_blank"><%=rs("homepage")%></a></font></td>
<td align="center"><font color=#000000><a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rs("qq")%>" target="_blank"><%=rs("qq")%></a></font></td>
<td align="center"><font color=#000000><%=rs("level1")%></font></td>
<td align="center"><font color=#000000><%=rs("count1")%></font></td>
<td align="center"><font color=#000000><a href="user_manage_edit.asp?id=<%=rs("id")%>">修改</a></font></td>
<td align="center" ><input name="<%=rs("id")%>" type="checkbox" id="<%=rs("id")%>3" value="on"></td>
</tr>
<%
rs.MoveNext
RowCount = RowCount - 1
Loop%>
</table>
<TABLE width=100% height="5" border=0 align=center cellPadding=3 cellSpacing=0>
<TBODY>
<TR>
<TD width="70%" style="LETTER-SPACING: 1px">第 <font color="#FF0000"><%=PageNo%></font>
頁/共 <font color="#FF0000"><%=rs.pagecount%></font> 頁</TD>
<TD width="30%" align=middle style="LETTER-SPACING: 1px"><div align="right">
<%
if TSum>1 Then
If PageNo=TSum or PageNo<>1 Then
PrwePage=PageNo-1
Response.Write "<A HREF=user_manage.asp?Pageno=1"&">第一頁</A> "
Response.Write "<A HREF=user_manage.asp?Pageno="&PrwePage&">上一頁</A> "
End If
If pageno=1 or TSum>PageNo Then
NextPage=PageNo+1
Response.Write "<A HREF=user_manage.asp?PageNo="&NextPage&">下一頁</A> "
Response.Write "<A HREF=user_manage.asp?Pageno="&rs.PageCount&">末一頁</A> "
End If
End If
%>
</div></TD>
</TR>
<TR>
<TD colspan="2" style="LETTER-SPACING: 1px"><div align="right"><a href=### onclick=checkAll()>
<input name="search" type="hidden" id="search" value="0">
全選</a>
<a href=### onclick=checkNone() >全不選</a> <a href=### onclick=checkRev() >反選</a>
<select name=act class=input2>
<option value="1" selected>設(shè)為網(wǎng)友</option>
<option value="2">設(shè)為嘉賓</option>
<option value="5">設(shè)為版主</option>
<option value="3">設(shè)為管理員</option>
<option value="4">刪除該用戶</option>
</select>
<input name="goto" type=submit class=input2 id="goto2" value="確定">
</div></TD>
</TR>
</TBODY>
</TABLE>
</form>
<table border=0 width=100% align=center>
<tr>
<td width="100%">
<form name="form" method="post" action="">
<div align="center">
<%
set guest=nothing
set rs = nothing%>
<IMG src="images/search.gif" width="16" height="16" align=absMiddle>搜索用戶名：
<input
class=input1 size=25 name=text>
<input name="submit" type=submit class=input2 value=" 搜 索 ">
<input name="search" type="hidden" id="search" value="1">
</div>
</form> </td>
</tr>
<tr>
<td height=12><HR SIZE=1 WIDTH=100% NOSHADE COLOR=#C0C0C0></td>
</tr>
<tr>
<td align=center>
<!--#INCLUDE FILE="bottom.asp"-->
</tr></td>
</table>
</body>
</html>
<script language="JavaScript">
function checkAll()
{
var objID;
objID=document.forms[0].elements;
for (var i=0 ;i<objID.length-2;i++)
{
objID[i].checked=true;
}
}
function checkNone()
{
var objID;
objID=document.forms[0].elements;
for (var i=0 ;i<objID.length-2;i++)
{
objID[i].checked=false;
}
}
function checkRev()
{
var objID;
objID=document.forms[0].elements;
for (var i=0 ;i<objID.length-2;i++)
{
if (objID[i].checked==true)
objID[i].checked=false;
else
objID[i].checked=true;
}
}
</script>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -