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

📄 plus_tools_user.asp

📁 公司企业网站管理系统全站源码,用于企业内部对网站的管理
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<td class="td1" width="80%"><input type=text size=10 value="<%=Rs("ToolsCount")%>" name="ToolsCount"> 个</td>
</tr>
<tr>
<td class="td1" width="20%" align=right><B>出售中数量</B>：</td>
<td class="td1" width="80%"><input type=text size=10 value="<%=Rs("SaleCount")%>" name="SaleCount"> 个</td>
</tr>
<tr>
<td class="td1" width="20%" align=right><B>出售价格（金币）</B>：</td>
<td class="td1" width="80%"><input type=text size=10 value="<%=Rs("SaleMoney")%>" name="SaleMoney"> 个</td>
</tr>
<tr>
<td class="td1" width="20%" align=right><B>出售价格（点券）</B>：</td>
<td class="td1" width="80%"><input type=text size=10 value="<%=Rs("SaleTicket")%>" name="SaleTicket"> 张</td>
</tr>
<tr><td class="td2" colspan=2 align=center>
<input type=submit class="button" value="保存修改" name=submit>
此部分关系用户个人财产，修改请慎重，所做修改将进道具日志
</td></tr>
</FORM>
</table>
<%
	Rs.Close
	Set Rs=Nothing
End Sub

Sub SaveEdit()
	Dim ID
	Dim ToolsCount,SaleCount,SaleMoney,SaleTicket
	ID=Request("ID")
	If Not IsNumeric(ID) Or ID="" Then
		Errmsg=ErrMsg + "<BR><li>非法的参数。"
		founderr=True
	Else
		ID=Clng(ID)
	End If
	ToolsCount=Request("ToolsCount")
	If Not IsNumeric(ToolsCount) Or ToolsCount="" Then
		Errmsg=ErrMsg + "<BR><li>非法的参数。"
		founderr=True
	Else
		ToolsCount=Clng(ToolsCount)
	End If
	SaleCount=Request("SaleCount")
	If Not IsNumeric(SaleCount) Or SaleCount="" Then
		Errmsg=ErrMsg + "<BR><li>非法的参数。"
		founderr=True
	Else
		SaleCount=Clng(SaleCount)
	End If
	SaleMoney=Request("SaleMoney")
	If Not IsNumeric(SaleMoney) Or SaleMoney="" Then
		Errmsg=ErrMsg + "<BR><li>非法的参数。"
		founderr=True
	Else
		SaleMoney=Clng(SaleMoney)
	End If
	SaleTicket=Request("SaleTicket")
	If Not IsNumeric(SaleTicket) Or SaleTicket="" Then
		Errmsg=ErrMsg + "<BR><li>非法的参数。"
		founderr=True
	Else
		SaleTicket=Clng(SaleTicket)
	End If
	If founderr Then Exit Sub
	Dim Rs,SQL,Trs
	Set Rs = server.CreateObject ("adodb.recordset")
	SQL = "Select * From Dv_Plus_Tools_Buss Where ID=" & ID
	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
		Errmsg=ErrMsg + "<BR><li>没有找到相关的数据。"
		founderr=True
	End If
	If founderr Then Exit Sub
	'ToolsCount,SaleCount,SaleMoney,SaleTicket
	Set Trs=Dvbbs.Execute("Select UserMoney,UserTicket From Dv_User Where UserID=" & Rs("UserID"))
	Sql = "Insert into [Dv_MoneyLog] (ToolsID,AddUserName,AddUserID,Log_IP,Log_Type,BoardID,Conect,HMoney) values ("&Rs("ToolsID")&",'"&Rs("UserName")&"','"&Rs("UserID")&"','"&Dvbbs.UserTrueIP&"',0,-1,'"&Dvbbs.Membername&"管理员编辑用户道具资料，可使用数量变动<B>"&ToolsCount-Rs("ToolsCount")&"</B>、出售数量变动<B>"&SaleCount-Rs("SaleCount")&"</B>、出售价格变动（金币）<B>"&SaleMoney-Rs("SaleMoney")&"</B>、出售价格变动（点券）<B>"&SaleTicket-Rs("SaleTicket")&"</B>','"&Trs("UserMoney")&"|"&Trs("UserTicket")&"')"
	Dvbbs.Plus_Execute(SQL)
	Rs("ToolsCount")=ToolsCount
	Rs("SaleCount")=SaleCount
	Rs("SaleMoney")=SaleMoney
	Rs("SaleTicket")=SaleTicket
	Rs.UpDate
	Rs.Close
	Set Rs=Nothing
	Trs.Close
	Set Trs=Nothing
	Dv_Suc("修改用户道具资料成功！")
	Footer()
	Response.End
End Sub

Sub Not_Apply_Sale()
	Dim ID,SQL,Trs,Rs
	ID=Request("ID")
	If Not IsNumeric(ID) Or ID="" Then
		Errmsg=ErrMsg + "<BR><li>非法的参数。"
		founderr=True
	Else
		ID=Clng(ID)
	End If
	If founderr Then Exit Sub
	SQL = "UpDate Dv_Plus_Tools_Buss Set ToolsCount=ToolsCount + SaleCount,SaleMoney=0,SaleTicket=0,SaleCount=0 Where ID=" & ID
	Dvbbs.Plus_Execute(SQL)
	Set Rs=Dvbbs.Plus_Execute("Select * From Dv_Plus_Tools_Buss Where ID=" & ID)
	Set Trs=Dvbbs.Execute("Select UserMoney,UserTicket From Dv_User Where UserID=" & Rs("UserID"))
	Sql = "Insert into [Dv_MoneyLog] (ToolsID,AddUserName,AddUserID,Log_IP,Log_Type,BoardID,Conect,HMoney) values ("&Rs("ToolsID")&",'"&Rs("UserName")&"','"&Rs("UserID")&"','"&Dvbbs.UserTrueIP&"',0,-1,'"&Dvbbs.Membername&"管理员编辑用户道具资料，取消此用户该道具销售资格。','"&Trs("UserMoney")&"|"&Trs("UserTicket")&"')"
	Dvbbs.Plus_Execute(SQL)
	Rs.Close
	Set Rs=Nothing
	Trs.Close
	Set Trs=Nothing
	Dv_Suc("修改用户道具资料成功！")
	Footer()
	Response.End
End Sub

Sub Del_UserTools()
	Dim ID,SQL,Trs,Rs
	ID=Request("ID")
	If Not IsNumeric(ID) Or ID="" Then
		Errmsg=ErrMsg + "<BR><li>非法的参数。"
		founderr=True
	Else
		ID=Clng(ID)
	End If
	If founderr Then Exit Sub
	Set Rs=Dvbbs.Plus_Execute("Select * From Dv_Plus_Tools_Buss Where ID=" & ID)
	Set Trs=Dvbbs.Execute("Select UserMoney,UserTicket From Dv_User Where UserID=" & Rs("UserID"))
	Sql = "Insert into [Dv_MoneyLog] (ToolsID,AddUserName,AddUserID,Log_IP,Log_Type,BoardID,Conect,HMoney) values ("&Rs("ToolsID")&",'"&Rs("UserName")&"','"&Rs("UserID")&"','"&Dvbbs.UserTrueIP&"',0,-1,'"&Dvbbs.Membername&"管理员编辑用户道具资料，删除此用户该道具信息。','"&Trs("UserMoney")&"|"&Trs("UserTicket")&"')"
	Dvbbs.Plus_Execute(SQL)
	Dvbbs.Plus_Execute("Delete From Dv_Plus_Tools_Buss Where ID=" & ID)
	Rs.Close
	Set Rs=Nothing
	Trs.Close
	Set Trs=Nothing
	Dv_Suc("删除用户道具资料成功！")
	Footer()
	Response.End
End Sub

Sub SendTools()
%>
<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
<FORM METHOD=POST ACTION="?action=SaveSend">
<tr><th style="text-align:center;" colspan=2>给用户赠送道具</th></tr>
<tr><td height=24 class="td1" colspan=2>说明：部分系统不出售的内部道具请慎重赠送</td></tr>
<tr>
<td class="td1" width="30%" align=right>
<B>道具名称</B>：
</td>
<td class="td1" width="70%">
<Select Size=1 Name="ToolsID">
<Option value="0" Selected>请选择您要赠送的道具</Option>
<%
	Dim rs
	Set Rs=Dvbbs.Plus_Execute("Select * From Dv_Plus_Tools_Info Order By ID")
	Do While Not Rs.Eof
		Response.Write "<Option value="""&Rs("ID")&""">"&Rs("ToolsName")&"</Option>"
	Rs.MoveNext
	Loop
	Rs.Close
	Set Rs=Nothing
%>
</Select>
</td>
</tr>
<tr>
<td class="td1" width="30%" align=right>
<B>目标用户</B>：
</td>
<td class="td1" width="70%">
<input type=text size=20 name="SendName">
</td>
</tr>
<tr>
<td class="td1" width="30%" align=right>
<B>赠送数量</B>：
</td>
<td class="td1" width="70%">
<input type=text size=10 value=0 name="ToolsNum">
</td>
</tr>
<tr>
<td class="td1" width="30%" align=right>
<B>同时送出金币</B>：
</td>
<td class="td1" width="70%">
<input type=text size=10 value=0 name="ToolsMoney">
</td>
</tr>
<tr><td height=24 class="td1" colspan=2 align=center><input type=submit class="button" name=submit value="送出道具或金币"></td></tr>
</form>
</table>
<%
End Sub

Sub SaveSend()
	Dim ToolsID,ToolsNum,SendName,ToolsName,ToolsMoney
	Dim Trs,rs,sql
	ToolsID = Dv_Tools.CheckNumeric(Request("ToolsID"))
	ToolsNum = Dv_Tools.CheckNumeric(Request("ToolsNum"))
	ToolsMoney = Dv_Tools.CheckNumeric(Request("ToolsMoney"))
	SendName = Request("SendName")
	If (ToolsID = 0 Or ToolsNum = 0 Or SendName = "") And ToolsMoney = 0 Then
		Errmsg=ErrMsg + "<BR><li>非法的道具或数量或用户名参数。"
		founderr=True
	End If
	If founderr Then Exit Sub
	SendName = Replace(SendName,"'","''")
	If SendName<>"" And ToolsID>0 And ToolsNum>0 Then
	Set Rs=Dvbbs.Plus_Execute("Select ToolsName From Dv_Plus_Tools_Info Where ID="&ToolsID)
	If Rs.Eof And Rs.Bof Then
		Errmsg=ErrMsg + "<BR><li>您要赠送的系统道具并不存在。"
		Exit Sub
	Else
		ToolsName = Rs(0)
	End If
	Set Rs=Dvbbs.Execute("Select UserID,UserName,UserMoney,UserTicket From Dv_User Where UserName='"&SendName&"'")
	If Rs.Eof And Rs.Bof Then
		Errmsg=ErrMsg + "<BR><li>您要赠送的目标用户名并不存在。"
		founderr=True
		Exit Sub
	Else
		'更新用户道具记录
		Set Trs=Dvbbs.Plus_Execute("Select ID From [Dv_Plus_Tools_Buss] Where UserID="& Rs(0) &" and ToolsID="& ToolsID)
		If Trs.Eof And Trs.Bof Then
			Sql = "Insert Into [Dv_Plus_Tools_Buss] (UserID,UserName,ToolsID,ToolsName,ToolsCount) Values ("&Rs(0)&",'"&SendName&"',"&ToolsID&",'"&ToolsName&"',"&ToolsNum&")"
			Dvbbs.Plus_Execute(Sql)
		Else
			Sql = "Update [Dv_Plus_Tools_Buss] Set ToolsCount = ToolsCount+"&ToolsNum&" Where UserID="& Rs(0) &" and ToolsID="& ToolsID
			Dvbbs.Plus_Execute(Sql)
		End If
		'插入论坛日志
		Dvbbs.Plus_Execute("Insert into [Dv_MoneyLog] (ToolsID,AddUserName,AddUserID,Log_IP,Log_Type,BoardID,Conect,HMoney) values ("&ToolsID&",'"&Rs("UserName")&"','"&Rs("UserID")&"','"&Dvbbs.UserTrueIP&"',0,-1,'"&Dvbbs.Membername&"管理员赠送<B>"&ToolsNum&"</B>个<B>"&ToolsName&"</B>道具给<B>"&Rs("UserName")&"</B>用户。','"&Rs("UserMoney")&"|"&Rs("UserTicket")&"')")
	End If
	Rs.Close
	Set Rs=Nothing
	Sql = "Update [Dv_Plus_Tools_Info] Set UserStock =  UserStock+"&ToolsNum&" Where ID="& ToolsID
	Dvbbs.Plus_Execute(Sql)
	Trs.Close
	Set Trs=Nothing
	End If
	If ToolsMoney<>0 And SendName<>"" Then
		Set Rs=Dvbbs.Execute("Select UserID,UserName,UserMoney,UserTicket From Dv_User Where UserName='"&SendName&"'")
		If Rs.Eof And Rs.Bof Then
			Errmsg=ErrMsg + "<BR><li>您要赠送的目标用户名并不存在。"
			founderr=True
			Exit Sub
		Else
			Dvbbs.Execute("Update Dv_User Set UserMoney = UserMoney + "&ToolsMoney&" Where UserID="&Rs(0))
			'插入论坛日志
			Dvbbs.Plus_Execute("Insert into [Dv_MoneyLog] (ToolsID,AddUserName,AddUserID,Log_IP,Log_Type,BoardID,Conect,HMoney) values ("&ToolsID&",'"&Rs("UserName")&"','"&Rs("UserID")&"','"&Dvbbs.UserTrueIP&"',0,-1,'"&Dvbbs.Membername&"管理员赠送<B>"&ToolsMoney&"</B>个金币给<B>"&Rs("UserName")&"</B>用户。','"&Rs("UserMoney")+ToolsMoney&"|"&Rs("UserTicket")&"')")
		End If
	End If
	Dv_Suc("赠送用户道具成功！")
	Footer()
	Response.End
End Sub
%>
12

⌨️ 快捷键说明

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