<%
Dim PageInfo
Head()
Select case lcase(Request.querystring("Action"))
Case"log"
CheckString "07"
ShowLog
Case"placard"
CheckString "03"
Placard
Case"link"
CheckString "05"
Link
Case"userlist"
CheckString "21"
UserList
Case"recycle"
CheckString "36"
Recycle
Case"see"
CheckString "36"
See
Case"setgrade"
CheckString "26"
SetGrade
End select
Footer()
Function GetPageInfo(PTable,PFieldslist,PCondiction,POrderlist,PPrimaryKey,PSize,PCookiesName,Purl)
Dim P
Set P = New Cls_PageView
P.strTableName =PTable
P.strFieldsList =PFieldslist
P.strCondiction =PCondiction
P.strOrderList = POrderlist
P.strPrimaryKey = PPrimaryKey
P.intPageSize = PSize
P.intPageNow = Request("page")
P.strCookiesName = PCookiesName
P.strPageUrl = PUrl
P.InitClass
GetPageInfo = P.arrRecordInfo
PageInfo = P.strPageInfo
Set P = nothing
End Function
Sub Link
Dim Arr_Rs,I,Key,trColor,Sqlwhere,Flag,Chk,Pass
Key=MNBoard.Fun.Getkey("Key")
Flag=Request("Flag")
Pass=Request("Pass")
If Key<>"" Then
Select Case Flag
Case"1":Sqlwhere=MNBoard.Fun.SplitKey("BbsName",Key,"or")
Case"2":Sqlwhere=MNBoard.Fun.SplitKey("Admin",Key,"or")
Case"3":Sqlwhere=MNBoard.Fun.SplitKey("Readme",Key,"or")
Case Else
Sqlwhere=MNBoard.Fun.SplitKey("BbsName",Key,"or")&" or "&MNBoard.Fun.SplitKey("Admin",Key,"or")&" or "&MNBoard.Fun.SplitKey("Readme",Key,"or")
End Select
ElseIf Pass<>"" Then
Sqlwhere="Pass="&Pass
Else
Sqlwhere=""
End If
Arr_rs=GetPageInfo("[i_Link]","ID,BbsName,Admin,Url,Orders,Ispic,pass,Readme,IsIndex",SqlWhere,"Orders","ID",20,"Link"&Key&Flag,"?Action=Link&Key="&Key&"&Flag="&Flag&"&Pass="&Pass)
Response.Write"
"
Response.Write""&_
"
"&pageInfo&"
"
Else
Response.Write"
没有找到"&Key&"的记录！
"
End If
Response.Write"
"
End Sub
Sub ShowLog
Dim Arr_Rs,I,Key,trColor,Sqlwhere,Flag
Key=MNBoard.Fun.Getkey("Key")
Flag=Request("Flag")
If Key<>"" Then
Select Case Flag
Case"1":Sqlwhere=MNBoard.Fun.SplitKey("UserName",Key,"or")
Case"2":Sqlwhere=MNBoard.Fun.SplitKey("Remark",Key,"or")
Case"3":Sqlwhere=MNBoard.Fun.SplitKey("GetUrl",Key,"or")
Case Else
Sqlwhere=MNBoard.Fun.SplitKey("UserName",Key,"or")&" or "&MNBoard.Fun.SplitKey("Remark",Key,"or")&" or "&MNBoard.Fun.SplitKey("GetUrl",Key,"or")
End Select
Else
Sqlwhere=""
End If
Arr_rs=GetPageInfo("[i_Log]","ID,Username,UserIP,Remark,logtime,GetUrl",SqlWhere,"ID desc","ID",20,"Log"&Key&Flag,"?Action=Log&Key="&Key&"&Flag="&Flag)
Response.Write"
"
Response.Write""&_
"
"&pageInfo&"
"
Else
Response.Write"
没有找到"&Key&"的记录！
"
End If
Response.Write"
"
End Sub
Sub Placard()
Dim P,Page,arr_Rs,i,Temp,Content
Arr_Rs=GetPageInfo("[i_Placard]","ID,Caption,BoardID,Name,AddTime,hits","","BoardID,ID desc","ID",20,"Placard_List","?Action=Placard")
Response.Write"
"
End If
End Sub
Function GetBoardName(Ast)
Dim i
If Not IsArray(MNBoard.Board_Rs) Then MNBoard.GetBoardCache()
If IsArray(MNBoard.Board_Rs) Then
For i=0 To Ubound(MNBoard.Board_Rs,2)
IF MNBoard.Board_Rs(1,i)=Ast Then
GetBoardName=MNBoard.Board_Rs(3,i)
Exit For
End IF
Next
End If
If GetBoardName="" Then GetBoardName="首页"
End Function
Function GradeList(Flag)
Dim ARs,i
If MNBoard.Cache.valid("GradeInfo") then
ARs=MNBoard.Cache.Value("GradeInfo")
Else
ARs=MNBoard.SetGradeInfoCache()
End if
For i=0 To Ubound(ARs,2)
If Flag=1 Then
If ARs(1,i)="1" Then
GradeList=GradeList&""
End If
Else
GradeList=GradeList&""
End If
Next
End Function
Sub SetGrade()
Dim Name
Name=Request("Name")
Response.Write""
End Sub
Sub UserList
Dim Arr_Rs,I,Key,trColor,Sqlwhere,Flag,Sex,Css,S
Dim SqlSelect,SqlOrder,Title,TxtLink,GradeName,GradeID,Temp
Flag=Request("Flag")
GradeName=Replace(Replace(Request("GradeName"),"|",""),",","")
GradeID=Request("GradeID")
If Flag="" Then Flag="5"
If Flag<>"8" Then GradeName="":GradeID=""
SqlSelect=Split("0|注册待审的用户|Isdel=2|,"&_
"1|VIP用户|IsVIP=1|Id Desc,"&_
"2|被删除的用户|IsDel=1|Id Desc,"&_
"3|被屏蔽帖子的用户|IsShow=1|Id Desc,"&_
"4|被屏蔽签名的用户|IsSign=1|Id Desc,"&_
"5|所有用户||Id Desc,"&_
"6|发帖最多的用户||EssayNum desc,"&_
"7|没有发帖的用户|EssayNum=0|Regtime,"&_
"8|"&GradeName&"|GradeID="&GradeID&"|ID Desc",",")
Txtlink="功能操作："
For i=0 To uBound(SqlSelect)
If i="5" then TxtLink=Txtlink&" 快速查看："
If i="8" Then Txtlink=Txtlink&" "
Temp=Split(SqlSelect(i),"|")
If Flag=Temp(0) Then
Txtlink=Txtlink&" "&Temp(1)&" |"
Title=Temp(1)
Sqlwhere=Temp(2)
SqlOrder=Temp(3)
Else
Txtlink=Txtlink&" "&Temp(1)&" |"
End If
Next
Response.Write"
用户管理
"&Txtlink&"
"
Key=MNBoard.Fun.Getkey("Key")
If Key<>"" Then
Sqlwhere=MNBoard.Fun.SplitKey("Name",Key,"or")
End If
Arr_rs=GetPageInfo("[i_User]","ID,Name,Sex,EssayNum,LastIp,Lasttime,Mail,GoodNum,Mark,Home,QQ,GradeID,Coin,BankSave,Sign,Pic,PicW,PicH,Birthday,BankTime,Regtime,NewSmsNum,SmsSize,isQQpic,isShow,isDel,isVip,isSign,RegIp,LoginNum,Honor,Faction,GameCoin",Sqlwhere,SqlOrder,"ID",25,"UserList"&Key&Flag,"?Action=UserList&Key="&Key&"&GradeName="&GradeName&"&GradeID="&GradeID&"&Flag="&Flag)
Response.Write "