| 道具名称 |
操作 |
操作内容 |
金币 |
点券 |
数量 |
使用IP |
时间 |
<%
Dim ToolsNames
Dvbbs.forum_setting(90)=0
If Dvbbs.forum_setting(90)="1" Then
Set Rs = Dvbbs.Plus_Execute("Select ID,ToolsName From Dv_Plus_Tools_Info Order By ID")
If Not (Rs.Eof And Rs.Bof) Then
Sql = Rs.GetRows(-1)
End If
Rs.Close
Set ToolsNames = Server.Createobject("Scripting.Dictionary")
For i=0 to Ubound(Sql,2)
ToolsNames.add Sql(0,i),Sql(1,i)
Next
ToolsNames.add -88,"魔法表情或头像" '添加道具名魔法表情或头像，ID为-88
End If
'T.ToolsName=0,L.CountNum=1,L.Log_Money=2,L.Log_Ticket=3,L.Log_IP=4,L.Log_Time=5,L.Log_Type=6,L.Conect=7
Sql = "Select ToolsID,CountNum,Log_Money,Log_Ticket,Log_IP,Log_Time,Log_Type,Conect From Dv_MoneyLog Where AddUserID="&Dvbbs.UserID&" And Not BoardID=-1 Order By Log_Time Desc"
'Response.Write Sql
Set Rs = server.CreateObject ("adodb.recordset")
If Cint(Dvbbs.Forum_Setting(92))=1 Then
If Not IsObject(Plus_Conn) Then Plus_ConnectionDatabase
Rs.Open Sql,Plus_Conn,1,1
Else
If Not IsObject(Conn) Then ConnectionDatabase
Rs.Open Sql,conn,1,1
End If
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 "| 道具还未添加！ | "
Exit Sub
End If
Rs.close:Set Rs = Nothing
'输出道具列表
For i=0 To Ubound(SQL,2)
%>
|