📄 plus_tools_pay.asp
字号:
<!--#include file =conn.asp-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="Dv_plus/Tools/plus_Tools_const.asp" -->
<%
Dim Action,SaleUserName,InputDisable,ToolsCount
Dim TheUserToolsNum
SaleUserName = "系统"
InputDisable = " Disabled "
Action = Trim(Request("action"))
Dvbbs.stats = "论坛道具操作"
Select Case Action
Case "BuyTools"
Dvbbs.stats = Dvbbs.stats & "-购买系统道具"
Case "BuyUserTools"
Dvbbs.stats = Dvbbs.stats & "-购买用户道具"
Case "SellTools"
Dvbbs.stats = Dvbbs.stats & "-出售道具"
Case "SaveBuyTools","SaveSellTools"
Dvbbs.stats = Dvbbs.stats & "-保存道具操作"
End Select
Dvbbs.LoadTemplates("")
Dvbbs.head()
Dv_Tools.ChkToolsLogin
'若是用户购买或转让，更改道具价格为用户自定义价格
If Request("BussID")<>"" and IsNumeric(Request("BussID")) Then
Dim Rs,Sql,i,BussID,SaleUserID,SaleToolsID
BussID = Dv_Tools.CheckNumeric(Request("BussID"))
Sql = "Select ToolsCount,SaleCount,SaleMoney,SaleTicket,UserID,UserName,ToolsID From [Dv_Plus_Tools_Buss] Where ID="& BussID
Set Rs = Dvbbs.Plus_Execute(Sql)
If Rs.Eof Then
Dv_Tools.ShowErr(3)
Else
ToolsCount = Clng(Rs(0))
Dv_Tools.ToolsInfo(4) = Clng(Rs(1))
Dv_Tools.ToolsInfo(6) = Clng(Rs(2))
Dv_Tools.ToolsInfo(13) = Clng(Rs(3))
SaleUserID = Clng(Rs(4))
SaleUserName = Dvbbs.iHtmlEnCode(Rs(5))
SaleToolsID = Clng(Rs(6))
End If
Rs.Close : Set Rs = Nothing
End If
If Action = "SellTools" Then InputDisable = ""
'相关执行信息
Select Case Action
Case "BuyTools","BuyUserTools","SellTools"
'道具信息
ToolsInfo()
BuyTools
Case "SaveBuyTools"
SaveBuyTools
'道具信息
ToolsInfo()
Case "SaveSellTools"
SaveSellTools
'道具信息
ToolsInfo()
Case "SaveBuyUserTools"
SaveBuyUserTools
'道具信息
ToolsInfo()
End Select
Dvbbs.mainsetting(0)="98%"
Dvbbs.Footer()
'道具信息
Sub ToolsInfo()
If Dv_Tools.ToolsInfo(15)="" Then Dv_Tools.ToolsInfo(15)="Dv_plus/Tools/pic/None.jpg"
Set Rs = Dvbbs.Plus_Execute("Select ToolsCount,SaleCount From [Dv_Plus_Tools_Buss] Where UserID="& Dvbbs.UserID &" and ToolsID="& Dv_Tools.ToolsID)
If Rs.Eof And Rs.Bof Then
TheUserToolsNum = 0
Else
TheUserToolsNum = Rs(0) + Rs(1)
End If
Rs.Close
Set Rs=Nothing
%>
<table border="0" cellpadding=3 cellspacing=1 align=center class=Tableborder1 Style="Width:99%">
<form name=PlusTools method=post>
<tr>
<th height="23" colspan="3"><%=Dv_Tools.ToolsInfo(1)%> -- 道具信息</th>
</tr>
<tr>
<td width="30%" rowspan="18" class=Tablebody1 align=center>
<font size=6><b><%=Dv_Tools.ToolsInfo(1)%></b></font>
<br><img src="<%=Dv_Tools.ToolsInfo(15)%>" border=0>
</td>
<td width="70%" height="20" class=Tablebody1 colspan="2">道具说明：<hr style="BORDER: #807d76 1px dotted;height:1px;"><%=Dv_Tools.ToolsInfo(2)%></td>
</tr>
<tr>
<th height="23" class=Tablebody1 colspan="2">购买说明</th>
</tr>
<tr>
<td width="30%" height="20" class=Tablebody1 align=Right>需要金币：</td>
<td width="40%" class=Tablebody1><font color="<%= Dvbbs.mainsetting(1) %>"><B><%=Dv_Tools.ToolsInfo(6)%></B></font></td>
</tr>
<tr>
<td height="20" class=Tablebody1 align=Right>需要点券：</td>
<td class=Tablebody1><font color="<%= Dvbbs.mainsetting(1) %>"><B><%=Dv_Tools.ToolsInfo(13)%></B></font></td>
</tr>
<tr>
<td height="20" class=Tablebody1 align=Right>购买方式：</td>
<td class=Tablebody1>
<%
If Dv_Tools.ToolsInfo(4)<=0 Then
Response.Write "暂停购买"
Else
Response.Write Dv_Tools.BuyType(Dv_Tools.ToolsInfo(14))
End IF
%>
</td>
</tr>
<tr>
<td height="23" class=Tablebody1 align=Right>可购买道具数量：</td>
<td class=Tablebody1><B><%=Dv_Tools.ToolsInfo(4)%></B></td>
</tr>
<tr>
<th height="23" class=Tablebody1 colspan="2">使用限制</th>
</tr>
<tr>
<td height="23" class=Tablebody1 align=Right>使用用户帖子数至少：</td>
<td class=Tablebody1><%=Dv_Tools.ToolsInfo(7)%></td>
</tr>
<tr>
<td height="23" class=Tablebody1 align=Right>使用用户金钱数至少：</td>
<td class=Tablebody1><%=Dv_Tools.ToolsInfo(8)%></td>
</tr>
<tr>
<td height="23" class=Tablebody1 align=Right>使用用户经验值至少：</td>
<td class=Tablebody1><%=Dv_Tools.ToolsInfo(9)%></td>
</tr>
<tr>
<td height="23" class=Tablebody1 align=Right>使用用户魅力值至少：</td>
<td class=Tablebody1><%=Dv_Tools.ToolsInfo(10)%></td>
</tr>
<tr>
<td height="23" class=Tablebody1 align=Right>目标用户帖子数至少：</td>
<td class=Tablebody1><%=Dv_Tools.ToolsSetting(0)%></td>
</tr>
<tr>
<td height="23" class=Tablebody1 align=Right>目标用户金钱数至少：</td>
<td class=Tablebody1><%=Dv_Tools.ToolsSetting(1)%></td>
</tr>
<tr>
<td height="23" class=Tablebody1 align=Right>目标用户经验值至少：</td>
<td class=Tablebody1><%=Dv_Tools.ToolsSetting(2)%></td>
</tr>
<tr>
<td height="23" class=Tablebody1 align=Right>目标用户魅力值至少：</td>
<td class=Tablebody1><%=Dv_Tools.ToolsSetting(3)%></td>
</tr>
<tr>
<td height="23" class=Tablebody1 align=Right>允许使用的用户组或等级：</td>
<td class=Tablebody1>
<Select Name="ToolsGroupID" Size=1>
<%
Set Rs=Dvbbs.Execute("Select UserGroupID,UserTitle From Dv_UserGroups Where UserGroupID In ("&Dv_Tools.ToolsInfo(11)&") Order By UserGroupID")
If Rs.Eof And Rs.Bof Then
Response.Write "<option value=0>没有用户可使用此道具</option>"
End If
Do While Not Rs.Eof
Response.Write "<option value="&Rs(0)&">"&Server.HtmlEncode(Rs(1))&"</option>"
Rs.MoveNext
Loop
Rs.Close
Set Rs=Nothing
%>
</Select>
<!--<INPUT TYPE="hidden" NAME="ToolsGroupID" value="">
<input type="button" value="详细查看" onclick="PlusOpen('plus_Tools_InfoSetting.asp?orders=0&id=<%=Dv_Tools.ToolsID%>',650,500)">--></td>
</tr>
<tr>
<td height="23" class=Tablebody1 align=Right>允许使用的版块：</td>
<td class=Tablebody1>
<Select Name=ToolsBoardID Size=1>
<%
Dim ToolsBoardList,ii,iii
ii = 0
ToolsBoardList="," & Dv_Tools.ToolsInfo(12) & ","
Dim Nodelist,Node
Set Nodelist=Dvbbs.BoardXML.documentElement.getElementsByTagName("board")
For Each Node in Nodelist
If InStr(ToolsBoardList,"," & Node.attributes.getNamedItem("boardid").text & ",") > 0 Then
ii = ii + 1
Response.Write "<option value=" & Node.attributes.getNamedItem("boardid").text & ">"
Select Case Clng(Node.attributes.getNamedItem("depth").text)
Case 0
Response.Write "╋"
Case 1
Response.Write " ├"
End Select
If Clng(Node.attributes.getNamedItem("depth").text)>1 Then
For ii=2 To Clng(Node.attributes.getNamedItem("depth").text)
Response.Write " │"
Next
Response.Write " ├"
End If
Response.Write " " & Node.attributes.getNamedItem("boardtype").text & "</option>"
End If
Next
If ii = 0 Then Response.Write "<option value=0>没有版面可使用此道具</option>"
%>
</Select>
<!--<INPUT TYPE="hidden" NAME="ToolsBoardID" value="">
<input type="button" value="详细查看" onclick="PlusOpen('plus_Tools_InfoSetting.asp?orders=1&id=<%=Dv_Tools.ToolsID%>',650,500)">--></td>
</tr>
<tr>
<td height="23" colspan="2" class=Tablebody2>
</td>
</tr>
</form>
</table>
<%
End Sub
'---------------------------------------------------------------
'道具购买
'---------------------------------------------------------------
Sub BuyTools()
Dim ReAction,ActName
Select Case Action
Case "BuyTools"
ReAction = "SaveBuyTools"
ActName = "购买"
Case "BuyUserTools"
ReAction = "SaveBuyUserTools"
ActName = "购买"
Case "SellTools"
ReAction = "SaveSellTools"
ActName = "转让"
End Select
%>
<form name=PlusTools action="?action=<%=ReAction%>" method=post>
<table border="0" cellpadding=3 cellspacing=1 align=center class=Tableborder1 Style="Width:99%">
<tr>
<th height="23" colspan="2">道具交易操作</th>
</tr>
<tr>
<td height="23" class=Tablebody1 colspan=2>
您目前有 <B><%=Dvbbs.MyUserInfo(37)%></B> 个金币和 <B><%=Dvbbs.MyUserInfo(38)%></B> 张点券，拥有该道具 <B><%=TheUserToolsNum%></B> 个</td>
</tr>
<%
If Action = "BuyTools" Then
%>
<tr>
<td height="23" class=Tablebody1 width="30%">购买方式：</td>
<td class=Tablebody1>
<%
If Dv_Tools.ToolsInfo(4)<=0 Then
Response.Write "暂停购买"
Else
Response.Write Dv_Tools.BuyType(Dv_Tools.ToolsInfo(14))
End IF
%>
</td>
</tr>
<%
End If
%>
<tr>
<td height="23" class=Tablebody1 width="30%">出售方：</td>
<td class=Tablebody1><%=SaleUserName%></td>
</tr>
<tr>
<td height="23" class=Tablebody1 width="30%"><%=ActName%>数量：</td>
<td class=Tablebody1>
<INPUT TYPE="Text" name="ToolsSum" value="1"><%'=Dv_Tools.ToolsInfo(4)%>
</td>
</tr>
<tr>
<td height="23" class=Tablebody1 width="30%"><%=ActName%>需要金币单价：</td>
<td class=Tablebody1>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -