admin_user.asp

多用户个人主页系统(ASP)

<!--#include file="inc/CONN.asp"-->
<!--#include file="inc/Const.asp"-->
<%Dim page,orderby,sc
orderby=request("orderby")
	If orderby="" Then orderby="userid"
sc=request("sc")
	If sc="" Then sc="desc"
otherinfo="orderby="&orderby&"&sc="&sc&"&"
page		= cint(Request("page"))
	If page=0 Then page=1
if request("action")="delete" then
	if not isempty(request("UserID")) then
     	idlist=request("UserID")
     	if instr(idlist,",")>0 then
			dim idarr
			idArr=split(idlist,",")
			for  i = 0 to ubound(idarr)
 				conn.execute("delete * from [User] where UserID=" & trim(cstr(idarr(i))))
				conn.execute("delete * from [Guest] where UserID=" & trim(cstr(idarr(i))))
			next
		else
			conn.execute("delete * from [user] where UserID=" & cstr(idlist))
			conn.execute("delete * from [Guest] where UserID=" & cstr(idlist))
		end if
	end if
	response.write "<script language=javascript>alert( ""删除成功"");"&Chr(13)&"location.href=""admin_user.asp?orderby="&orderby&"&sc="&sc&"&page="&page&""";</script>"
	response.end
end if
Const PageTitle="用户管理"%>
<!--#include file="inc/admin_head.asp"-->
<script language=javascript>
function CheckAll()  {    for (var i=0;i<document.deleteuser.elements.length;i++)    {      var e =document.deleteuser.elements[i];      if (e.name != 'allbox')        e.checked =document.deleteuser.allbox.checked;    }  }</script>
<table align=center border=1 bordercolor=<%=skin(12)%> cellpadding=3 cellspacing=0 width="<%=skin(11)%>">
	<form action="admin_user.asp?orderby=<%=orderby%>&sc=<%=sc%>&page=<%=page%>" name="deleteuser" method="post">
	<Input type=hidden name=action value=delete>
	<tr align=center class=titlelink>
		<Td width="7%" class=titlestyle><a href="admin_user.asp?orderby=userid&sc=<%if sc="asc" then%>desc<%else%>asc<%end if%>" title=点击按自动编号排列>操作</a></td>
		<Td width="18%" class=titlestyle><a href="admin_user.asp?orderby=username&sc=<%if sc="asc" then%>desc<%else%>asc<%end if%>" title=点击按注册名排列>注册名</a></td>
		<Td width="8%" class=titlestyle><a href="admin_user.asp?orderby=usersex&sc=<%if sc="asc" then%>desc<%else%>asc<%end if%>" title=点击按性别排列>性别</a></td>
		<Td width="15%" class=titlestyle><a href="admin_user.asp?orderby=userhpgurl&sc=<%if sc="asc" then%>desc<%else%>asc<%end if%>" title=点击按主页排列>主页</a></td>
		<Td width="23%" class=titlestyle><a href="admin_user.asp?orderby=usermail&sc=<%if sc="asc" then%>desc<%else%>asc<%end if%>" title=点击按信箱排列>信箱</a></td>
		<Td width="9%" class=titlestyle><a href="admin_user.asp?orderby=msgtotal&sc=<%if sc="asc" then%>desc<%else%>asc<%end if%>" title=点击按留言数排列>留言数</a></td>
		<Td width="20%" class=titlestyle><a href="admin_user.asp?orderby=addtime&sc=<%if sc="asc" then%>desc<%else%>asc<%end if%>" title=点击按注册时间排列>注册时间</a></td>
	</tr>
<%
Set rs=server.createobject("adodb.recordset")
sql="select UserID,UserName,UserSex,UserHpgName,UserHpgURL,UserMail,Addtime,Msgtotal from [user] order by " & orderby &" "& sc
Rs.open sql,conn,1,1
	MyPageSize	= 20
	Rs.pagesize	= Mypagesize
	maxpages	= cint(Rs.pagecount)
	totalsize	= cint(Mypagesize)
	Rs.absolutepage	= page
	msgtotal	= Rs.RecordCount
If  Rs.Bof then                                                    
	response.write "<tr><TD colspan=7>Sorry,没有符合条件的记录</td></tr>"
else     
	total = 0 
	do until Rs.Eof or total=totalsize
%>
	<tr bgcolor="<%=skin(5)%>" onmouseover="this.bgColor='<%=skin(4)%>'" onmouseout="this.bgColor='<%=skin(5)%>'" align=center>
		<Td><input name="UserID" type=checkbox value="<%=Rs(0)%>" class="noborder"></td>
		<Td><a href=index.asp?UserName=<%=Rs(1)%> target=_blank title=打开他的留言本><%=Rs(1)%></a></td>
		<Td><%if Rs(2)=0 then%>男<%elseif Rs(2)=1 then%>女<%else%>-<%end if%></td>
		<Td><a href=<%=Rs(4)%> target=_blank title=打开他的主页><%=Rs(3)%></a></td>
		<Td><a href=mailto:<%=Rs(5)%> target=_blank><%=Rs(5)%></a></td>
		<Td><%=rs(7)%></td>
		<Td><%=year(Rs(6))%>年<%=month(Rs(6))%>月<%=day(Rs(6))%>日</td>
	</tr>
<%
	Rs.movenext
	total = total + 1
	loop
	Rs.close
end if%>
	<tr bgcolor=<%=skin(4)%>>
		<Td align=left colspan=2 style="border:0"><input name=allbox value="check all" type=checkbox onClick="CheckAll();" class=noborder><a href="javascript:CheckAll();" onClick="allbox.checked=!allbox.checked;">选中所有记录</a>　　<input type=submit name=submit value="删除" onclick="return chk()"></td>
		<Td align=right colspan=5 style="border:0"><%pagelink%></td>
	</tr></form>
</table>
<!--#include file="inc/foot.asp"-->
<!--#include file="inc/PageLink.inc"-->