adminlist.asp

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

<!--#include file="Inc.asp"-->
<!--#include file="Inc/page_Cls.asp"-->
<%
Dim Action,WhereSql,PageInfo,Admintype
Call  BBS94KK.Head("管理团队")
Action=Request.querystring("Action")
Select Case Action
Case"AllAdmin"
	whereSql=""
	Admintype="全部管理团队"
Case"Admin19"
	whereSql="BoardID=-1"
	AdminType=BBS94KK.GradeName(19)
Case"Admin18"
	whereSql="BoardID>0"
	AdminType=BBS94KK.GradeName(18)
Case else
	whereSql="BoardID=0"
	AdminType=BBS94KK.GradeName(20)
End select
ShowListTop():ShowList():ShowListBottom()
BBS94KK.Footer()
Set BBS94KK=Nothing


Sub ShowListTop()
	Dim Temp
	Call BBS94KK.ShowTable("管理团队","<table width='100%'><tr><td align='center'><a href=?Action=AllAdmin>全部管理团队</a>&nbsp;|&nbsp;<a href=?>"&BBS94KK.GradeName(20)&"</a>&nbsp;|&nbsp;<a href=?Action=Admin19>"&BBS94KK.GradeName(19)&"</a>&nbsp;|&nbsp;<a href=?Action=Admin18>"&BBS94KK.GradeName(18)&"</a></td></tr></table>")
	Temp=BBS94KK.Template.ReadTemplate("各项列表顶部")
	Temp=Replace(Temp,"{标题}",Admintype)
	Response.Write Temp
End Sub

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

Sub ShowList()
	Dim Pages,Page,arr_Rs,i,Temp,Content
	Page = Request.QueryString("page")
	Set pages = New Cls_PageView
	pages.strTableName = "[KK_Admin] As A inner join [KK_User] As U on A.Name=U.Name"
	pages.strPageUrl = "?Action="&Action
	pages.strFieldsList = "A.Name,A.BoardID,U.Mail,U.lastTime,U.Grade"
	pages.strCondiction = WhereSql
	pages.strOrderList = "U.LastTime desc"
	Pages.strPrimaryKey = "A.Name"
	pages.intPageSize = 20
	pages.intPageNow = Page
	pages.strCookiesName = "User_List"&Action'客户端记录名称
	pages.Reloadtime=10'分钟更新
	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 width='15%'><b>管理级别</b></th><th width='25%'><b>管理区域</b></th></th><th width='10%'><b>E-mail</b></th><th width='10%'><b>留言</b></th><th width='25%'><b>最后登陆</b></th></tr>"
	If IsArray(Arr_Rs) Then
	For i = 0 to UBound(Arr_Rs, 2)
		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'>"&BBS94KK.GradeName(Arr_Rs(4,i))&"</td><td align='center'>"&GetBoardName(Arr_Rs(1,i))&"</td><td align='center'><a href='mailto:"&Arr_Rs(2,i)&"'><img src='images/mail.gif' border='0'></a></td><td align='center'><a href='Sms.asp?Action=write&Name="&Arr_Rs(0,i)&"'><img src='images/sms.gif' border='0'></a></td><td align='center'>"&Arr_Rs(3,i)&"</td></tr>"
	Next
	End If
	Response.Write Content
End Sub

Function GetBoardName(Ast)
	Dim i
	If Ast<1 then GetBoardName="<a href='Index.asp'>全部版块</a>":Exit Function
	If Not IsArray(BBS94KK.Board_Rs) Then BBS94KK.CacheBoard()
	If IsArray(BBS94KK.Board_Rs) Then
		For i=0 To Ubound(BBS94KK.Board_Rs,2)
		IF BBS94KK.Board_Rs(1,i)=Ast Then
			GetBoardName="<a href='List.asp?BoardID="&BBS94KK.Board_Rs(1,i)&"'>"&BBS94KK.Board_Rs(3,i)&"</a>"
			Exit For
		End IF
		Next
	End If
End Function
%>