<!--#include file =conn.asp-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="Dv_plus/Tools/plus_Tools_const.asp" -->
<%
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()
%>
	<table border="0" width="<%=Dvbbs.mainsetting(0)%>" cellpadding=2 cellspacing=0 align=center>
		<tr>
		<td width="180" valign=top>
		<%UserInfo()%>
		</td>
		<td width=5></td>
		<td width="*" valign=top>
<table border="0" cellpadding=3 cellspacing=1 align=center class=Tableborder1 Style="Width:100%">
	<tr>
	<th height=23>系统道具列表</th></tr>
	<tr><td height=23 class=Tablebody1 style="line-height: 15px"><B>说明</B>：<BR>
	1、论坛用户可通过道具中心进行论坛道具的购买、转让等操作，道具的详细使用说明点击购买后可查看<BR>
	2、金币的获取方式为论坛金钱、经验和魅力的转换，以及版主或管理员的奖励，或是会员转让和赠与<BR>
	3、道具所具备的功能、价格、使用限制等可参考相应道具的详细信息中的说明<BR>
	4、针对用户使用的道具通常是点击相应的用户进入该用户资料后点击使用道具连接再选择所使用的道具<BR>
	5、针对帖子使用的道具在进入帖子浏览页面中选择相应的道具使用图片和道具使用连接<BR>
	6、点券的获取方式为在论坛发送手机短信，得到返回验证字串后将相应点券充值到论坛帐号中，前提是论坛必须开放手机短信服务</td></tr>
	<tr><td height=23 class=Tablebody2 align=center>欢迎购买论坛道具，享受更多有趣的论坛功能！</td>
	<tr><td height=25 class=Tablebody1 align=center>
	<a href="UserPay.asp?action=UserCenter"><font color=red>论坛金币转换</font></a> | 
	<a href="plus_Tools_Center.asp?action=UserBussTools_List&UserID=<%=Dvbbs.UserID%>">我出售的道具</a> | 
	<a href="UserPay.asp?action=UserToolsLog_List">道具操作记录</a> | 
	<a href="javascript:openScript('plus_Tools_InfoSetting.asp?action=0&ToUserID=<%=Dvbbs.UserID%>',600,450)">使用个人道具</a> | 
	<a href="UserPay.asp"><font color=black>购买论坛点券</font></a></td>
	</tr>
</table>
		</td>
		</tr>
		<tr><td colspan=3><hr style="BORDER: #807d76 1px dotted;height:1px;">
		<%
		Select Case Request.QueryString("action")
			Case "UserTools_List":UserTools_List
			Case "UserBussTools_List":UserBussTools_List
			Case "UserCenter":UserCenter
			Case Else
				Tools_List()
		End Select
		%>
		</td></tr>
	</table>
<%
End Sub

'--------------------------------------------------------------------------------
'道具列表
'--------------------------------------------------------------------------------
Sub Tools_List()
	Response.Write "<script language=""JavaScript"" src=""inc/Pagination.js""></script>"
%>
<table border="0" cellpadding=3 cellspacing=0 align=center Style="Width:100%"><tr>
<%
	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 "<tr><td class=""Tablebody1"" colspan=""5"" align=center>道具还未添加！</td></tr></table>"
		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) & "..."
	%>
<td class=TableBody1 valign=Top width="33%">
	<table border=0 cellpadding=2 cellspacing=1 class=Tableborder2 Style="Width:100%" align=center>
		<tr><th height=20 colspan="3"><%=Server.Htmlencode(SQL(1,i))%></th></tr>
		<tr><td height=20 colspan="3" Class=TableBody1 title="<%=Server.Htmlencode(ToolsTitle&"")%>"><li><%=Server.Htmlencode(SQL(2,i)&"")%></td></tr>
		<tr>
		  <td align=center Width="50%" rowspan="5"><%If Cint(SQL(3,i))=1 Then Response.Write "<A href=""JavaScript:openScript('plus_Tools_pay.asp?action=BuyTools&ToolsID="&SQL(0,i)&"',600,450)"">"%><img src="<%=ToolsImg%>" border=0 ><%If Cint(SQL(3,i))=1 Then Response.Write "</a>"%></td>
		  <td width="15%" height="20" Class=TableBody1>金币</td>
		  <td width="35%" height="20" Class=TableBody1><font color="<%=Dvbbs.mainsetting(1)%>"><%= SQL(7,i) %></font></td>
		</tr>
		<tr>
		  <td Class=TableBody1>点券</td>
		  <td Class=TableBody1><font color="<%=Dvbbs.mainsetting(1)%>"><%= SQL(6,i) %></font></td>
		</tr>
		<tr>
		<td Class=TableBody1>购买<br>方式</td>
		<td Class=TableBody1><%=Dv_Tools.BuyType(SQL(8,i))%></td>
		</tr>
		<tr>
		<td Class=TableBody1>系统<br>库存</td>
		<td Class=TableBody1>
		<%
		If SQL(4,i)<0 Then
			Response.Write "系统道具"
		Else
			Response.Write SQL(4,i)
		End If
		%></td>
		</tr>
		<tr>
		<td colspan="2" Class=TableBody1 align=center>
			<%
			If Cint(SQL(3,i))=1 Then
				Response.Write "<A href=""JavaScript:openScript('plus_Tools_pay.asp?action=BuyTools&ToolsID="&SQL(0,i)&"',600,450)"">购买</a>"
			Else
				Response.Write "关闭"
			End If
			%>
		</td>
		</tr>
	</table>
</td>
	<%
	If ii=2 Then
		Response.Write "</tr><tr>"
		ii=0
	Else
		ii=ii+1
	End If
	'If i mod 3 = 1 Then Response.Write "</tr><tr>"
	Next
	Response.Write "</tr></table>"
	Response.Write "<SCRIPT>PageList("&Page&",3,"&MaxRows&","&CountNum&","""&PageSearch&""",1);</SCRIPT>"
End Sub


'--------------------------------------------------------------------------------
'道具转让列表
'--------------------------------------------------------------------------------
Sub Userbuy_List

End Sub

'--------------------------------------------------------------------------------
'用户道具列表
'--------------------------------------------------------------------------------
Sub UserTools_List
%>
<table border="0" cellpadding=3 cellspacing=1 align=center class=Tableborder1 Style="Width:98%">
	<tr>
	<th height=23 width="20%">道具名称</th>
	<th width="15%">道具数量</th>
	<th width="15%">出售数量</th>
	<th width="15%">金币</th>
	<th width="15%">点券</th>
	<th width="20%">操作</th>
	</tr>
<%
	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 "<tr><td class=""Tablebody1"" colspan=""6"" align=center>道具还未添加！</td></tr></table>"
		Exit Sub
	End If
	Rs.close:Set Rs = Nothing

	'输出道具列表
	For i=0 To Ubound(SQL,2)
	ToolsPrice = "金币：<font color="& Dvbbs.mainsetting(1) &">"& SQL(8,i) &"</font> + 点券：<font color="& Dvbbs.mainsetting(1) &">"& SQL(9,i) &"</font>"
%>
	<tr>
	<td class="Tablebody1" align=center height=24><%=SQL(4,i)%></td>
	<td class="Tablebody1" align=center><%=SQL(5,i)%></td>
	<td class="Tablebody1" align=center><%=SQL(6,i)%></td>
	<td class="Tablebody1" align=center><font color="<%= Dvbbs.mainsetting(1) %>"><%=SQL(8,i)%></font></td>
	<td class="Tablebody1" align=center><font color="<%= Dvbbs.mainsetting(1) %>"><%=SQL(9,i)%></font></td>
	<td class="Tablebody1" align=center>
	<A href="JavaScript:openScript('plus_Tools_pay.asp?action=SellTools&ToolsID=<%=SQL(3,i)%>&BussID=<%=SQL(0,i)%>',600,450)">转让</A></td>
	</tr>
<%
	Next
	Response.Write "</table>"
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 "<script language=""JavaScript"" src=""inc/Pagination.js""></script>"

	If Request.QueryString("UserID")<>"" and IsNumeric(Request.QueryString("UserID")) Then _
	SqlString = "and UserID="&Dv_Tools.CheckNumeric(Request.QueryString("UserID"))

%>
<table border="0" cellpadding=3 cellspacing=1 align=center class=Tableborder1 Style="Width:98%">
	<tr>
	<th height=23 width="20%">道具名称</th>
	<th width="15%">出售者</th>
	<th width="15%">金币</th>
	<th width="15%">点券</th>
	<th width="15%">出售数量</th>
	<th width="20%">操作</th>
	</tr>
<%
	Response.Write "<tr><td class=""Tablebody1"" colspan=""6"" height=24><B>小贴士</B>：自己出售的道具不想继续出售只需点购买然后填写回购的数量即可，此操作将不扣除您的货币</td></tr>"
	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 "<tr><td class=""Tablebody1"" colspan=""6"" align=center>道具还未添加！</td></tr></table>"
		Exit Sub
	End If
	Rs.close:Set Rs = Nothing
	
	'输出道具列表
	For i=0 To Ubound(SQL,2)
	ToolsPrice = "金币：<font color="& Dvbbs.mainsetting(1) &">"& SQL(8,i) &"</font> + 点券：<font color="& Dvbbs.mainsetting(1) &">"& SQL(9,i) &"</font>"
%>
	<tr>
	<td class="Tablebody1" align=center height=24><%=SQL(4,i)%></td>
	<td class="Tablebody1" align=center><%=SQL(2,i)%></td>
	<td class="Tablebody1" align=center><font color="<%= Dvbbs.mainsetting(1) %>"><%=SQL(8,i)%></font></td>
	<td class="Tablebody1" align=center><font color="<%= Dvbbs.mainsetting(1) %>"><%=SQL(9,i)%></font></td>
	<td class="Tablebody1" align=center><%=SQL(6,i)%></td>
	<td class="Tablebody1" align=center><A href="JavaScript:openScript('plus_Tools_pay.asp?action=BuyUserTools&ToolsID=<%=SQL(3,i)%>&BussID=<%=SQL(0,i)%>',600,450)">购买</A></td>
	</tr>
<%
	Next
	Response.Write "</table>"
	PageSearch=Replace(Replace(PageSearch,"\","\\"),"""","\""")
	Response.Write "<SCRIPT>PageList("&Page&",3,"&MaxRows&","&CountNum&","""&PageSearch&""",1);</SCRIPT>"
End Sub
%>