<%
Dim Action,WhereSql,Title,Page_Url
If Request.QueryString("page") > 1 Then
Page_Url = "?Page="&Request.QueryString("page")
Else
Page_Url = ""
End If
MNBoard.Head"AdminList.asp"&Page_Url,"","查看管理团队"
Action=Request.querystring("Action")
Select Case Action
Case "9"
whereSql="BoardID=0"
Title=MNBoard.GetGradeName(0,9)
Case "8"
whereSql="BoardID=-1"
Title=MNBoard.GetGradeName(0,8)
Case "7"
whereSql="BoardID>0"
Title=MNBoard.GetGradeName(0,7)
Case else
whereSql=""
Title="全部管理团队"
End select
ShowList()
MNBoard.Footer()
Set MNBoard =Nothing
Sub ShowList()
Dim P,Page,arr_Rs,i,S,PInfo,Grade,BgColor
Page = Request.QueryString("page")
Set P = New Cls_PageView
P.strTableName = "[i_Admin] As A inner join [i_User] As U on A.Name=U.Name"
P.strPageUrl = "?Action="&Action
P.strFieldsList = "A.Name,A.BoardID,U.Mail,U.lastTime,U.GradeID,U.GradeFlag"
P.strCondiction = WhereSql
P.strOrderList = "U.LastTime desc"
P.strPrimaryKey = "A.Name"
P.intPageSize = 20
P.intPageNow = Page
P.strCookiesName = "User_List"&Action'客户端记录名称
P.Reloadtime=10'分钟更新
P.InitClass
Arr_Rs = P.arrRecordInfo
PInfo = P.strPageInfo
Set P = nothing
S=""
If IsArray(Arr_Rs) Then
For i = 0 to UBound(Arr_Rs,2)
If I mod 2<>0 Then Bgcolor="background:"&MNBoard.SkinsPIC(1) Else Bgcolor=""
S=S&""&MNBoard.GetBoardName(Arr_Rs(1,i))&"
"&Arr_Rs(3,i)&"
"&PInfo&"
"
MNBoard.ShowTable "管理团队",""
MNBoard.ShowTable Title,S
End Sub
%>
