您没有管理本页面的权限。"
dvbbs_error()
Else
Select Case Trim(Request("action"))
Case "Setting" : Tools_Setting
Case "AllStarSetting" : AllStarSetting
Case "Editinfo" : AddTools
Case "SaveTools" : SaveTools
Case "List" : Tools_List()
Case "UpdateUserStock" : UpdateUserStock
Case Else
Tools_List()
End Select
If founderr then call dvbbs_error()
footer()
End If
'顶部标题
Sub Main_head()
%>
<%
End Sub
Sub Tools_Setting()
Response.Redirect "setting.asp#settingxu"
End Sub
'道具列表
Sub Tools_List()
Dim Orders
Select case Trim(Request.QueryString("orders"))
Case "0" : Orders = "SysStock"
Case "1" : Orders = "UserMoney"
Case "2" : Orders = "UserStock"
Case "3" : Orders = "IsStar"
Case Else : Orders = "SysStock"
End Select
%>
<%
Select Case SQL(8,i)
Case 0
Response.Write SQL(6,i)
Case 1
Response.Write SQL(7,i)
Case 2
Response.Write SQL(6,i) & " And " & SQL(7,i)
Case 3
Response.Write SQL(6,i) & " Or " & SQL(7,i)
End Select
%>
<%
If SQL(4,i)="-1" Then
Response.Write "系统"
Else
Response.Write SQL(4,i)
End If
%>
<%=SQL(5,i)%>
value="<%=SQL(0,i)%>">
<%
Next
Response.Write "
"
End Sub
'批量修改道具开启或关闭设置
Sub AllStarSetting()
Dim EditID,Sql
EditID = Trim(Request.Form("Star"))
If CheckID(EditID) = False Then
Response.Write "修改中止，请确认提交的参数是否正确后重新提交！<<返回上一页"
Exit Sub
End If
'先将启动设置还原为关闭状态
Sql = "Update [Dv_Plus_Tools_Info] Set IsStar=0"
Dvbbs.Plus_Execute(Sql)
'开启所选项
Sql = "Update [Dv_Plus_Tools_Info] Set IsStar=1 Where ID in (" & EditID & ")"
Dvbbs.Plus_Execute(Sql)
Dv_suc("批量修改道具开关设置成功！")
End Sub
'添加，修改道具信息
Sub AddTools()
Dim EditID,Rs,Sql
EditID = Trim(Request.QueryString("EditID"))
If EditID<>"" and IsNumeric(EditID) Then
EditID = Cint(EditID)
Else
Response.Write "修改中止，请确认提交的参数是否正确后重新提交！<<返回上一页"
Exit Sub
End If
'ID=0 ,ToolsName=1 ,ToolsInfo=2 ,IsStar=3 ,SysStock=4 ,UserStock=5 ,UserMoney=6 ,UserPost=7 ,UserWealth=8 ,UserEp=9 ,UserCp=10 ,UserGroupID=11 ,BoardID=12,UserTicket=13,BuyType=14,ToolsImg=15,ToolsSetting=16
Dim ToolsSetting
Sql = "Select ID,ToolsName,ToolsInfo,IsStar,SysStock,UserStock,UserMoney,UserPost,UserWealth,UserEp,UserCp,UserGroupID,BoardID,UserTicket,BuyType,ToolsImg,ToolsSetting From [Dv_Plus_Tools_Info] Where ID="& EditID
Set Rs = Dvbbs.Plus_Execute(Sql)
If Rs.Eof Then
Response.Write "查找的道具数据不存在！<<返回上一页"
Exit Sub
Else
Sql = Rs.GetString(,1, "§§§", "", "")
Sql = Split(Sql,"§§§")
End If
Rs.Close
Set Rs = Nothing
ToolsSetting = Split(Sql(16),",")
If SQL(15)="" Then SQL(15)="Dv_plus/Tools/pic/None.jpg"
%>
<%
End Sub
'保存添加，修改道具信息
Sub SaveTools()
Dim EditID,ToolsName,ToolsInfo,ToolsImg
Dim ToolsGroupID,ToolsBoardID
Dim Rs,Sql
Dim ToolsSetting,ChanSetting
EditID = CheckNumeric(Request.Form("EditID"))
ToolsName = Left(Trim(Request.Form("ToolsName")),50)
ToolsInfo = Left(Trim(Request.Form("ToolsInfo")),250)
ToolsImg = Left(Trim(Request.Form("ToolsImg")),150)
ToolsGroupID = Trim(Replace(Request.Form("TrueToolsGroupID")," ",""))
ToolsBoardID = Trim(Replace(Request.Form("TrueToolsBoardID")," ",""))
If Right(ToolsGroupID,1)="," Then ToolsGroupID = Left(ToolsGroupID,Len(ToolsGroupID)-1)
If Right(ToolsBoardID,1)="," Then ToolsBoardID = Left(ToolsBoardID,Len(ToolsBoardID)-1)
If EditID = 0 Then
Response.Write "更新的道具数据不存在！<<返回上一页"
Exit Sub
End If
If CheckID(ToolsGroupID)=False Then ToolsGroupID = ""
If CheckID(ToolsBoardID)=False Then ToolsBoardID = ""
If ToolsName="" or ToolsInfo="" Then
Response.Write "修改中止，道具名称或简介不能为空！<<返回上一页"
Exit Sub
Else
ToolsName = Replace(ToolsName,"§§§","")
ToolsInfo = Replace(ToolsInfo,"§§§","")
End If
For i=0 To 60
If Request.Form("ToolsSetting("&i&")")="" Then
ChanSetting = 0
Else
ChanSetting = Replace(Request.Form("ToolsSetting("&i&")"),",","")
End If
If i = 0 Then
ToolsSetting = ChanSetting
Else
ToolsSetting = ToolsSetting & "," & ChanSetting
End If
Next
Set Rs = Server.Createobject("adodb.recordset")
Sql = "Select * From [Dv_Plus_Tools_Info] where ID="& EditID
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
Response.Write "查找的道具数据不存在！<<返回上一页"
Exit Sub
Else
Rs("ToolsName") = ToolsName
Rs("ToolsInfo") = ToolsInfo
Rs("ToolsImg") = ToolsImg
Rs("IsStar") = CheckNumeric(Request.Form("IsStar"))
Rs("SysStock") = CheckNumeric(Request.Form("ToolsStock"))
Rs("UserTicket") = CheckNumeric(Request.Form("UserTicket"))
Rs("UserMoney") = CheckNumeric(Request.Form("ToolsMoney"))
Rs("UserPost") = CheckNumeric(Request.Form("ToolsPost"))
Rs("UserWealth") = CheckNumeric(Request.Form("ToolsWealth"))
Rs("UserEp") = CheckNumeric(Request.Form("ToolsEP"))
Rs("UserCp") = CheckNumeric(Request.Form("ToolsCP"))
Rs("UserGroupID") = ToolsGroupID
Rs("BoardID") = ToolsBoardID
Rs("BuyType") = CheckNumeric(Request.Form("ToolsBuyType"))
Rs("ToolsSetting") = ToolsSetting
Rs.Update
End If
Rs.Close
Set Rs = Nothing
Dvbbs.Plus_Execute("UPDATE [Dv_Plus_Tools_Buss] Set ToolsName ='"& Dvbbs.Checkstr(ToolsName) &"' where ToolsID="&EditID)
Dv_suc(ToolsName&"道具开关设置成功！")
End Sub
'删除道具信息
Sub DllTools()
End Sub
'更新道具的用户拥有库存
Sub UpdateUserStock()
Dim Rs,Sql,Totals
If IsSqlDataBase = 1 Then
Sql = "Update [Dv_Plus_Tools_Info] Set UserStock = (Select Count(*) From [Dv_Plus_Tools_Buss] where ToolsID=Dv_Plus_Tools_Info.ID)"
Dvbbs.Plus_Execute(Sql)
Else
Sql = "Select ID From [Dv_Plus_Tools_Info]"
Set Rs = Dvbbs.Plus_Execute(Sql)
Do while Not Rs.eof
Totals = Dvbbs.Plus_Execute("Select Count(*) From [Dv_Plus_Tools_Buss] where ToolsID="&Rs(0))(0)
Dvbbs.Plus_Execute("Update [Dv_Plus_Tools_Info] Set UserStock = "& Totals &" where id="&Rs(0))
Rs.movenext
loop
Rs.Close
Set Rs = Nothing
End If
Dv_suc("用户拥有库存更新成功！")
End Sub
Function CheckID(CHECK_ID)
Dim Fixid
CheckID = False
Fixid = Replace(CHECK_ID,",","")
Fixid = Trim(Replace(Fixid," ",""))
If IsNumeric(Fixid) and Fixid<>"" Then CheckID = True
End Function
Function CheckNumeric(CHECK_ID)
If CHECK_ID<>"" and IsNumeric(CHECK_ID) Then
CHECK_ID = cCur(CHECK_ID)
Else
CHECK_ID = 0
End If
CheckNumeric = CHECK_ID
End Function
%>