📄 userlist.asp
字号:
<%
if not session("sfadmin") then response.redirect("welcome.asp")
%>
<!--#INCLUDE FILE="../inc/db_inc.asp"-->
<!--#INCLUDE FILE="../inc/md5_inc.asp"-->
<!--#INCLUDE FILE="../inc/char_inc.asp"-->
<HTML>
<HEAD>
<TITLE>Untitled Document</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK rel="stylesheet" href="image/style.css" type="text/css">
</HEAD>
<BODY bgcolor="#FFFFFF" text="#000000" leftmargin="10" topmargin="10">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn
%>
<!--#INCLUDE FILE="checkadmin.asp"-->
<FORM name="form1" method="post" action="edituser.asp">
<TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
<TR>
<TD bgcolor="#D1E3BF" align="center" colspan="2"><B>搜索用户</B></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD width="20%">用户名:</TD><TD><INPUT type="text" name="username" size="30"> <INPUT type="submit" name="Submit" value="查 找"></TD>
</TR>
<TR bgcolor="#F5F5F5">
<TD>用户序号:</TD><TD><INPUT type="text" name="userid" size="6"> <INPUT type="submit" name="Submit2" value="查 找"></TD>
</TR>
</TABLE>
</FORM>
<!--#INCLUDE FILE="../inc/inc.js"-->
<TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
<TR>
<TD colspan="6" align="right"><form method="post" action="userlist.asp">
<select name="mode">
<option value="">选择查看方式</option>
<option value="posts">发帖成绩</option>
<option value="rating">积分成绩</option>
<option value="regdate">注册日期</option>
</select>
<input type="submit" value="排序"></form>
</td></tr>
<TR bgcolor="#DDDDDD" align="center">
<TD width="18%">用户</TD><td width="6%">发帖</td><td width="6%">积分</td><td width="12%">来自</td><td width="18%">注册日期</td><TD>最后发表</TD>
</TR>
<%
page = request("page")
if page = "" then
page = 1
else
if not IsNumeric(page) then
page = 1
else
page = clng(page)
end if
end if
mode = "posts"
if request("mode") = "posts" then
mode = "posts"
end if
if request("mode") = "rating" then
mode = "rating"
end if
if request("mode") = "regdate" then
mode = "regdate"
end if
strsql = "select userid, usergroup, username, posts, rating, country, joindate, lastposttitle, lastpostid, lastposttime from sf_user"
if mode = "regdate" then strsql = strsql & " order by userid DESC"
if mode = "posts" then strsql = strsql & " order by posts DESC"
if mode = "rating" then strsql = strsql & " order by rating DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, Conn, 1, 1
if not (rs.bof or rs.eof) then
i = 1
rs.PageSize = 30
if page > rs.PageCount then page = rs.PageCount
rs.AbsolutePage = page
pagecount = rs.PageCount
do until rs.eof or i > rs.PageSize
if (i mod 2) = 0 then
response.write "<tr bgcolor=""#FFFFFF"">"
else
response.write "<tr bgcolor=""#F5F5F5"">"
end if
response.write "<td><img src=""../image/onlineicon/" & rs("usergroup") & ".gif""><a href=""edituser.asp?userid=" & rs("userid") & """><b>" & rs("username") & "</b></a></td>"
response.write "<td align=""center"">" & rs("posts") & "</td>"
response.write "<td align=""center"">" & rs("rating") & "</td>"
response.write "<td>" & rs("country") & "</td>"
response.write "<td>" & rs("joindate") & "</td>"
if rs("lastposttitle") = "" then
response.write "<td></td>"
else
response.write "<td><a href=""../showthread.asp?threadid=" & rs("lastpostid") & """ target=_blank>" & rs("lastposttitle") & "</a></td>"
end if
response.write "</tr>"
i = i + 1
rs.MoveNext
loop
response.write "<TR bgcolor=""DDDDDD"" align=""right""><TD colspan=""6""><span class=""smalltxt"">"
Set Conn = nothing
Set rs = nothing
urlstr = ""
if request("mode") <> "" then urlstr = urlstr & "&mode=" & request("mode")
beginpage = 1
endpage = pagecount
if pagecount >= 9 then
if page >= 5 then
beginpage = page - 4
if page <= (pagecount - 4) then
endpage = page + 4
else
endpage = pagecount
beginpage = pagecount - 4
end if
else
beginpage=1
endpage=9
end if
end if
response.write " <a href=""userlist.asp?page=1"& urlstr &"""><<</a>"
for i=beginpage to endpage
if i = page then
response.write " <b>[" & i & "]</b> "
else
response.write "<a href=""userlist.asp?page=" & i & urlstr &"""> [" & i & "] </a>"
end if
next
response.write "... <a href=""userlist.asp?page=" & pagecount & urlstr &"""> ["&pagecount&"] >></a>"
response.write "</span></TD></tr>"
else
response.write "<TR bgcolor=""#FFFFFF""><TD colspan=""6"">当前无任何用户</TD></TR>"
end if
%>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -