userlist.asp

BBS源码 利用ASP的一个功能齐全的BBS论坛源码

<!--#include file="Inc.asp"-->
<!--#include file="Inc/page_Cls.asp"-->
<%
Dim Action,WhereSql,OrderSql,Order,PageInfo
If Not BBS94KK.Founduser Then BBS94KK.GoToErr(10)
Order=Request.querystring("Order")
Action=Lcase(Request.querystring("Action"))
If Action="today" Then
	Call  BBS94KK.Head("今日到访会员")
	WhereSql="IsDel=False And DATEDIFF('d',[LastTime],'"&BBS94KK.NowBbsTime&"')<1"
Else
	Call BBS94KK.Head("查看用户列表")
	WhereSql="IsDel=False"
End If
Select Case Action
Case"sex"
	OrderSql="Sex"
Case"coin"
	OrderSql="Coin"
Case"essay"
	OrderSql="EssayNum"
Case"mark"
	OrderSql="Mark"
Case"regtime"
	OrderSql="RegTime"
Case"grade"
	OrderSql="Grade"
Case else
	OrderSql="ID"
End select
IF Order="2" Then OrderSql =OrderSql&" Desc"
ShowListTop()
ShowUserList()
ShowListBottom()
BBS94KK.Footer()
Set BBS94KK=Nothing


Sub ShowListTop()
	Dim Temp
	Response.Write"<table align=center width='650' border='0' cellpadding='6' cellspacing='0'><tr><td>查看按：<a href=?Action=Sex&Order="&Order&">姓别</a>&nbsp;/&nbsp;<a href=?Action=Essay&Order="&Order&">贴数</a>&nbsp;/&nbsp;<a href=?Action=Coin&Order="&Order&">金钱</a>&nbsp;/&nbsp;<a href=?Action=Mark&Order="&Order&">积分</a>&nbsp;/&nbsp;<a href=?Action=RegTime&Order="&Order&">注册时间</a>&nbsp;/&nbsp;<a href=?Action=Grade&Order="&Order&">等级</a>&nbsp;/&nbsp;<a href=?Action=Today>今日到访</a> </td><td> 排序方式：<a href=?Action="&Action&"&Order=1>顺</a> / <a href=?Action="&Action&"&Order=2>倒</a></td></tr></table>"
	Temp=BBS94KK.Template.ReadTemplate("各项列表顶部")
	Temp=Replace(Temp,"{标题}",BBS94KK.Stats )
	Response.Write Temp
End Sub

Sub ShowListBottom()
	Dim Temp
	Temp=BBS94KK.Template.ReadTemplate("各项列表底部")
	Temp=Replace(Temp,"{分页}",PageInfo)
	Response.Write Temp
End Sub

Sub ShowUserList()
	Dim Pages,Page,arr_Rs,i,Temp,Content
	Page = Request.QueryString("page")
	Set pages = New Cls_PageView
	pages.strTableName = "[KK_User]"
	pages.strPageUrl = "?Action="&Action&"&Order="&Order
	pages.strFieldsList = "Name,Sex,Mail,EssayNum,Coin,Mark,RegTime,Grade"
	pages.strCondiction = WhereSql
	pages.strOrderList = OrderSql
	'Pages.CountSQL=200'为减轻服务器负担，只显示前200名
	Pages.strPrimaryKey = "ID"
	pages.intPageSize = 40
	pages.intPageNow = Page
	pages.strCookiesName = "User_List"&Action'客户端记录总数
	pages.Reloadtime=10'每10分钟更新Cookies
	pages.strPageVar = "page"
	pages.InitClass
	Arr_Rs = pages.arrRecordInfo
	PageInfo = pages.strPageInfo
	page=pages.intPageNow
	Set pages = nothing
	Content="<tr height=25 bgcolor=#E3E3E3><th width='15%'><b>用户名</b></th><th width='10%'><b>性别</b></th><th width='10%'><b>E-mail</b></th><th width='10%'><b>发帖数</b></th><th width='10%'><b>金钱</b></th><th width='10%'><b>积分</b></th><th width='15%'><b>注册时间</b></th><th width='20%'><b>等级</b></th></tr>"
	If IsArray(Arr_Rs) Then
	For i = 0 to UBound(Arr_Rs, 2)
		If Arr_Rs(1,i) Then Temp="帅哥" Else Temp="靓女"
		Content=Content &"<tr Height=25><td align='center' ><a href='UserInfo.asp?Name="&Arr_Rs(0,i)&"'>"&Arr_Rs(0,i)&"</a></td><td align='center'>"&Temp&"</td><td align='center'><a href='mailto:"&Arr_Rs(2,i)&"'><img src='images/mail.gif' border='0'></a></td><td align='center'>"&Arr_Rs(3,i)&"</td><td align='center'>"&Arr_Rs(4,i)&"</td><td align='center'>"&Arr_Rs(5,i)&"</td><td align='center'>"&Formatdatetime(Arr_Rs(6,i),1)&"</td><td align='center'>"&Arr_Rs(7,i)&"级 "&BBS94KK.GradeName(cint(Arr_Rs(7,i)))&"</td></tr>"
	Next
	End If
	Response.Write Content
End Sub
%>