📄 userlist.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
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/style.css"-->
<script language=javascript src="inc/js.inc"></script>
<title>用户列表</title>
</head>
<body <%=skin(13)%>>
<BR>
<table align=center border=1 bordercolor=<%=skin(12)%> cellpadding=3 cellspacing=0 width="<%=skin(11)%>">
<tr bgcolor="<%=skin(5)%>">
<Td colspan=6 align=center><b>留 言 本 所 有 用 户 列 表</b></td>
</tr>
<tr align=center class=titlelink>
<Td width="18%" class=titlestyle><a href="userlist.asp?orderby=username&sc=<%if sc="asc" then%>desc<%else%>asc<%end if%>" title=点击按注册名排列>注册名</a></td>
<Td width="8%" class=titlestyle><a href="userlist.asp?orderby=usersex&sc=<%if sc="asc" then%>desc<%else%>asc<%end if%>" title=点击按性别排列>性别</a></td>
<Td width="15%" class=titlestyle><a href="userlist.asp?orderby=userhpgurl&sc=<%if sc="asc" then%>desc<%else%>asc<%end if%>" title=点击按主页排列>主页</a></td>
<Td width="23%" class=titlestyle><a href="userlist.asp?orderby=usermail&sc=<%if sc="asc" then%>desc<%else%>asc<%end if%>" title=点击按信箱排列>信箱</a></td>
<Td width="9%" class=titlestyle><a href="userlist.asp?orderby=msgtotal&sc=<%if sc="asc" then%>desc<%else%>asc<%end if%>" title=点击按留言数排列>留言数</a></td>
<Td width="20%" class=titlestyle><a href="userlist.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=6 bgcolor="&skin(5)&">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><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=right colspan=6 style="border:0"><%pagelink%></td>
</tr>
</table>
<!--#include file="inc/foot.asp"-->
<!--#include file="inc/PageLink.inc"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -