ATB Source Codes

Like webmaster forums Show plus_Tools_pay.asp Source code

Return Download Like webmaster forums: download plus_Tools_pay.asp Source code - Download Like webmaster forums Source code - Type:.asp
  1. <!--#include file =conn.asp-->
  2. <!-- #include file="inc/const.asp" -->
  3. <!-- #include file="Dv_plus/Tools/plus_Tools_const.asp" -->
  4. <%
  5. Dim Action,SaleUserName,InputDisable,ToolsCount
  6. Dim TheUserToolsNum
  7. SaleUserName = "系统"
  8. InputDisable = " Disabled "
  9. Action = Trim(Request("action"))
  10. Dvbbs.stats = "论坛道具操作"
  11.  
  12. Select Case Action
  13.         Case "BuyTools"
  14.                 Dvbbs.stats = Dvbbs.stats & "-购买系统道具"
  15.         Case "BuyUserTools"
  16.                 Dvbbs.stats = Dvbbs.stats & "-购买用户道具"
  17.         Case "SellTools"
  18.                 Dvbbs.stats = Dvbbs.stats & "-出售道具"
  19.         Case "SaveBuyTools","SaveSellTools"
  20.                 Dvbbs.stats = Dvbbs.stats & "-保存道具操作"
  21. End Select
  22.  
  23. Dvbbs.LoadTemplates("")
  24. Dvbbs.head()
  25. Dv_Tools.ChkToolsLogin
  26.  
  27. '若是用户购买或转让,更改道具价格为用户自定义价格
  28. If Request("BussID")<>"" and IsNumeric(Request("BussID")) Then
  29.         Dim Rs,Sql,i,BussID,SaleUserID,SaleToolsID
  30.         BussID = Dv_Tools.CheckNumeric(Request("BussID"))
  31.         Sql = "Select ToolsCount,SaleCount,SaleMoney,SaleTicket,UserID,UserName,ToolsID From [Dv_Plus_Tools_Buss] Where ID="& BussID
  32.         Set Rs = Dvbbs.Plus_Execute(Sql)
  33.         If Rs.Eof Then
  34.                 Dv_Tools.ShowErr(3)
  35.         Else
  36.                 ToolsCount = Clng(Rs(0))
  37.                 Dv_Tools.ToolsInfo(4) = Clng(Rs(1))
  38.                 Dv_Tools.ToolsInfo(6) = Clng(Rs(2))
  39.                 Dv_Tools.ToolsInfo(13) = Clng(Rs(3))
  40.                 SaleUserID = Clng(Rs(4))
  41.                 SaleUserName = Dvbbs.iHtmlEnCode(Rs(5))
  42.                 SaleToolsID = Clng(Rs(6))
  43.         End If
  44.         Rs.Close : Set Rs = Nothing
  45. End If
  46. If Action = "SellTools" Then InputDisable = ""
  47.  
  48. '相关执行信息
  49. Select Case Action
  50.         Case "BuyTools","BuyUserTools","SellTools"
  51.                 '道具信息
  52.                 ToolsInfo()
  53.                 BuyTools
  54.         Case "SaveBuyTools"
  55.                 SaveBuyTools
  56.                 '道具信息
  57.                 ToolsInfo()
  58.         Case "SaveSellTools"
  59.                 SaveSellTools
  60.                 '道具信息
  61.                 ToolsInfo()
  62.         Case "SaveBuyUserTools"
  63.                 SaveBuyUserTools
  64.                 '道具信息
  65.                 ToolsInfo()
  66. End Select
  67.  
  68. Dvbbs.mainsetting(0)="98%"
  69. Dvbbs.Footer()
  70.  
  71. '道具信息
  72. Sub ToolsInfo()
  73. If Dv_Tools.ToolsInfo(15)="" Then Dv_Tools.ToolsInfo(15)="Dv_plus/Tools/pic/None.jpg"
  74. Set Rs = Dvbbs.Plus_Execute("Select ToolsCount,SaleCount From [Dv_Plus_Tools_Buss] Where UserID="& Dvbbs.UserID &" and ToolsID="& Dv_Tools.ToolsID)
  75. If Rs.Eof And Rs.Bof Then
  76.         TheUserToolsNum = 0
  77. Else
  78.         TheUserToolsNum = Rs(0) + Rs(1)
  79. End If
  80. Rs.Close
  81. Set Rs=Nothing
  82. %>
  83. <table border="0" cellpadding=3 cellspacing=1 align=center class=Tableborder1 Style="Width:99%">
  84. <form name=PlusTools method=post>
  85.     <tr>
  86.       <th height="23" colspan="3"><%=Dv_Tools.ToolsInfo(1)%> -- 道具信息</th>
  87.     </tr>
  88.     <tr>
  89.       <td width="30%" rowspan="18" class=Tablebody1 align=center>
  90.           <font size=6><b><%=Dv_Tools.ToolsInfo(1)%></b></font>
  91.           <br><img src="<%=Dv_Tools.ToolsInfo(15)%>" border=0>
  92.           </td>
  93.       <td width="70%" height="20" class=Tablebody1 colspan="2">道具说明:<hr style="BORDER: #807d76 1px dotted;height:1px;"><%=Dv_Tools.ToolsInfo(2)%></td>
  94.     </tr>
  95.         <tr>
  96.       <th height="23" class=Tablebody1 colspan="2">购买说明</th>
  97.     </tr>
  98.         <tr>
  99.       <td width="30%" height="20" class=Tablebody1 align=Right>需要金币:</td>
  100.       <td width="40%" class=Tablebody1><font color="<%= Dvbbs.mainsetting(1) %>"><B><%=Dv_Tools.ToolsInfo(6)%></B></font></td>
  101.     </tr>
  102.         <tr>
  103.       <td height="20" class=Tablebody1 align=Right>需要点券:</td>
  104.       <td class=Tablebody1><font color="<%= Dvbbs.mainsetting(1) %>"><B><%=Dv_Tools.ToolsInfo(13)%></B></font></td>
  105.     </tr>
  106.     <tr>
  107.       <td height="20" class=Tablebody1 align=Right>购买方式:</td>
  108.       <td class=Tablebody1>
  109.                 <%
  110.                 If Dv_Tools.ToolsInfo(4)<=0 Then
  111.                         Response.Write "暂停购买"
  112.                 Else
  113.                         Response.Write Dv_Tools.BuyType(Dv_Tools.ToolsInfo(14))
  114.                 End IF
  115.                 %>
  116.                 </td>
  117.     </tr>
  118.     <tr>
  119.       <td height="23" class=Tablebody1 align=Right>可购买道具数量:</td>
  120.       <td class=Tablebody1><B><%=Dv_Tools.ToolsInfo(4)%></B></td>
  121.     </tr>
  122.         <tr>
  123.       <th height="23" class=Tablebody1 colspan="2">使用限制</th>
  124.     </tr>
  125.     <tr>
  126.       <td height="23" class=Tablebody1 align=Right>使用用户帖子数至少:</td>
  127.       <td class=Tablebody1><%=Dv_Tools.ToolsInfo(7)%></td>
  128.     </tr>
  129.     <tr>
  130.       <td height="23" class=Tablebody1 align=Right>使用用户金钱数至少:</td>
  131.       <td class=Tablebody1><%=Dv_Tools.ToolsInfo(8)%></td>
  132.     </tr>
  133.         <tr>
  134.       <td height="23" class=Tablebody1 align=Right>使用用户经验值至少:</td>
  135.       <td class=Tablebody1><%=Dv_Tools.ToolsInfo(9)%></td>
  136.     </tr>
  137.         <tr>
  138.       <td height="23" class=Tablebody1 align=Right>使用用户魅力值至少:</td>
  139.       <td class=Tablebody1><%=Dv_Tools.ToolsInfo(10)%></td>
  140.     </tr>
  141.     <tr>
  142.       <td height="23" class=Tablebody1 align=Right>目标用户帖子数至少:</td>
  143.       <td class=Tablebody1><%=Dv_Tools.ToolsSetting(0)%></td>
  144.     </tr>
  145.     <tr>
  146.       <td height="23" class=Tablebody1 align=Right>目标用户金钱数至少:</td>
  147.       <td class=Tablebody1><%=Dv_Tools.ToolsSetting(1)%></td>
  148.     </tr>
  149.         <tr>
  150.       <td height="23" class=Tablebody1 align=Right>目标用户经验值至少:</td>
  151.       <td class=Tablebody1><%=Dv_Tools.ToolsSetting(2)%></td>
  152.     </tr>
  153.         <tr>
  154.       <td height="23" class=Tablebody1 align=Right>目标用户魅力值至少:</td>
  155.       <td class=Tablebody1><%=Dv_Tools.ToolsSetting(3)%></td>
  156.     </tr>
  157.         <tr>
  158.       <td height="23" class=Tablebody1 align=Right>允许使用的用户组或等级:</td>
  159.       <td class=Tablebody1>
  160.           <Select Name="ToolsGroupID" Size=1>
  161. <%
  162.         Set Rs=Dvbbs.Execute("Select UserGroupID,UserTitle From Dv_UserGroups Where UserGroupID In ("&Dv_Tools.ToolsInfo(11)&") Order By UserGroupID")
  163.         If Rs.Eof And Rs.Bof Then
  164.                 Response.Write "<option value=0>没有用户可使用此道具</option>"
  165.         End If
  166.         Do While Not Rs.Eof
  167.                 Response.Write "<option value="&Rs(0)&">"&Server.HtmlEncode(Rs(1))&"</option>"
  168.         Rs.MoveNext
  169.         Loop
  170.         Rs.Close
  171.         Set Rs=Nothing
  172. %>
  173.           </Select>
  174.           <!--<INPUT TYPE="hidden" NAME="ToolsGroupID" value="">
  175.           <input type="button" value="详细查看" onclick="PlusOpen('plus_Tools_InfoSetting.asp?orders=0&id=<%=Dv_Tools.ToolsID%>',650,500)">--></td>
  176.     </tr>
  177.         <tr>
  178.       <td height="23" class=Tablebody1 align=Right>允许使用的版块:</td>
  179.       <td class=Tablebody1>
  180.           <Select Name=ToolsBoardID Size=1>
  181. <%
  182.         Dim ToolsBoardList,ii,iii
  183.         ii = 0
  184.         ToolsBoardList="," & Dv_Tools.ToolsInfo(12) & ","
  185.         Dim Nodelist,Node
  186.         Set Nodelist=Dvbbs.BoardXML.documentElement.getElementsByTagName("board")
  187.         For Each Node in Nodelist
  188.                 If InStr(ToolsBoardList,"," & Node.attributes.getNamedItem("boardid").text & ",") > 0 Then
  189.                         ii = ii + 1
  190.                         Response.Write "<option value=" & Node.attributes.getNamedItem("boardid").text & ">"
  191.                         Select Case Clng(Node.attributes.getNamedItem("depth").text)
  192.                         Case 0
  193.                                 Response.Write "╋"
  194.                         Case 1
  195.                                 Response.Write "&nbsp;&nbsp;├"
  196.                         End Select
  197.                         If Clng(Node.attributes.getNamedItem("depth").text)>1 Then
  198.                                 For ii=2 To Clng(Node.attributes.getNamedItem("depth").text)
  199.                                         Response.Write "&nbsp;&nbsp;│"
  200.                                 Next
  201.                                 Response.Write "&nbsp;&nbsp;├"
  202.                         End If
  203.                         Response.Write " " & Node.attributes.getNamedItem("boardtype").text & "</option>"
  204.                 End If
  205.         Next
  206.         If ii = 0 Then Response.Write "<option value=0>没有版面可使用此道具</option>"
  207. %>
  208.           </Select>
  209.           <!--<INPUT TYPE="hidden" NAME="ToolsBoardID" value="">
  210.           <input type="button" value="详细查看" onclick="PlusOpen('plus_Tools_InfoSetting.asp?orders=1&id=<%=Dv_Tools.ToolsID%>',650,500)">--></td>
  211.     </tr>
  212.     <tr>
  213.       <td height="23" colspan="2" class=Tablebody2>
  214.           </td>
  215.     </tr>
  216. </form>
  217. </table>
  218. <%
  219. End Sub
  220.  
  221. '---------------------------------------------------------------
  222. '道具购买
  223. '---------------------------------------------------------------
  224. Sub BuyTools()
  225. Dim ReAction,ActName
  226. Select Case Action
  227.         Case "BuyTools"
  228.                 ReAction = "SaveBuyTools"
  229.                 ActName = "购买"
  230.         Case "BuyUserTools"
  231.                 ReAction = "SaveBuyUserTools"
  232.                 ActName = "购买"
  233.         Case "SellTools"
  234.                 ReAction = "SaveSellTools"
  235.                 ActName = "转让"
  236. End Select
  237.  
  238. %>
  239. <form name=PlusTools action="?action=<%=ReAction%>" method=post>
  240. <table border="0" cellpadding=3 cellspacing=1 align=center class=Tableborder1 Style="Width:99%">
  241.     <tr>
  242.       <th height="23" colspan="2">道具交易操作</th>
  243.     </tr>
  244.         <tr>
  245.                 <td height="23" class=Tablebody1 colspan=2>
  246.           您目前有 <B><%=Dvbbs.MyUserInfo(37)%></B> 个金币和 <B><%=Dvbbs.MyUserInfo(38)%></B> 张点券,拥有该道具 <B><%=TheUserToolsNum%></B> 个</td>
  247.     </tr>
  248.         <%
  249.         If Action = "BuyTools" Then
  250.         %>
  251.         <tr>
  252.                 <td height="23" class=Tablebody1 width="30%">购买方式:</td>
  253.                 <td class=Tablebody1>
  254.                 <%
  255.                 If Dv_Tools.ToolsInfo(4)<=0 Then
  256.                         Response.Write "暂停购买"
  257.                 Else
  258.                         Response.Write Dv_Tools.BuyType(Dv_Tools.ToolsInfo(14))
  259.                 End IF
  260.                 %>
  261.                 </td>
  262.     </tr>
  263.         <%
  264.         End If
  265.         %>
  266.         <tr>
  267.                 <td height="23" class=Tablebody1 width="30%">出售方:</td>
  268.                 <td class=Tablebody1><%=SaleUserName%></td>
  269.     </tr>
  270.     <tr>
  271.                 <td height="23" class=Tablebody1 width="30%"><%=ActName%>数量:</td>
  272.                 <td class=Tablebody1>
  273.                 <INPUT TYPE="Text" name="ToolsSum" value="1"><%'=Dv_Tools.ToolsInfo(4)%>
  274.                 </td>
  275.     </tr>
  276.  
  277.     <tr>
  278.                 <td height="23" class=Tablebody1 width="30%"><%=ActName%>需要金币单价:</td>
  279.                 <td class=Tablebody1>
  280.                 <INPUT TYPE="Text" name="ToolsMoney" value="<%=Dv_Tools.ToolsInfo(6)%>"<%=InputDisable%>>
  281.                 </td>
  282.     </tr>
  283.     <tr>
  284.                 <td height="23" class=Tablebody1 width="30%"><%=ActName%>需要点券单价:</td>
  285.                 <td class=Tablebody1>
  286.                 <INPUT TYPE="Text" name="ToolsTicket" value="<%=Dv_Tools.ToolsInfo(13)%>"<%=InputDisable%>>
  287.                 </td>
  288.     </tr>
  289.     <tr>
  290.                 <td height="23" class=Tablebody1 width="30%">交易支付方式:</td>
  291.                 <td class=Tablebody1>
  292. <%
  293. Select Case Action
  294.         Case "BuyTools"
  295. %>
  296.                 <SELECT NAME="BuyType">
  297.                 <option value="0"<%If Cint(Dv_Tools.ToolsInfo(14))=0 Then%> Selected<%End If%>>金币
  298.                 <option value="1"<%If Cint(Dv_Tools.ToolsInfo(14))=1 or Cint(Dv_Tools.ToolsInfo(14))=3 Then%> Selected<%End If%>>点券
  299.                 <option value="2"<%If Cint(Dv_Tools.ToolsInfo(14))=2 Then%> Selected<%End If%>>金币+点券
  300.                 </option>
  301.                 </SELECT>
  302. <%
  303.         Case "BuyUserTools"
  304.                 If Clng(Dv_Tools.ToolsInfo(6))>0 And Clng(Dv_Tools.ToolsInfo(13))=0 Then
  305.                         Response.Write "购买此用户转让的道具需要花费您 <B>"&Dv_Tools.ToolsInfo(6)&"</B> 个金币"
  306.                 ElseIf Clng(Dv_Tools.ToolsInfo(13))>0 And Clng(Dv_Tools.ToolsInfo(6))=0 Then
  307.                         Response.Write "购买此用户转让的道具需要花费您 <B>"&Dv_Tools.ToolsInfo(13)&"</B> 张点券"
  308.                 ElseIf Clng(Dv_Tools.ToolsInfo(13))>0 And Clng(Dv_Tools.ToolsInfo(6))>0 Then
  309.                         Response.Write "购买此用户转让的道具需要同时花费您 <B>"&Dv_Tools.ToolsInfo(6)&"</B> 个金币和 <B>"&Dv_Tools.ToolsInfo(13)&"</B> 张点券"
  310.                 End If
  311.         Case "SellTools"
  312.                 Response.Write "发布转让信息,填写金币或点券数值则使用金币或点券都能购买,如果两者都填写则购买用户必须同时支付相应的金币和点券才能购买"
  313. End Select
  314. %>
  315.                 </td>
  316.     </tr>
  317.         <tr><td height="23" colspan="2" class=Tablebody2 align=center>
  318.         <INPUT TYPE="submit" value="决定<%=ActName%>">
  319.         <INPUT TYPE="hidden" name="ToolsID" value="<%=Dv_Tools.ToolsID%>">
  320.         <INPUT TYPE="hidden" name="BussID" value="<%=BussID%>">
  321.         </td></tr>
  322. </table>
  323. </form>
  324. <%
  325. End Sub
  326.  
  327. '---------------------------------------------------------------
  328. '保存道具购买(与系统交易)
  329. '---------------------------------------------------------------
  330. Sub SaveBuyTools()
  331.         If Not Dvbbs.ChkPost Then
  332.                 Dvbbs.AddErrCode(42)
  333.                 Dvbbs.Showerr()
  334.                 Exit Sub
  335.         End If
  336.         Dim ToolsSum,BuyType,SucMsg
  337.         Dim ToolsMoney,ToolsTicket
  338.         Dv_Tools.ChkUserGroup
  339.         ToolsSum = Dv_Tools.CheckNumeric(Request.Form("ToolsSum"))
  340.         BuyType = Request.Form("BuyType")
  341.         If Clng(Dv_Tools.ToolsInfo(4))<=0 Then
  342.                 Dv_Tools.ShowErr(4)
  343.                 Exit Sub
  344.         End If
  345.  
  346.         If ToolsSum<0 Then ToolsSum=0
  347.         If ToolsSum>10 Then
  348.                 Response.redirect "showerr.asp?ErrCodes=<li>系统设置每次最多只能购买10个!&action=NoHeadErr"
  349.                 Exit Sub
  350.         End If
  351.         Dv_Tools.BuySum = ToolsSum              '设置购买数据
  352.         Dv_Tools.ChkBuyTools(BuyType)   '验证购买权限
  353.        
  354.         ToolsMoney = Int(Dv_Tools.ToolsInfo(6))*ToolsSum
  355.         ToolsTicket = Int(Dv_Tools.ToolsInfo(13))*ToolsSum
  356.         If ToolsMoney<0 Then ToolsMoney=0
  357.         If ToolsTicket<0 Then ToolsTicket=0
  358.         '保存购买道具
  359.         Set Rs = Server.Createobject("adodb.recordset")
  360.         Sql = "Select * From [Dv_Plus_Tools_Buss] where UserID="& Dvbbs.UserID &" and ToolsID="& Dv_Tools.ToolsID
  361.         Dvbbs.SqlQueryNum=Dvbbs.SqlQueryNum+1
  362.         If Cint(Dvbbs.Forum_Setting(92))=1 Then
  363.                 If Not IsObject(Plus_Conn) Then Plus_ConnectionDatabase
  364.                 Rs.Open Sql,Plus_Conn,1,3
  365.         Else
  366.                 If Not IsObject(Conn) Then ConnectionDatabase
  367.                 Rs.Open Sql,conn,1,3
  368.         End If
  369.         If Rs.eof and Rs.bof then
  370.                 Rs.addnew
  371.                 Rs("UserName") = Dvbbs.Membername
  372.                 Rs("ToolsName") = Dv_Tools.ToolsInfo(1)
  373.                 Rs("UserID") = Dvbbs.UserID
  374.                 Rs("ToolsID") = Dv_Tools.ToolsID
  375.                 Rs("ToolsCount") = ToolsSum
  376.         Else
  377.                 Rs("ToolsCount") = Rs("ToolsCount")+ToolsSum
  378.         End If
  379.         Rs.Update
  380.         Rs.Close
  381.         Set Rs = Nothing
  382.         '减少系统库存和增加用户库存
  383.         Dvbbs.Plus_Execute("UPDATE Dv_Plus_Tools_Info Set SysStock = SysStock-"& ToolsSum &",UserStock=UserStock+"& ToolsSum &" where ID="&Dv_Tools.ToolsID)
  384.         '更新用户当前信息
  385.         Dvbbs.MyUserInfo(37) = cCur(Dvbbs.MyUserInfo(37))
  386.         Dvbbs.MyUserInfo(38) = cCur(Dvbbs.MyUserInfo(38))
  387.         If Cint(Dv_Tools.ToolsInfo(14))=3 Then
  388.                 If BuyType = 0 Then
  389.                         ToolsTicket = 0
  390.                         Dvbbs.MyUserInfo(37) = Dvbbs.MyUserInfo(37)-ToolsMoney
  391.                 ElseIf BuyType = 1 Then
  392.                         ToolsMoney = 0
  393.                         Dvbbs.MyUserInfo(38) = Dvbbs.MyUserInfo(38)-ToolsTicket
  394.                 Else
  395.                         Dvbbs.MyUserInfo(37) = Dvbbs.MyUserInfo(37)-ToolsMoney
  396.                         Dvbbs.MyUserInfo(38) = Dvbbs.MyUserInfo(38)-ToolsTicket
  397.                 End IF
  398.         Else
  399.                 Dvbbs.MyUserInfo(37) = Dvbbs.MyUserInfo(37)-ToolsMoney
  400.                 Dvbbs.MyUserInfo(38) = Dvbbs.MyUserInfo(38)-ToolsTicket
  401.         End If
  402.  
  403.         Dvbbs.Execute("UPDATE Dv_User Set UserMoney = "& Dvbbs.MyUserInfo(37) &",UserTicket="& Dvbbs.MyUserInfo(38) &" where UserID="& Dvbbs.UserID)
  404.         Session(Dvbbs.CacheName & "UserID") = Dvbbs.MyUserInfo
  405.         '插入事件记录
  406.         '---------------------------------------------------------------
  407.         SucMsg = "向系统购买道具:"&Dv_Tools.ToolsInfo(1)&",数量:<b>"&ToolsSum&"</b>,花费金币:"&ToolsMoney&",花费点券:"&ToolsTicket&"。"
  408.         Call Dvbbs.ToolsLog(Dv_Tools.ToolsID,ToolsSum,ToolsMoney,ToolsTicket,4,SucMsg,Dvbbs.MyUserInfo(37)&"|"&Dvbbs.MyUserInfo(38))
  409.         '---------------------------------------------------------------
  410.         SucMsg = SucMsg & " 道具购买成功!"
  411.         Dvbbs.Dvbbs_Suc(SucMsg)
  412. End Sub
  413.  
  414. '---------------------------------------------------------------
  415. '保存道具出售(转让)
  416. '---------------------------------------------------------------
  417. Sub SaveSellTools()
  418.         If Not Dvbbs.ChkPost Then
  419.                 Dvbbs.AddErrCode(42)
  420.                 Dvbbs.Showerr()
  421.                 Exit Sub
  422.         End If
  423.         Dv_Tools.ChkUserGroup
  424.         Dim ToolsSum,ToolsMoney,ToolsTicket,UpToolsCount,UpSaleCount,SucMsg
  425.         ToolsSum = Dv_Tools.CheckNumeric(Request.Form("ToolsSum"))
  426.         ToolsMoney = Dv_Tools.CheckNumeric(Request.Form("ToolsMoney"))
  427.         ToolsTicket = Dv_Tools.CheckNumeric(Request.Form("ToolsTicket"))
  428.         If ToolsSum<0 Then ToolsSum=0
  429.         If ToolsMoney<0 Then ToolsMoney=0
  430.         If ToolsTicket<0 Then ToolsTicket=0
  431.         If ToolsTicket=0 And ToolsMoney=0 Then Dv_Tools.ShowErr(16):Exit Sub
  432.  
  433.         Dv_Tools.ToolsInfo(4) = Clng(Dv_Tools.ToolsInfo(4))
  434.         If ToolsCount<ToolsSum or ToolsSum=0 Then Dv_Tools.ShowErr(9):Exit Sub
  435.  
  436.         If Dv_Tools.ToolsInfo(4)>0 Then
  437.                 If Dv_Tools.ToolsInfo(4)<ToolsSum Then
  438.                         UpToolsCount = ToolsCount-(ToolsSum-Dv_Tools.ToolsInfo(4))
  439.                 Else
  440.                         UpToolsCount = ToolsCount+(Dv_Tools.ToolsInfo(4)-ToolsSum)
  441.                 End If
  442.                 UpSaleCount = ToolsSum
  443.         Else
  444.                 UpToolsCount = ToolsCount-ToolsSum
  445.                 UpSaleCount = Dv_Tools.ToolsInfo(4)+ToolsSum
  446.         End If
  447.        
  448.         Dvbbs.Plus_Execute("UPDATE [Dv_Plus_Tools_Buss] Set ToolsCount = "& UpToolsCount &",SaleCount="& UpSaleCount &",SaleMoney="& ToolsMoney &",SaleTicket="& ToolsTicket &" where ID="& BussID)
  449.        
  450.         '插入事件记录
  451.         '---------------------------------------------------------------
  452.         SucMsg = "转让道具:"&Dv_Tools.ToolsInfo(1)&",数量:<b>"&ToolsSum&"</b>。"
  453.         Call Dvbbs.ToolsLog(Dv_Tools.ToolsID,ToolsSum,ToolsMoney,ToolsTicket,2,SucMsg,Dvbbs.MyUserInfo(37)&"|"&Dvbbs.MyUserInfo(38))
  454.         '---------------------------------------------------------------
  455.         SucMsg = SucMsg & " 道具转让成功!"
  456.         Dvbbs.Dvbbs_Suc(SucMsg)
  457.         '---------------------------------------------------------------
  458. End Sub
  459.  
  460. '---------------------------------------------------------------
  461. '保存道具购买(用户间交易)
  462. '---------------------------------------------------------------
  463. Sub SaveBuyUserTools()
  464.         If Not Dvbbs.ChkPost Then
  465.                 Dvbbs.AddErrCode(42)
  466.                 Dvbbs.Showerr()
  467.                 Exit Sub
  468.         End If
  469.         Dv_Tools.ChkUserGroup
  470.         Dim ToolsSum,ToolsMoney,ToolsTicket,UpToolsCount,UpSaleCount,BuyType,SucMsg
  471.         Dv_Tools.ChkUserGroup
  472.         ToolsSum = Dv_Tools.CheckNumeric(Request.Form("ToolsSum"))
  473.         BuyType = Dv_Tools.CheckNumeric(Request.Form("BuyType"))
  474.         If ToolsSum<0 Then ToolsSum=0
  475.         If Int(Dv_Tools.ToolsInfo(4)) = 0 or ToolsSum>Int(Dv_Tools.ToolsInfo(4)) OR ToolsSum = 0 Then Dv_Tools.ShowErr(8):Exit Sub '库存不足
  476.         ToolsMoney = Dv_Tools.ToolsInfo(6)*ToolsSum
  477.         ToolsTicket = Dv_Tools.ToolsInfo(13)*ToolsSum
  478.         If ToolsMoney<0 Then ToolsMoney=0
  479.         If ToolsTicket<0 Then ToolsTicket=0
  480.         'If Clng(Dv_Tools.ToolsInfo(6))>0 And Clng(Dv_Tools.ToolsInfo(13))=0 Then
  481.         '       ToolsTicket = 0
  482.         'ElseIf Clng(Dv_Tools.ToolsInfo(13))>0 And Clng(Dv_Tools.ToolsInfo(6))=0 Then
  483.         '       ToolsMoney = 0
  484.         'End If
  485.         If ToolsMoney = 0 And ToolsTicket = 0 Then Dv_Tools.ShowErr(7):Exit Sub
  486.  
  487.         '判断用户是否具有购买权限
  488.         If SaleUserID<>Dvbbs.UserID Then
  489.                 If Int(Dvbbs.MyUserInfo(37))<ToolsMoney Or Int(Dvbbs.MyUserInfo(38))<ToolsTicket Then Dv_Tools.ShowErr(7):Exit Sub
  490.         Else
  491.                 Dvbbs.Plus_Execute("UPDATE [Dv_Plus_Tools_Buss] Set ToolsCount = ToolsCount+"& ToolsSum &",SaleCount=SaleCount-"& ToolsSum &" where ID="& BussID)
  492.                 '插入事件记录
  493.                 '---------------------------------------------------------------
  494.                 SucMsg = "与自已购回道具:"&Dv_Tools.ToolsInfo(1)&",数量:<b>"&ToolsSum&"</b>。"
  495.                 Call Dvbbs.ToolsLog(Dv_Tools.ToolsID,ToolsSum,ToolsMoney,ToolsTicket,4,SucMsg,Dvbbs.MyUserInfo(37)&"|"&Dvbbs.MyUserInfo(38))
  496.                 '---------------------------------------------------------------
  497.                 SucMsg = SucMsg & "道具信息已更新。"
  498.                 Dvbbs.Dvbbs_Suc(SucMsg)
  499.                 Exit Sub
  500.         End If
  501.  
  502.         '更新卖方数据(减少售出数量)
  503.         Dvbbs.Plus_Execute("UPDATE [Dv_Plus_Tools_Buss] Set SaleCount=SaleCount-"& ToolsSum &" where ID="& BussID)
  504.         Dvbbs.Execute("UPDATE Dv_User Set UserMoney = UserMoney+"& ToolsMoney &",UserTicket=UserTicket+"& ToolsTicket &" where UserID="& SaleUserID)
  505.         '更新买方数据(减少售出数量)
  506.         '保存购买道具(若未找到道具添加新的记录,已有道具只需更新个人库存)
  507.         Set Rs = Server.Createobject("adodb.recordset")
  508.         Sql = "Select * From [Dv_Plus_Tools_Buss] where UserID="& Dvbbs.UserID &" and ToolsID="& Dv_Tools.ToolsID
  509.         If Cint(Dvbbs.Forum_Setting(92))=1 Then
  510.                 If Not IsObject(Plus_Conn) Then Plus_ConnectionDatabase
  511.                 Rs.Open Sql,Plus_Conn,1,3
  512.         Else
  513.                 If Not IsObject(Conn) Then ConnectionDatabase
  514.                 Rs.Open Sql,conn,1,3
  515.         End IF
  516.         If Rs.eof and Rs.bof then
  517.                 Rs.addnew
  518.                 Rs("UserName") = Dvbbs.Membername
  519.                 Rs("ToolsName") = Dv_Tools.ToolsInfo(1)
  520.                 Rs("UserID") = Dvbbs.UserID
  521.                 Rs("ToolsID") = Dv_Tools.ToolsID
  522.                 Rs("ToolsCount") = ToolsSum
  523.         Else
  524.                 Rs("ToolsCount") = Rs("ToolsCount")+ToolsSum
  525.         End If
  526.         Rs.Update
  527.         Rs.Close : Set Rs = Nothing
  528.         '更新用户当前信息
  529.         Dvbbs.MyUserInfo(37) = cCur(Dvbbs.MyUserInfo(37))
  530.         Dvbbs.MyUserInfo(38) = cCur(Dvbbs.MyUserInfo(38))
  531.         If Cint(Dv_Tools.ToolsInfo(14))=3 Then
  532.                 If BuyType = 0 Then
  533.                         Dvbbs.MyUserInfo(37) = Dvbbs.MyUserInfo(37)-ToolsMoney
  534.                 ElseIf BuyType = 1 Then
  535.                         Dvbbs.MyUserInfo(38) = Dvbbs.MyUserInfo(38)-ToolsTicket
  536.                 Else
  537.                         Dvbbs.MyUserInfo(37) = Dvbbs.MyUserInfo(37)-ToolsMoney
  538.                         Dvbbs.MyUserInfo(38) = Dvbbs.MyUserInfo(38)-ToolsTicket
  539.                 End IF
  540.         Else
  541.                 Dvbbs.MyUserInfo(37) = Dvbbs.MyUserInfo(37)-ToolsMoney
  542.                 Dvbbs.MyUserInfo(38) = Dvbbs.MyUserInfo(38)-ToolsTicket
  543.         End If
  544.  
  545.         Dvbbs.Execute("UPDATE Dv_User Set UserMoney = "& Dvbbs.MyUserInfo(37) &",UserTicket="& Dvbbs.MyUserInfo(38) &" where UserID="& Dvbbs.UserID)
  546.         Session(Dvbbs.CacheName & "UserID") = Dvbbs.MyUserInfo
  547.         '插入事件记录
  548.         '---------------------------------------------------------------
  549.         SucMsg = "向"&SaleUserName&"购买道具:"&Dv_Tools.ToolsInfo(1)&",数量:<b>"&ToolsSum&"</b>,花费金币:"&ToolsMoney&",花费点券:"&ToolsTicket&"。"
  550.         Call Dvbbs.ToolsLog(Dv_Tools.ToolsID,ToolsSum,ToolsMoney,ToolsTicket,4,SucMsg,Dvbbs.MyUserInfo(37)&"|"&Dvbbs.MyUserInfo(38))
  551.         '---------------------------------------------------------------
  552.         SucMsg = SucMsg & "道具信息已更新。"
  553.         Dvbbs.Dvbbs_Suc(SucMsg)
  554.         '---------------------------------------------------------------
  555. End Sub
  556.  
  557. %>
downloadplus_Tools_pay.asp Source code - Download Like webmaster forums Source code
Related Source Codes/Software:
Quanzhou China networks limited - Admin admin admin 21.45KB
Love agent shop navigation friendship China buffet chain V1.0 - Fully functional, application link, points into on... 4.34KB
Source of party and Government official open source Government TS version v1.0 - I am a Government webmaster, not a computer traini... 10.95KB
Sunzhuang town government - Simple and practical! 5.15KB
160 Shenzhen rental rental information network - Rental information network-a very good site, which... 79.99KB
Journey of legends ASP.NET version system - Abbreviation for Cms is a Content Management Syste... 18.45KB
M media corporate website system v3.5.2 - M media on the powerful systems in addition to foc... 5.69KB
M media enterprise open source Web System v1.0.0 - M media on the powerful systems in addition to foc... 4.9KB
M media management system voted v2.1.0 - As computer and electronic communications technolo... 6.01KB
Chinese women's network the entire station source code - A woman's Web site package download, and a present... 22.95KB
China source download System v1.0 - This 3-to beautify the program downloaded by the i... 5.26KB
Ganzhou Windows network - Cover feature:Windows Home | News vertical and... 34.61KB
Strains of strain of beautiful personal home page Build20061004 - -----------Modified part-------------1: added ... 7.7KB
Southwest agricultural information network - Southwest agricultural information network, an agr... 98.89KB
ZWMOBI 3G mobile station system - Powerful business modules, including mobile B2C mo... 3.89KB
As a campus site system v2.0 - For most school,, to built features powerful of ma... 44.88KB
Evening student seating system 7 - Evening student seating system is facilitated the ... 26.4KB
94KK be reluctant network community beautification bate3 (new year Edition) - Kernel KB 94kkBBS Forum, new landscaping, further ... 24.82KB
QQ Flash Word - 1. powerful DIY feature, which is now immeasurably... 67KB
Zoomla! Eall CMS v2.0 - Waves CMS is committed to providing our webmasters... 11.31KB

 Back to top