⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 plus_tools_pay.asp

📁 现在好了
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
		<INPUT TYPE="Text" name="ToolsMoney" value="<%=Dv_Tools.ToolsInfo(6)%>"<%=InputDisable%>>
		</td>
    </tr>
    <tr>
		<td height="23" class=Tablebody1 width="30%"><%=ActName%>需要点券单价：</td>
		<td class=Tablebody1>
		<INPUT TYPE="Text" name="ToolsTicket" value="<%=Dv_Tools.ToolsInfo(13)%>"<%=InputDisable%>>
		</td>
    </tr>
    <tr>
		<td height="23" class=Tablebody1 width="30%">交易支付方式：</td>
		<td class=Tablebody1>
<%
Select Case Action
	Case "BuyTools"
%>
		<SELECT NAME="BuyType">
		<option value="0"<%If Cint(Dv_Tools.ToolsInfo(14))=0 Then%> Selected<%End If%>>金币
		<option value="1"<%If Cint(Dv_Tools.ToolsInfo(14))=1 or Cint(Dv_Tools.ToolsInfo(14))=3 Then%> Selected<%End If%>>点券
		<option value="2"<%If Cint(Dv_Tools.ToolsInfo(14))=2 Then%> Selected<%End If%>>金币+点券
		</option>
		</SELECT>
<%
	Case "BuyUserTools"
		If Clng(Dv_Tools.ToolsInfo(6))>0 And Clng(Dv_Tools.ToolsInfo(13))=0 Then
			Response.Write "购买此用户转让的道具需要花费您 <B>"&Dv_Tools.ToolsInfo(6)&"</B> 个金币"
		ElseIf Clng(Dv_Tools.ToolsInfo(13))>0 And Clng(Dv_Tools.ToolsInfo(6))=0 Then
			Response.Write "购买此用户转让的道具需要花费您 <B>"&Dv_Tools.ToolsInfo(13)&"</B> 张点券"
		ElseIf Clng(Dv_Tools.ToolsInfo(13))>0 And Clng(Dv_Tools.ToolsInfo(6))>0 Then
			Response.Write "购买此用户转让的道具需要同时花费您 <B>"&Dv_Tools.ToolsInfo(6)&"</B> 个金币和 <B>"&Dv_Tools.ToolsInfo(13)&"</B> 张点券"
		End If
	Case "SellTools"
		Response.Write "发布转让信息，填写金币或点券数值则使用金币或点券都能购买，如果两者都填写则购买用户必须同时支付相应的金币和点券才能购买"
End Select
%>
		</td>
    </tr>
	<tr><td height="23" colspan="2" class=Tablebody2 align=center>
	<INPUT TYPE="submit" value="决定<%=ActName%>">
	<INPUT TYPE="hidden" name="ToolsID" value="<%=Dv_Tools.ToolsID%>">
	<INPUT TYPE="hidden" name="BussID" value="<%=BussID%>">
	</td></tr>
</table>
</form>
<%
End Sub

'---------------------------------------------------------------
'保存道具购买（与系统交易）
'---------------------------------------------------------------
Sub SaveBuyTools()
	If Not Dvbbs.ChkPost Then
		Dvbbs.AddErrCode(42)
		Dvbbs.Showerr()
		Exit Sub
	End If
	Dim ToolsSum,BuyType,SucMsg
	Dim ToolsMoney,ToolsTicket
	Dv_Tools.ChkUserGroup
	ToolsSum = Dv_Tools.CheckNumeric(Request.Form("ToolsSum"))
	BuyType = Request.Form("BuyType")
	If Clng(Dv_Tools.ToolsInfo(4))<=0 Then
		Dv_Tools.ShowErr(4)
		Exit Sub
	End If

	If ToolsSum<0 Then ToolsSum=0
	If ToolsSum>10 Then
		Response.redirect "showerr.asp?ErrCodes=<li>系统设置每次最多只能购买10个！&action=NoHeadErr"
		Exit Sub
	End If
	Dv_Tools.BuySum = ToolsSum		'设置购买数据
	Dv_Tools.ChkBuyTools(BuyType)	'验证购买权限
	
	ToolsMoney = Int(Dv_Tools.ToolsInfo(6))*ToolsSum
	ToolsTicket = Int(Dv_Tools.ToolsInfo(13))*ToolsSum
	If ToolsMoney<0 Then ToolsMoney=0
	If ToolsTicket<0 Then ToolsTicket=0
	'保存购买道具
	Set Rs = Server.Createobject("adodb.recordset")
	Sql = "Select * From [Dv_Plus_Tools_Buss] where UserID="& Dvbbs.UserID &" and ToolsID="& Dv_Tools.ToolsID
	Dvbbs.SqlQueryNum=Dvbbs.SqlQueryNum+1
	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
		Rs.addnew
		Rs("UserName") = Dvbbs.Membername
		Rs("ToolsName") = Dv_Tools.ToolsInfo(1)
		Rs("UserID") = Dvbbs.UserID
		Rs("ToolsID") = Dv_Tools.ToolsID
		Rs("ToolsCount") = ToolsSum
	Else
		Rs("ToolsCount") = Rs("ToolsCount")+ToolsSum
	End If
	Rs.Update
	Rs.Close
	Set Rs = Nothing
	'减少系统库存和增加用户库存
	Dvbbs.Plus_Execute("UPDATE Dv_Plus_Tools_Info Set SysStock = SysStock-"& ToolsSum &",UserStock=UserStock+"& ToolsSum &" where ID="&Dv_Tools.ToolsID)
	'更新用户当前信息
	Dvbbs.MyUserInfo(37) = cCur(Dvbbs.MyUserInfo(37))
	Dvbbs.MyUserInfo(38) = cCur(Dvbbs.MyUserInfo(38))
	If Cint(Dv_Tools.ToolsInfo(14))=3 Then
		If BuyType = 0 Then
			ToolsTicket = 0
			Dvbbs.MyUserInfo(37) = Dvbbs.MyUserInfo(37)-ToolsMoney
		ElseIf BuyType = 1 Then
			ToolsMoney = 0
			Dvbbs.MyUserInfo(38) = Dvbbs.MyUserInfo(38)-ToolsTicket
		Else
			Dvbbs.MyUserInfo(37) = Dvbbs.MyUserInfo(37)-ToolsMoney
			Dvbbs.MyUserInfo(38) = Dvbbs.MyUserInfo(38)-ToolsTicket
		End IF
	Else
		Dvbbs.MyUserInfo(37) = Dvbbs.MyUserInfo(37)-ToolsMoney
		Dvbbs.MyUserInfo(38) = Dvbbs.MyUserInfo(38)-ToolsTicket
	End If

	Dvbbs.Execute("UPDATE Dv_User Set UserMoney = "& Dvbbs.MyUserInfo(37) &",UserTicket="& Dvbbs.MyUserInfo(38) &" where UserID="& Dvbbs.UserID)
	Session(Dvbbs.CacheName & "UserID") = Dvbbs.MyUserInfo
	'插入事件记录
	'---------------------------------------------------------------
	SucMsg = "向系统购买道具："&Dv_Tools.ToolsInfo(1)&",数量：<b>"&ToolsSum&"</b>,花费金币："&ToolsMoney&"，花费点券："&ToolsTicket&"。"
	Call Dvbbs.ToolsLog(Dv_Tools.ToolsID,ToolsSum,ToolsMoney,ToolsTicket,4,SucMsg,Dvbbs.MyUserInfo(37)&"|"&Dvbbs.MyUserInfo(38))
	'---------------------------------------------------------------
	SucMsg = SucMsg & " 道具购买成功！"
	Dvbbs.Dvbbs_Suc(SucMsg)
End Sub

'---------------------------------------------------------------
'保存道具出售(转让)
'---------------------------------------------------------------
Sub SaveSellTools()
	If Not Dvbbs.ChkPost Then
		Dvbbs.AddErrCode(42)
		Dvbbs.Showerr()
		Exit Sub
	End If
	Dv_Tools.ChkUserGroup
	Dim ToolsSum,ToolsMoney,ToolsTicket,UpToolsCount,UpSaleCount,SucMsg
	ToolsSum = Dv_Tools.CheckNumeric(Request.Form("ToolsSum"))
	ToolsMoney = Dv_Tools.CheckNumeric(Request.Form("ToolsMoney"))
	ToolsTicket = Dv_Tools.CheckNumeric(Request.Form("ToolsTicket"))
	If ToolsSum<0 Then ToolsSum=0
	If ToolsMoney<0 Then ToolsMoney=0
	If ToolsTicket<0 Then ToolsTicket=0
	If ToolsTicket=0 And ToolsMoney=0 Then Dv_Tools.ShowErr(16):Exit Sub

	Dv_Tools.ToolsInfo(4) = Clng(Dv_Tools.ToolsInfo(4))
	If ToolsCount<ToolsSum or ToolsSum=0 Then Dv_Tools.ShowErr(9):Exit Sub

	If Dv_Tools.ToolsInfo(4)>0 Then
		If Dv_Tools.ToolsInfo(4)<ToolsSum Then
			UpToolsCount = ToolsCount-(ToolsSum-Dv_Tools.ToolsInfo(4))
		Else
			UpToolsCount = ToolsCount+(Dv_Tools.ToolsInfo(4)-ToolsSum)
		End If
		UpSaleCount = ToolsSum
	Else
		UpToolsCount = ToolsCount-ToolsSum
		UpSaleCount = Dv_Tools.ToolsInfo(4)+ToolsSum
	End If
	
	Dvbbs.Plus_Execute("UPDATE [Dv_Plus_Tools_Buss] Set ToolsCount = "& UpToolsCount &",SaleCount="& UpSaleCount &",SaleMoney="& ToolsMoney &",SaleTicket="& ToolsTicket &" where ID="& BussID)
	
	'插入事件记录
	'---------------------------------------------------------------
	SucMsg = "转让道具："&Dv_Tools.ToolsInfo(1)&",数量：<b>"&ToolsSum&"</b>。"
	Call Dvbbs.ToolsLog(Dv_Tools.ToolsID,ToolsSum,ToolsMoney,ToolsTicket,2,SucMsg,Dvbbs.MyUserInfo(37)&"|"&Dvbbs.MyUserInfo(38))
	'---------------------------------------------------------------
	SucMsg = SucMsg & " 道具转让成功！"
	Dvbbs.Dvbbs_Suc(SucMsg)
	'---------------------------------------------------------------
End Sub

'---------------------------------------------------------------
'保存道具购买（用户间交易）
'---------------------------------------------------------------
Sub SaveBuyUserTools()
	If Not Dvbbs.ChkPost Then
		Dvbbs.AddErrCode(42)
		Dvbbs.Showerr()
		Exit Sub
	End If
	Dv_Tools.ChkUserGroup
	Dim ToolsSum,ToolsMoney,ToolsTicket,UpToolsCount,UpSaleCount,BuyType,SucMsg
	Dv_Tools.ChkUserGroup
	ToolsSum = Dv_Tools.CheckNumeric(Request.Form("ToolsSum"))
	BuyType = Dv_Tools.CheckNumeric(Request.Form("BuyType"))
	If ToolsSum<0 Then ToolsSum=0
	If Int(Dv_Tools.ToolsInfo(4)) = 0 or ToolsSum>Int(Dv_Tools.ToolsInfo(4)) OR ToolsSum = 0 Then Dv_Tools.ShowErr(8):Exit Sub '库存不足
	ToolsMoney = Dv_Tools.ToolsInfo(6)*ToolsSum
	ToolsTicket = Dv_Tools.ToolsInfo(13)*ToolsSum
	If ToolsMoney<0 Then ToolsMoney=0
	If ToolsTicket<0 Then ToolsTicket=0
	'If Clng(Dv_Tools.ToolsInfo(6))>0 And Clng(Dv_Tools.ToolsInfo(13))=0 Then
	'	ToolsTicket = 0
	'ElseIf Clng(Dv_Tools.ToolsInfo(13))>0 And Clng(Dv_Tools.ToolsInfo(6))=0 Then
	'	ToolsMoney = 0
	'End If
	If ToolsMoney = 0 And ToolsTicket = 0 Then Dv_Tools.ShowErr(7):Exit Sub

	'判断用户是否具有购买权限
	If SaleUserID<>Dvbbs.UserID Then
		If Int(Dvbbs.MyUserInfo(37))<ToolsMoney Or Int(Dvbbs.MyUserInfo(38))<ToolsTicket Then Dv_Tools.ShowErr(7):Exit Sub
	Else
		Dvbbs.Plus_Execute("UPDATE [Dv_Plus_Tools_Buss] Set ToolsCount = ToolsCount+"& ToolsSum &",SaleCount=SaleCount-"& ToolsSum &" where ID="& BussID)
		'插入事件记录
		'---------------------------------------------------------------
		SucMsg = "与自已购回道具："&Dv_Tools.ToolsInfo(1)&",数量：<b>"&ToolsSum&"</b>。"
		Call Dvbbs.ToolsLog(Dv_Tools.ToolsID,ToolsSum,ToolsMoney,ToolsTicket,4,SucMsg,Dvbbs.MyUserInfo(37)&"|"&Dvbbs.MyUserInfo(38))
		'---------------------------------------------------------------
		SucMsg = SucMsg & "道具信息已更新。"
		Dvbbs.Dvbbs_Suc(SucMsg)
		Exit Sub
	End If

	'更新卖方数据(减少售出数量)
	Dvbbs.Plus_Execute("UPDATE [Dv_Plus_Tools_Buss] Set SaleCount=SaleCount-"& ToolsSum &" where ID="& BussID)
	Dvbbs.Execute("UPDATE Dv_User Set UserMoney = UserMoney+"& ToolsMoney &",UserTicket=UserTicket+"& ToolsTicket &" where UserID="& SaleUserID)
	'更新买方数据(减少售出数量)
	'保存购买道具(若未找到道具添加新的记录，已有道具只需更新个人库存)
	Set Rs = Server.Createobject("adodb.recordset")
	Sql = "Select * From [Dv_Plus_Tools_Buss] where UserID="& Dvbbs.UserID &" and ToolsID="& Dv_Tools.ToolsID
	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
		Rs.addnew
		Rs("UserName") = Dvbbs.Membername
		Rs("ToolsName") = Dv_Tools.ToolsInfo(1)
		Rs("UserID") = Dvbbs.UserID
		Rs("ToolsID") = Dv_Tools.ToolsID
		Rs("ToolsCount") = ToolsSum
	Else
		Rs("ToolsCount") = Rs("ToolsCount")+ToolsSum
	End If
	Rs.Update
	Rs.Close : Set Rs = Nothing
	'更新用户当前信息
	Dvbbs.MyUserInfo(37) = cCur(Dvbbs.MyUserInfo(37))
	Dvbbs.MyUserInfo(38) = cCur(Dvbbs.MyUserInfo(38))
	If Cint(Dv_Tools.ToolsInfo(14))=3 Then
		If BuyType = 0 Then
			Dvbbs.MyUserInfo(37) = Dvbbs.MyUserInfo(37)-ToolsMoney
		ElseIf BuyType = 1 Then
			Dvbbs.MyUserInfo(38) = Dvbbs.MyUserInfo(38)-ToolsTicket
		Else
			Dvbbs.MyUserInfo(37) = Dvbbs.MyUserInfo(37)-ToolsMoney
			Dvbbs.MyUserInfo(38) = Dvbbs.MyUserInfo(38)-ToolsTicket
		End IF
	Else
		Dvbbs.MyUserInfo(37) = Dvbbs.MyUserInfo(37)-ToolsMoney
		Dvbbs.MyUserInfo(38) = Dvbbs.MyUserInfo(38)-ToolsTicket
	End If

	Dvbbs.Execute("UPDATE Dv_User Set UserMoney = "& Dvbbs.MyUserInfo(37) &",UserTicket="& Dvbbs.MyUserInfo(38) &" where UserID="& Dvbbs.UserID)
	Session(Dvbbs.CacheName & "UserID") = Dvbbs.MyUserInfo
	'插入事件记录
	'---------------------------------------------------------------
	SucMsg = "向"&SaleUserName&"购买道具："&Dv_Tools.ToolsInfo(1)&",数量：<b>"&ToolsSum&"</b>,花费金币："&ToolsMoney&"，花费点券："&ToolsTicket&"。"
	Call Dvbbs.ToolsLog(Dv_Tools.ToolsID,ToolsSum,ToolsMoney,ToolsTicket,4,SucMsg,Dvbbs.MyUserInfo(37)&"|"&Dvbbs.MyUserInfo(38))
	'---------------------------------------------------------------
	SucMsg = SucMsg & "道具信息已更新。"
	Dvbbs.Dvbbs_Suc(SucMsg)
	'---------------------------------------------------------------
End Sub

%>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -