📄 userlist.asp

📁 BBS论坛的开发和设计
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="admin/BBSConfig.asp"-->
<!--#include file="INC/online.asp"-->
<!--#include file="INC/ShowMsg.asp"-->
<!--#include file="INC/header.asp"-->
<!--#include file="INC/style.asp"-->
<%
'****************************************************************
'*  joinboard BBS Ver2.3.0/友盟论坛 Ver2.3.0
'*
'*  版权所有: JoinBoard V2.3
'*
'*  程序制作: 友盟工作室
'*           
'*  主页地址: http://joinboard.com    友盟论坛
'*
'*  论坛地址: http://bbs.joinboard.com/、http://youmeng.com
'*	                 
'****************************************************************
'*  Powered by: JoinBoard V2.3
'*　Copyright 2003－2004.  - All Rights Reserved.
'*  JoinBoard is a trademark of YouMeng Studio.
'****************************************************************

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="joinboard,forum,bbs,youmeng,友盟论坛">
<title><%=BBS_Config(0)%> - 会员列表</title>
<link href="<%=Css_path%>" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<%
Call onlineuser()
call top()

response.Write "<table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""path-table"">"
response.Write "<tr><td>"
response.write "<img src="""& BBS_Skin(3) &"JBB_bullet.gif""> <a href="""& BBSHomeUrl &""">"& BBS_Config(0) &"</a> <img src="""& BBS_Skin(3) &"JBB_bullet.gif""> <strong>会员列表</strong>" 
response.Write "</td></tr></table>"

Uname = trim(request.QueryString("Uname"))
action = trim(request.QueryString("action"))
%>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="table-noColor">
  <tr> 
    <td><table border="0" cellspacing="0" cellpadding="0">
        <form name="form2" method="Get" action="">
        <tr>
            <td width="62">按用户名: 
              <input name="action" type="hidden" id="action" value="search"> </td>
            <td width="88"> 
              <input name="Uname" type="text" id="Uname" value="<%=Uname%>" size="12" maxlength="6">
            </td>
          <td><div align="left">
                <input name="Submit" type="submit" id="Submit" value="模糊查寻">
              </div></td>
        </tr></form>
      </table></td>
    <td width="16"><img src="<%=BBS_Skin(3)%>top1.gif"></td>
    <td width="68"><a href="?action=By_post">发贴排行</a></td>
    <td width="16"><img src="<%=BBS_Skin(3)%>top2.gif"></td>
    <td width="68"><a href="?action=By_cent">积分排行</a></td>
    <td width="16"><img src="<%=BBS_Skin(3)%>userlist1.gif"></td>
    <td width="48"><a href="?action=new">最新注册</a></td>
  </tr>
</table>
<%
select case action
	case "By_post"
		order = "threadcount+replycount"
		ordername = "发贴排行"
	case "By_cent"
		order = "cent"
		ordername = "积分排行"
	case "search"
		if Uname = "" then 
			response.Write("<script language=""javascript"">alert(""请输入查找关键字"");history.back();</script>")
			response.end
		End if
		ordername = "搜索会员：<font color=red>"&Uname&"</font>"
		order = "userid"
		sqlStr = " where username like '%"&Uname&"%'"
	case else
		order = "userid"
		ordername = "最新注册"
End select
'=================================================
if user_group(4) <> true then
	loginform "您不可以查看其它会员信息或者您还没有登录，如果您还不是本站会员，请<a href=""register.asp?action=agree"">注册</a>"
	Call Bottom()
	response.End()
End if
sql = "select userid,username,email,showemail,homepage,threadcount,replycount,cent,regtime from JBB_user "&sqlStr&" order by "& order &" desc"
set rsuser = server.CreateObject("adodb.recordset")
rsuser.open sql,conn,1,1
if rsuser.eof then	
	ShowMsg " 暂时没有相关记录"
else
	page = trim(request.form("page"))
		if page = "" then page = trim(request.QueryString("page"))
		if Not(IsNumeric(page)) or page = "0" then page = 1
	rsuser.pageSize = 30
	pageCount = rsuser.pageCount
	if len(page) > 4 then page = pageCount
	if Cint(page) > Cint(pageCount) then page = pageCount
	rsuser.absolutepage = page
%>
<table border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  <tr class="table-title"> 
    <td colspan="6"><a href="<%=BBS_Config(1)%>"><%=BBS_Config(0)%></a> - 会员列表 - <%=ordername%></td>
  </tr>
  <tr class="table-title"> 
    <td><div align="center">用户名</div></td>
    <td><div align="center">Email地址</div></td>
    <td><div align="center">个人主页</div></td>
    <td><div align="center">发帖数量</div></td>
    <td><div align="center">积分</div></td>
    <td class="table-title"><div align="center">注册日期</div></td>
  </tr>
  <%
	for i = 1 to rsuser.pagesize
		if rsuser.eof then exit for	
	postCount = rsuser("threadcount")+rsuser("replycount")
	if Not(IsNumeric(postCount)) then postCount =0
	usernameStr = rtrim(rsuser("username"))
	if action="search" then
		usernameStr = replace(usernameStr,Uname,"<font color=red>"&Uname&"</font>")
		pageStr = "&Uname="&Uname
	End if
	%>
  <tr> 
    <td class="table-dark"><a href="user.asp?userid=<%=rtrim(rsuser("userid"))%>"><%=usernameStr%></a></td>
    <td class="table-light"> 
      <%if rsuser("showemail") then response.Write("<a href=""mailto:"& rsuser("email") &""">"& rsuser("email") &"</a>") else response.Write("保密") End if%> </td>
    <td class="table-dark"> 
      <%
	homepage = rtrim(rsuser("homepage"))
	if  homepage <> "http://www" and homepage <> "http://" then
		if left(homepage,7) <> "http://" then
			homepage = homepage + "http://"
		End if	
		response.write "<a href="""& homepage &""" target=""_blank"">"&rtrim(rsuser("homepage"))&"</a>"
	End if
	%></td>
    <td class="table-light"><div align="center"><%= postCount %></div></td>
    <td class="table-dark"><div align="center"><%=rsuser("Cent")%></div></td>
    <td class="table-light"><div align="center"><%=formatdatetime(rsuser("regtime"),2)%></div></td>
  </tr>
  <%
	rsuser.MoveNext
	Next'i
	%>
</table>
<br>
	<%
	if rsuser.pageCount > 1 then
	%>
<table border="0" align="center" cellpadding="4" cellspacing="0">
  <tr> 
    <td> 
      <%
	if pagecount < 1 then pagecount = 1
	response.Write "&nbsp页次："& PAGECOUNT &"/" & page &"页 每页"& rsuser.pageSize &" 会员数"&rsuser.recordCount&" "
	%>
    </td>
    <td height="30">分页: 
      <%
beginpage = 1
endpage = CInt(pagecount)
page = CInt(page)
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
if beginpage>1 then response.write "&nbsp;<a title=""第一页"" href=""?action=" & action & pageStr & """><font face=webdings>9</font></a>"
for j = beginpage to endpage
	if j = page then
		response.write"&nbsp;<b>[" & j & "]</b>&nbsp;"
	else
		response.write"&nbsp;<a href=""?action=" & action & "&page=" & j & pageStr & """>[" & j & "]</a>&nbsp;"
	end if
next
if endpage < pagecount then response.write "&nbsp;<a title=""最末页"" href=""?action=" & action & "&page="& pagecount & pageStr & """><font face=webdings>:</font></a>"
%>
    </td>
    <form name="form1" method="post" action="">
      <td><div align="right">转到:第 
          <input name="page" type="text" size="3" maxlength="5">
          <input type="submit" name="Submit" value="页">
        </div></td>
    </form>
  </tr>
</table>
<br>
<%
	End if
End if
rsuser.close
set rsuser = Nothing
'========================================
Call Bottom()
%>
💿 文件大小 954 K
👤 上传用户 anniesprite
📂 所属分类 JavaScript
🏷️ 相关标签

#BBS #论坛
⌨️ 快捷键说明

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