<% Head() dim admin_flag admin_flag=",36," If Not Dvbbs.master or instr(","&session("flag")&",",admin_flag)=0 then Errmsg=ErrMsg + "
  • 本页面为管理员专用,请登录后进入。
  • 您没有管理本页面的权限。" dvbbs_error() Else Main_head() Select Case Request("action") Case "del" Del() Case "alldel" AllDel() Case Else Log_List() End Select If founderr then call dvbbs_error() footer() End If '顶部标题 Sub Main_head() '(0=其它,1=使用,2=转让,3=充值,4=购买,5=奖励) Dim stype stype = Request("stype") If stype="" Then stype=0 %>
    道具中心日志管理
    浏览所有日志 | <%If stype=4 Then Response.Write ""%>购买日志<%If stype=4 Then Response.Write ""%> | <%If stype=2 Then Response.Write ""%>转让日志<%If stype=2 Then Response.Write ""%> | <%If stype=5 Then Response.Write ""%>奖励日志<%If stype=5 Then Response.Write ""%> | <%If stype=6 Then Response.Write ""%>VIP交易日志<%If stype=6 Then Response.Write ""%> | <%If stype=1 Then Response.Write ""%>使用日志<%If stype=1 Then Response.Write ""%> | <%If stype="-1" Then Response.Write ""%>后台操作日志<%If stype="-1" Then Response.Write ""%>
    关键字:">

    <% End Sub Sub Log_List() Dim LogType,Stype,StypeStr,Keyword Dim Rs,Sql,i Dim Page,MaxRows,Endpage,CountNum,PageSearch,SqlString LogType = "其它|使用|转让|充值|购买|奖励|VIP交易" LogType = Split(LogType,"|") PageSearch = "" Endpage = 0 MaxRows = 20 Page = Request("Page") If IsNumeric(Page) = 0 or Page="" Then Page=1 Page = Clng(Page) Stype = Request("Stype") If IsNumeric(Stype) = 0 or Stype="" Then Stype=0 Stype = Clng(Stype) Response.Write "" Keyword = Request("Keyword") If Keyword <> "" Then Keyword = Replace(Keyword,"'","''") PageSearch = "Keyword="&Keyword&"&Stype="&Stype %> <% Select Case Stype Case 0 StypeStr = "" Case 1 StypeStr = "Where Log_Type=1" Case 2 StypeStr = "Where Log_Type=2" Case 3 StypeStr = "Where Log_Type=3" Case 4 StypeStr = "Where Log_Type=4" Case 5 StypeStr = "Where Log_Type=5" Case 6 StypeStr = "Where Log_Type=6" Case -1 StypeStr = "Where BoardID=-1" Case Else StypeStr = "" End Select If StypeStr<>"" Then If Keyword<>"" Then StypeStr = StypeStr & " And (AddUserName Like '%"&keyword&"%' Or Conect Like '%"&keyword&"%')" Else If Keyword<>"" Then StypeStr = "Where (AddUserName Like '%"&keyword&"%' Or Conect Like '%"&keyword&"%')" End If 'Log_ID=0 ,ToolsID=1 ,CountNum=2 ,Log_Money=3 ,Log_Ticket=4 ,AddUserName=5 ,AddUserID=6 ,Log_IP=7 ,Log_Time=8 ,Log_Type=9 ,BoardID=10 ,Conect=11 ,HMoney=12 Sql = "Select Log_ID,ToolsID,CountNum,Log_Money,Log_Ticket,AddUserName,AddUserID,Log_IP,Log_Time,Log_Type,BoardID,Conect,HMoney From [Dv_MoneyLog] "&StypeStr&" ORDER BY Log_ID Desc" Set Rs = server.CreateObject ("adodb.recordset") 'Response.Write sql If Not IsObject(Conn) Then ConnectionDatabase Rs.Open Sql,conn,1,1 If Not (Rs.Eof And Rs.Bof) Then CountNum = Rs.RecordCount If CountNum Mod MaxRows=0 Then Endpage = CountNum \ MaxRows Else Endpage = CountNum \ MaxRows+1 End If Rs.MoveFirst If Page > Endpage Then Page = Endpage If Page < 1 Then Page = 1 If Page >1 Then Rs.Move (Page-1) * MaxRows End if SQL=Rs.GetRows(MaxRows) Else Response.Write "
    类型 数量 金币 点券 说明 用户 IP 时间
    还没有日志记录!
    " Exit Sub End If Rs.close:Set Rs = Nothing For i=0 To Ubound(SQL,2) %> <%=LogType(SQL(9,i))%> <%=SQL(2,i)%> <%=SQL(3,i)%> <%=SQL(4,i)%> <%=SQL(11,i)%> <%=SQL(5,i)%>
    <%=SQL(12,i)%> <%=SQL(7,i)%> <%=FormatDateTime(SQL(8,i),2)%> <% Next %> 操作: 全选
    批量删除操作,系统会自动保留最后10天的日志信息,操作不可恢复,请慎重:
    清空所有日志 | 使用日志 | 转让日志 | 奖励日志 | 购买日志 | 充值日志 | 后台操作日志 <% PageSearch=Replace(Replace(PageSearch,"\","\\"),"""","\""") Response.Write "" End Sub Sub Del() Dim Stype,SQL Dim SqlDate Stype = Request("dtype") If IsNumeric(Stype) = 0 or Stype="" Then Stype=0 Stype = Clng(Stype) If IsSqlDataBase=1 Then SqlDate = "d" Else SqlDate ="'d'" End If Select Case Stype Case 0 SQL = "Delete From Dv_MoneyLog Where DateDiff("&SqlDate&",Log_Time,"&SqlNowString&")>10" Case 1 SQL = "Delete From Dv_MoneyLog Where Log_Type=1 And DateDiff("&SqlDate&",Log_Time,"&SqlNowString&")>10" Case 2 SQL = "Delete From Dv_MoneyLog Where Log_Type=2 And DateDiff("&SqlDate&",Log_Time,"&SqlNowString&")>10" Case 3 SQL = "Delete From Dv_MoneyLog Where Log_Type=3 And DateDiff("&SqlDate&",Log_Time,"&SqlNowString&")>10" Case 4 SQL = "Delete From Dv_MoneyLog Where Log_Type=4 And DateDiff("&SqlDate&",Log_Time,"&SqlNowString&")>10" Case 5 SQL = "Delete From Dv_MoneyLog Where Log_Type=5 And DateDiff("&SqlDate&",Log_Time,"&SqlNowString&")>10" Case -1 SQL = "Delete From Dv_MoneyLog Where BoardID=-1 And DateDiff("&SqlDate&",Log_Time,"&SqlNowString&")>10" Case Else SQL = "Delete From Dv_MoneyLog Where DateDiff("&SqlDate&",Log_Time,"&SqlNowString&")>10" End Select Dvbbs.Execute(SQL) Dv_Suc("删除系统道具日志成功!") Footer() Response.End End Sub Sub AllDel() Dim IDStr,IDStr_a Dim SqlDate IDStr = Request("logid") If IDStr="" Then Errmsg=ErrMsg + "
  • 非法的参数。" founderr=True Else IDStr_a = Replace(Replace(IDStr," ",""),",","") If Not IsNumeric(IDStr_a) Then Errmsg=ErrMsg + "
  • 非法的参数。" founderr=True End If End If If founderr Then Exit Sub If IsSqlDataBase=1 Then SqlDate = "d" Else SqlDate ="'d'" End If SQL = "Delete From Dv_MoneyLog Where Log_ID In ("&IDStr&") And DateDiff("&SqlDate&",Log_Time,"&SqlNowString&")>10" Dvbbs.Execute(SQL) Dv_Suc("删除系统道具日志成功!") Footer() Response.End End Sub %>