<% Dvbbs.stats="论坛道具交易中心" Dvbbs.LoadTemplates("") Dvbbs.nav() If DVbbs.BoardID=0 then Dvbbs.Head_var 0,0,"道具交易中心","plus_Tools_Center.asp" End If If Dvbbs.userid=0 Then Dvbbs.AddErrCode(6):Dvbbs.Showerr() '判断用户是否在线。 If DVbbs.Forum_Setting(91)="0" Then Dv_Tools.ShowErr(2) '交易中心已经关闭 CenterMain() Dvbbs.Showerr() Dvbbs.Footer() '-------------------------------------------------------------------------------- '-------------------------------------------------------------------------------- Sub CenterMain() Tools_Nav_Link() %>
<%UserInfo()%>
系统道具列表
说明
1、论坛用户可通过道具中心进行论坛道具的购买、转让等操作,道具的详细使用说明点击购买后可查看
2、金币的获取方式为论坛金钱、经验和魅力的转换,以及版主或管理员的奖励,或是会员转让和赠与
3、道具所具备的功能、价格、使用限制等可参考相应道具的详细信息中的说明
4、针对用户使用的道具通常是点击相应的用户进入该用户资料后点击使用道具连接再选择所使用的道具
5、针对帖子使用的道具在进入帖子浏览页面中选择相应的道具使用图片和道具使用连接
欢迎购买论坛道具,享受更多有趣的论坛功能!
论坛金币转换 | 我出售的道具 | 道具操作记录 | 使用个人道具 | 购买论坛点券

<% Select Case LCase(Request.QueryString("action")) Case "usertools_list":UserTools_List Case "userbusstools_list":UserBussTools_List Case "usercenter":UserCenter Case Else Tools_List() End Select %>
<% End Sub '-------------------------------------------------------------------------------- '道具列表 '-------------------------------------------------------------------------------- Sub Tools_List() Response.Write "" %> <% Dim Rs,Sql,Orders,i,ii Dim ToolsTitle Dim Page,MaxRows,Endpage,CountNum,PageSearch,SqlString PageSearch = "action=" Endpage = 0 MaxRows = 9 Page = Request("Page") If IsNumeric(Page) = 0 or Page="" Then Page=1 Page = Clng(Page) ii=0 Dim ToolsPrice,ToolsImg Orders = "SysStock Desc" Sql = "Select ID,ToolsName,ToolsInfo,IsStar,SysStock,UserStock,UserTicket,UserMoney,BuyType,ToolsImg From [Dv_Plus_Tools_Info] ORDER BY "& Orders 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 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) 'SQL=Rs.GetRows(-1) Else Response.Write "
道具还未添加!
" Exit Sub End If Rs.close:Set Rs = Nothing '输出道具列表 For i=0 To Ubound(SQL,2) If SQL(9,i)<>"" Then ToolsImg = Server.Htmlencode(SQL(9,i)) Else ToolsImg = "Dv_plus/Tools/pic/None.jpg" End If ToolsTitle = SQL(2,i) If Len(SQL(2,i))>18 Then SQL(2,i) = Left(SQL(2,i),16) & "..." %>
<%=Server.Htmlencode(SQL(1,i))%>
">
  • <%=Server.Htmlencode(SQL(2,i)&"")%>
  • <%If Cint(SQL(3,i))=1 Then Response.Write ""%><%If Cint(SQL(3,i))=1 Then Response.Write ""%> 金币 <%= SQL(7,i) %>
    点券 <%= SQL(6,i) %>
    购买
    方式
    <%=Dv_Tools.BuyType(SQL(8,i))%>
    系统
    库存
    <% If SQL(4,i)<0 Then Response.Write "系统道具" Else Response.Write SQL(4,i) End If %>
    <% If Cint(SQL(3,i))=1 Then Response.Write "购买" Else Response.Write "关闭" End If %>
    <% If ii=2 Then Response.Write "" ii=0 Else ii=ii+1 End If 'If i mod 3 = 1 Then Response.Write "" Next Response.Write "" Response.Write "" End Sub '-------------------------------------------------------------------------------- '道具转让列表 '-------------------------------------------------------------------------------- Sub Userbuy_List End Sub '-------------------------------------------------------------------------------- '用户道具列表 '-------------------------------------------------------------------------------- Sub UserTools_List %> <% Dim Rs,Sql,i,ToolsPrice Sql = "Select ID,UserID,UserName,ToolsID,ToolsName,ToolsCount,SaleCount,UpdateTime,SaleMoney,SaleTicket From [Dv_Plus_Tools_Buss] where UserID="& Dvbbs.UserID &" ORDER BY ToolsCount Desc" Set Rs = Dvbbs.Plus_Execute(Sql) If Not Rs.eof Then SQL=Rs.GetRows(-1) Else Response.Write "
    道具名称 道具数量 出售数量 金币 点券 操作
    道具还未添加!
    " Exit Sub End If Rs.close:Set Rs = Nothing '输出道具列表 For i=0 To Ubound(SQL,2) ToolsPrice = "金币:"& SQL(8,i) &" + 点券:"& SQL(9,i) &"" %> <%=SQL(4,i)%> <%=SQL(5,i)%> <%=SQL(6,i)%> <%=SQL(8,i)%> <%=SQL(9,i)%> 转让 <% Next Response.Write "" End Sub '-------------------------------------------------------------------------------- '用户道具转让中心列表 '-------------------------------------------------------------------------------- Sub UserBussTools_List Dim Rs,Sql,i,ToolsPrice Dim Page,MaxRows,Endpage,CountNum,PageSearch,SqlString PageSearch = "action=UserBussTools_List" Endpage = 0 MaxRows = 20 Page = Request("Page") If IsNumeric(Page) = 0 or Page="" Then Page=1 Page = Clng(Page) Response.Write "" If Request.QueryString("UserID")<>"" and IsNumeric(Request.QueryString("UserID")) Then _ SqlString = "and UserID="&Dv_Tools.CheckNumeric(Request.QueryString("UserID")) %> <% Response.Write "" Sql = "Select ID,UserID,UserName,ToolsID,ToolsName,ToolsCount,SaleCount,UpdateTime,SaleMoney,SaleTicket From [Dv_Plus_Tools_Buss] where SaleCount>0 "&SqlString&" ORDER BY SaleCount 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) ToolsPrice = "金币:"& SQL(8,i) &" + 点券:"& SQL(9,i) &"" %> <%=SQL(4,i)%> <%=SQL(2,i)%> <%=SQL(8,i)%> <%=SQL(9,i)%> <%=SQL(6,i)%> 购买 <% Next Response.Write "" PageSearch=Replace(Replace(PageSearch,"\","\\"),"""","\""") Response.Write "" End Sub %>