您没有管理本页面的权限。"
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
%>
<%
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
%>