您没有管理本页面的权限。"
dvbbs_error()
Else
Main_head()
Select Case Request("action")
Case "paylist"
UserList(2)
Case "paylist1"
UserList(3)
Case "EditInfo"
EditInfo()
Case "SaveEdit"
SaveEdit()
Case "Not_Apply_Sale"
Not_Apply_Sale()
Case "Del_UserTools"
Del_UserTools()
Case "SendTools"
SendTools()
Case "SaveSend"
SaveSend()
Case Else
UserList(1)
End Select
If founderr then call dvbbs_error()
footer()
End If
'顶部标题
Sub Main_head()
%>
<%
End Sub
Sub UserList(ListType)
Dim ToolsType,KeyWord,DataDesc,DataDescStr,UpDesc
Dim ToolsValues_1,SearchStr
Dim Rs,Sql,i
Dim Page,MaxRows,Endpage,CountNum,PageSearch,SqlString
Endpage = 0
MaxRows = 20
Page = Request("Page")
ToolsType = Request("ToolsType")
KeyWord = Request("keyword")
DataDesc = Request("DataDesc")
UpDesc = Request("UpDesc")
If IsNumeric(Page) = 0 or Page="" Then Page=1
Page = Clng(Page)
Response.Write ""
If Not IsNumeric(ToolsType) Or ToolsType = "" Then ToolsType = 0
ToolsType = Clng(ToolsType)
If KeyWord <> "" Then KeyWord = Replace(KeyWord,"'","''")
If ToolsType > 0 Then SearchStr = " ToolsID="&ToolsType&" "
If Not IsNumeric(DataDesc) Or DataDesc = "" Then DataDesc = 0
DataDesc = Clng(DataDesc)
PageSearch = "action="&Request("action")&"&keyword="&KeyWord&"&ToolsType="&ToolsType&"&DataDesc="&DataDesc&"&UpDesc="&UpDesc
Select Case DataDesc
Case 1
DataDescStr = " SaleMoney"
ListType = 2
Case 2
DataDescStr = " SaleTicket"
ListType = 2
Case 3
DataDescStr = " ToolsCount"
Case 4
DataDescStr = " SaleCount"
ListType = 2
Case Else
DataDescStr = " ID"
End Select
If UpDesc="1" Then
DataDescStr = DataDescStr & " Desc"
End If
If ListType > 1 Then ToolsValues_1 = "价格"
If ListType = 3 Then
If SearchStr <> "" Then
SearchStr = SearchStr & " And (Not SaleCount=0)"
Else
SearchStr = " (Not SaleCount=0)"
End If
ElseIf ListType = 2 Then
If SearchStr <> "" Then
SearchStr = SearchStr & " And (Not SaleCount=0)"
Else
SearchStr = " (Not SaleCount=0)"
End If
End If
If SearchStr<>"" Then
If KeyWord<>"" Then SearchStr = SearchStr & " And UserName Like '%"&KeyWord&"%'"
Else
If KeyWord<>"" Then SearchStr = SearchStr & " UserName Like '%"&KeyWord&"%'"
End If
If SearchStr <> "" Then SearchStr = "Where " & SearchStr
%>
用户名
金币<%=ToolsValues_1%>
点券<%=ToolsValues_1%>
道具名
拥有数
出售数
操作时间
最后登录
<%
'T.ToolsName=0,T.ToolsCount=1,T.SaleCount=2,U.UserName=3,U.UserMoney=4,U.UserTicket=5,U.UserLastIP=6,U.LastLogin=7,T.ID=8
SQL = "Select ToolsName,ToolsCount,SaleCount,UserName,SaleMoney,SaleTicket,UpdateTime,UpdateTime,ID From Dv_Plus_Tools_Buss "&SearchStr&" Order By " & DataDescStr
'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)
%>
<%
Next
PageSearch=Replace(Replace(PageSearch,"\","\\"),"""","\""")
Response.Write ""
End Sub
Sub EditInfo()
Dim ID
ID=Request("ID")
If Not IsNumeric(ID) Or ID="" Then
Errmsg=ErrMsg + "
非法的参数。"
founderr=True
Else
ID=Clng(ID)
End If
If founderr Then Exit Sub
Set Rs=Dvbbs.Plus_Execute("Select * From Dv_Plus_Tools_Buss Where ID=" & ID)
If Rs.Eof And Rs.Bof Then
Errmsg=ErrMsg + "
没有找到相关的数据。"
founderr=True
End If
If founderr Then Exit Sub
%>
<%
Rs.Close
Set Rs=Nothing
End Sub
Sub SaveEdit()
Dim ID
Dim ToolsCount,SaleCount,SaleMoney,SaleTicket
ID=Request("ID")
If Not IsNumeric(ID) Or ID="" Then
Errmsg=ErrMsg + "
非法的参数。"
founderr=True
Else
ID=Clng(ID)
End If
ToolsCount=Request("ToolsCount")
If Not IsNumeric(ToolsCount) Or ToolsCount="" Then
Errmsg=ErrMsg + "
非法的参数。"
founderr=True
Else
ToolsCount=Clng(ToolsCount)
End If
SaleCount=Request("SaleCount")
If Not IsNumeric(SaleCount) Or SaleCount="" Then
Errmsg=ErrMsg + "
非法的参数。"
founderr=True
Else
SaleCount=Clng(SaleCount)
End If
SaleMoney=Request("SaleMoney")
If Not IsNumeric(SaleMoney) Or SaleMoney="" Then
Errmsg=ErrMsg + "
非法的参数。"
founderr=True
Else
SaleMoney=Clng(SaleMoney)
End If
SaleTicket=Request("SaleTicket")
If Not IsNumeric(SaleTicket) Or SaleTicket="" Then
Errmsg=ErrMsg + "
非法的参数。"
founderr=True
Else
SaleTicket=Clng(SaleTicket)
End If
If founderr Then Exit Sub
Dim Rs,SQL,Trs
Set Rs = server.CreateObject ("adodb.recordset")
SQL = "Select * From Dv_Plus_Tools_Buss Where ID=" & ID
If Cint(Dvbbs.Forum_Setting(92))=1 Then
If Not IsObject(Plus_Conn) Then Plus_ConnectionDatabase
Rs.Open Sql,Plus_Conn,1,3
Else
If Not IsObject(Conn) Then ConnectionDatabase
Rs.Open Sql,Conn,1,3
End If
If Rs.Eof And Rs.Bof Then
Errmsg=ErrMsg + "
没有找到相关的数据。"
founderr=True
End If
If founderr Then Exit Sub
'ToolsCount,SaleCount,SaleMoney,SaleTicket
Set Trs=Dvbbs.Execute("Select UserMoney,UserTicket From Dv_User Where UserID=" & Rs("UserID"))
Sql = "Insert into [Dv_MoneyLog] (ToolsID,AddUserName,AddUserID,Log_IP,Log_Type,BoardID,Conect,HMoney) values ("&Rs("ToolsID")&",'"&Rs("UserName")&"','"&Rs("UserID")&"','"&Dvbbs.UserTrueIP&"',0,-1,'"&Dvbbs.Membername&"管理员编辑用户道具资料，可使用数量变动"&ToolsCount-Rs("ToolsCount")&"、出售数量变动"&SaleCount-Rs("SaleCount")&"、出售价格变动（金币）"&SaleMoney-Rs("SaleMoney")&"、出售价格变动（点券）"&SaleTicket-Rs("SaleTicket")&"','"&Trs("UserMoney")&"|"&Trs("UserTicket")&"')"
Dvbbs.Plus_Execute(SQL)
Rs("ToolsCount")=ToolsCount
Rs("SaleCount")=SaleCount
Rs("SaleMoney")=SaleMoney
Rs("SaleTicket")=SaleTicket
Rs.UpDate
Rs.Close
Set Rs=Nothing
Trs.Close
Set Trs=Nothing
Dv_Suc("修改用户道具资料成功！")
Footer()
Response.End
End Sub
Sub Not_Apply_Sale()
Dim ID,SQL,Trs,Rs
ID=Request("ID")
If Not IsNumeric(ID) Or ID="" Then
Errmsg=ErrMsg + "
非法的参数。"
founderr=True
Else
ID=Clng(ID)
End If
If founderr Then Exit Sub
SQL = "UpDate Dv_Plus_Tools_Buss Set ToolsCount=ToolsCount + SaleCount,SaleMoney=0,SaleTicket=0,SaleCount=0 Where ID=" & ID
Dvbbs.Plus_Execute(SQL)
Set Rs=Dvbbs.Plus_Execute("Select * From Dv_Plus_Tools_Buss Where ID=" & ID)
Set Trs=Dvbbs.Execute("Select UserMoney,UserTicket From Dv_User Where UserID=" & Rs("UserID"))
Sql = "Insert into [Dv_MoneyLog] (ToolsID,AddUserName,AddUserID,Log_IP,Log_Type,BoardID,Conect,HMoney) values ("&Rs("ToolsID")&",'"&Rs("UserName")&"','"&Rs("UserID")&"','"&Dvbbs.UserTrueIP&"',0,-1,'"&Dvbbs.Membername&"管理员编辑用户道具资料，取消此用户该道具销售资格。','"&Trs("UserMoney")&"|"&Trs("UserTicket")&"')"
Dvbbs.Plus_Execute(SQL)
Rs.Close
Set Rs=Nothing
Trs.Close
Set Trs=Nothing
Dv_Suc("修改用户道具资料成功！")
Footer()
Response.End
End Sub
Sub Del_UserTools()
Dim ID,SQL,Trs,Rs
ID=Request("ID")
If Not IsNumeric(ID) Or ID="" Then
Errmsg=ErrMsg + "
非法的参数。"
founderr=True
Else
ID=Clng(ID)
End If
If founderr Then Exit Sub
Set Rs=Dvbbs.Plus_Execute("Select * From Dv_Plus_Tools_Buss Where ID=" & ID)
Set Trs=Dvbbs.Execute("Select UserMoney,UserTicket From Dv_User Where UserID=" & Rs("UserID"))
Sql = "Insert into [Dv_MoneyLog] (ToolsID,AddUserName,AddUserID,Log_IP,Log_Type,BoardID,Conect,HMoney) values ("&Rs("ToolsID")&",'"&Rs("UserName")&"','"&Rs("UserID")&"','"&Dvbbs.UserTrueIP&"',0,-1,'"&Dvbbs.Membername&"管理员编辑用户道具资料，删除此用户该道具信息。','"&Trs("UserMoney")&"|"&Trs("UserTicket")&"')"
Dvbbs.Plus_Execute(SQL)
Dvbbs.Plus_Execute("Delete From Dv_Plus_Tools_Buss Where ID=" & ID)
Rs.Close
Set Rs=Nothing
Trs.Close
Set Trs=Nothing
Dv_Suc("删除用户道具资料成功！")
Footer()
Response.End
End Sub
Sub SendTools()
%>
<%
End Sub
Sub SaveSend()
Dim ToolsID,ToolsNum,SendName,ToolsName,ToolsMoney
Dim Trs
ToolsID = Dv_Tools.CheckNumeric(Request("ToolsID"))
ToolsNum = Dv_Tools.CheckNumeric(Request("ToolsNum"))
ToolsMoney = Dv_Tools.CheckNumeric(Request("ToolsMoney"))
SendName = Request("SendName")
If (ToolsID = 0 Or ToolsNum = 0 Or SendName = "") And ToolsMoney = 0 Then
Errmsg=ErrMsg + "
非法的道具或数量或用户名参数。"
founderr=True
End If
If founderr Then Exit Sub
SendName = Replace(SendName,"'","''")
If SendName<>"" And ToolsID>0 And ToolsNum>0 Then
Set Rs=Dvbbs.Plus_Execute("Select ToolsName From Dv_Plus_Tools_Info Where ID="&ToolsID)
If Rs.Eof And Rs.Bof Then
Errmsg=ErrMsg + "
您要赠送的系统道具并不存在。"
Exit Sub
Else
ToolsName = Rs(0)
End If
Set Rs=Dvbbs.Execute("Select UserID,UserName,UserMoney,UserTicket From Dv_User Where UserName='"&SendName&"'")
If Rs.Eof And Rs.Bof Then
Errmsg=ErrMsg + "
您要赠送的目标用户名并不存在。"
founderr=True
Exit Sub
Else
'更新用户道具记录
Set Trs=Dvbbs.Plus_Execute("Select ID From [Dv_Plus_Tools_Buss] Where UserID="& Rs(0) &" and ToolsID="& ToolsID)
If Trs.Eof And Trs.Bof Then
Sql = "Insert Into [Dv_Plus_Tools_Buss] (UserID,UserName,ToolsID,ToolsName,ToolsCount) Values ("&Rs(0)&",'"&SendName&"',"&ToolsID&",'"&ToolsName&"',"&ToolsNum&")"
Dvbbs.Plus_Execute(Sql)
Else
Sql = "Update [Dv_Plus_Tools_Buss] Set ToolsCount = ToolsCount+"&ToolsNum&" Where UserID="& Rs(0) &" and ToolsID="& ToolsID
Dvbbs.Plus_Execute(Sql)
End If
'插入论坛日志
Dvbbs.Plus_Execute("Insert into [Dv_MoneyLog] (ToolsID,AddUserName,AddUserID,Log_IP,Log_Type,BoardID,Conect,HMoney) values ("&ToolsID&",'"&Rs("UserName")&"','"&Rs("UserID")&"','"&Dvbbs.UserTrueIP&"',0,-1,'"&Dvbbs.Membername&"管理员赠送"&ToolsNum&"个"&ToolsName&"道具给"&Rs("UserName")&"用户。','"&Rs("UserMoney")&"|"&Rs("UserTicket")&"')")
End If
Rs.Close
Set Rs=Nothing
Sql = "Update [Dv_Plus_Tools_Info] Set UserStock = UserStock+"&ToolsNum&" Where ID="& ToolsID
Dvbbs.Plus_Execute(Sql)
Trs.Close
Set Trs=Nothing
End If
If ToolsMoney<>0 And SendName<>"" Then
Set Rs=Dvbbs.Execute("Select UserID,UserName,UserMoney,UserTicket From Dv_User Where UserName='"&SendName&"'")
If Rs.Eof And Rs.Bof Then
Errmsg=ErrMsg + "
您要赠送的目标用户名并不存在。"
founderr=True
Exit Sub
Else
Dvbbs.Execute("Update Dv_User Set UserMoney = UserMoney + "&ToolsMoney&" Where UserID="&Rs(0))
'插入论坛日志
Dvbbs.Plus_Execute("Insert into [Dv_MoneyLog] (ToolsID,AddUserName,AddUserID,Log_IP,Log_Type,BoardID,Conect,HMoney) values ("&ToolsID&",'"&Rs("UserName")&"','"&Rs("UserID")&"','"&Dvbbs.UserTrueIP&"',0,-1,'"&Dvbbs.Membername&"管理员赠送"&ToolsMoney&"个金币给"&Rs("UserName")&"用户。','"&Rs("UserMoney")+ToolsMoney&"|"&Rs("UserTicket")&"')")
End If
End If
Dv_Suc("赠送用户道具成功！")
Footer()
Response.End
End Sub
%>