plus_tools_info.asp

公司企业网站管理系统全站源码,用于企业内部对网站的管理

<!--#include file =../conn.asp-->
<!--#include file="inc/const.asp"-->
<!--#include file="../inc/dv_clsother.asp"-->
<!--#include file="../Dv_plus/Tools/plus_Tools_const.asp"-->
<%
Head()
Dim admin_flag
If Trim(Request("action"))="Setting" Then Tools_Setting()
admin_flag=",40,"
CheckAdmin(admin_flag)
Main_head()
Select Case Trim(Request("action"))
	'Case "Setting" : Tools_Setting
	Case "AllStarSetting" : AllStarSetting
	Case "Editinfo" : AddTools
	Case "SaveTools" : SaveTools
	Case "List" : Tools_List()
	Case "UpdateUserStock" : UpdateUserStock
	Case Else
		Tools_List()
End Select
If founderr then call dvbbs_error()
footer()

'顶部标题
Sub Main_head()
%>
<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
<tr><th>道具中心管理</th></tr>
<tr><td class="td2"><B>道具资料设置说明</B>：<BR>
	1、<font color=red>建议管理员定期添加库存，请按论坛市场实际需求进行调节，不建议频繁添加。</font>（通常在道具总拥有量非常少的情况下进行添加库存，防止会员趁机抬高价格。）
	<BR>
	2、<font color=blue>系统库存设置为-1则表示该道具为系统道具</font>，系统不出售，一般为论坛使用过程产生，如果用户得到可自己转让或出售</td></tr>
</table>
<br>
<%
End Sub

Sub Tools_Setting()
	Response.Redirect "setting.asp#settingxu"
End Sub

'道具列表
Sub Tools_List()
	Dim Orders
	Select case Trim(Request.QueryString("orders"))
		Case "0" : Orders = "SysStock"
		Case "1" : Orders = "UserMoney"
		Case "2" : Orders = "UserStock"
		Case "3" : Orders = "IsStar"
		Case Else : Orders = "SysStock"
	End Select
	%>
	<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
	<tr><th colspan="6" style="text-align:center;">道具资料列表</th></tr>
	<tr><td class=td1 colspan="6">
	[<a href="?action=UpdateUserStock"><font color=blue>更新用户库存</font></a>]
	</td></tr>
	<tr><td class="td1" colspan="6"><ol type="A">
	<li>点击道具名称进行修改其详细资料。</li>
	<li>点击带链接的标题栏目查看相应的排序。</li>
	</ol></td></tr>
	<tr>
		<th width="17%">名称</th>
		<th width="45%">说明</th>
		<th width="15%" id=TableTitleLink><A HREF="?orders=1" Title="按金币由少到多排序">价格</A></th>
		<th width="5%" id=TableTitleLink><A HREF="?orders=0" Title="按系统库存由少到多排序">库存</A></th>
		<th width="10%" id=TableTitleLink><A HREF="?orders=2" Title="按用户拥有库存由少到多排序">用户库存</A></th>
		<th width="8%" id=TableTitleLink><A HREF="?orders=3" Title="按关闭到开启排序">启用</A></th>
	</tr>
	<form action="?action=AllStarSetting" method=post> 
	<%
	Dim Rs,Sql,i
	Sql = "Select ID,ToolsName,ToolsInfo,IsStar,SysStock,UserStock,UserMoney,UserTicket,BuyType From [Dv_Plus_Tools_Info] ORDER BY "& Orders
	Set Rs = Dvbbs.Plus_Execute(Sql)
	If Not Rs.eof Then
		SQL=Rs.GetRows(-1)
	Else
		Response.Write "<tr><td class=""td2"" colspan=""6"" align=center>道具还未添加！</td></tr></form></table>"
		Exit Sub
	End If
	Rs.close:Set Rs = Nothing
	For i=0 To Ubound(SQL,2)
	%>
	<tr>
		<td class="td2"><a href="?action=Editinfo&EditID=<%=SQL(0,i)%>"><%=Server.Htmlencode(SQL(1,i))%></a></td>
		<td class="td2"><%=Server.Htmlencode(SQL(2,i)&"")%></td>
		<td class="td2">
		<%
		Select Case SQL(8,i)
		Case 0
			Response.Write SQL(6,i)
		Case 1
			Response.Write SQL(7,i)
		Case 2
			Response.Write SQL(6,i) & " And " & SQL(7,i)
		Case 3
			Response.Write SQL(6,i) & " Or " & SQL(7,i)
		End Select
		%>
		</td>
		<td class="td2" align=center>
		<%
		If SQL(4,i)="-1" Then
		Response.Write "系统"
		Else
		Response.Write SQL(4,i)
		End If
		%>
		</td>
		<td class="td2" align=center><%=SQL(5,i)%></td>
		<td class="td2" align=center><INPUT TYPE="checkbox" class="checkbox" NAME="Star" <%If SQL(3,i)="1" Then Response.Write "checked"%> value="<%=SQL(0,i)%>">
		</td>
	</tr>
	<%
	Next
	Response.Write "<tr><td class=""td1"" colspan=""6"" align=right><INPUT TYPE=""submit"" class=""button"" value=""保存修改设置""></td></tr></form></table>"
End Sub

'批量修改道具开启或关闭设置
Sub AllStarSetting()
	Dim EditID,Sql
	EditID = Trim(Request.Form("Star"))
	If CheckID(EditID) = False Then
		Response.Write "修改中止，请确认提交的参数是否正确后重新提交！<a href="&Request.ServerVariables("HTTP_REFERER")&" ><<返回上一页</a>"
		Exit Sub
	End If
	'先将启动设置还原为关闭状态
	Sql = "Update [Dv_Plus_Tools_Info] Set IsStar=0"
	Dvbbs.Plus_Execute(Sql)

	'开启所选项
	Sql = "Update [Dv_Plus_Tools_Info] Set IsStar=1 Where ID in (" & EditID & ")"
	Dvbbs.Plus_Execute(Sql)

	Dv_suc("批量修改道具开关设置成功！")
End Sub

'添加，修改道具信息
Sub AddTools()
Dim EditID,Rs,Sql
EditID = Trim(Request.QueryString("EditID"))
If EditID<>"" and IsNumeric(EditID) Then
	EditID = Cint(EditID)
Else
	Response.Write "修改中止，请确认提交的参数是否正确后重新提交！<a href="&Request.ServerVariables("HTTP_REFERER")&" ><<返回上一页</a>"
	Exit Sub
End If

'ID=0 ,ToolsName=1 ,ToolsInfo=2 ,IsStar=3 ,SysStock=4 ,UserStock=5 ,UserMoney=6 ,UserPost=7 ,UserWealth=8 ,UserEp=9 ,UserCp=10 ,UserGroupID=11 ,BoardID=12,UserTicket=13,BuyType=14,ToolsImg=15,ToolsSetting=16
Dim ToolsSetting
Sql = "Select ID,ToolsName,ToolsInfo,IsStar,SysStock,UserStock,UserMoney,UserPost,UserWealth,UserEp,UserCp,UserGroupID,BoardID,UserTicket,BuyType,ToolsImg,ToolsSetting From [Dv_Plus_Tools_Info] Where ID="& EditID

Set Rs = Dvbbs.Plus_Execute(Sql)
If Rs.Eof Then
	Response.Write "查找的道具数据不存在！<a href="&Request.ServerVariables("HTTP_REFERER")&" ><<返回上一页</a>"
	Exit Sub
Else
	Sql = Rs.GetString(,1, "§§§", "", "")
	Sql = Split(Sql,"§§§")
End If
Rs.Close
Set Rs = Nothing
ToolsSetting = Split(Sql(16),",")
If SQL(15)="" Then SQL(15)="Dv_plus/Tools/pic/None.jpg"
%>
<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
<form action="?action=SaveTools" method=post name=PlusTools onsubmit="GetData();">
<input type=hidden name="EditID" value="<%=SQL(0)%>">
<tr><th colspan="2" style="text-align:center;">道具资料设置</th></tr>
<tr><td colspan="2" height=23 class="td1" align=center>
<img src="../<%=Server.Htmlencode(SQL(15))%>" border=0></td></tr>
<tr>
<td class="td2" width="20%" align=right><b>道具名称</b></td>
<td class="td2" width="80%"><INPUT TYPE="text" NAME="ToolsName" value="<%=Server.Htmlencode(SQL(1))%>" size=35> 不能超过50个字符！</td>
</tr>
<tr>
<td class="td2" align=right><b>道具简介</b></td>
<td class="td2">
<INPUT  NAME="ToolsInfo" TYPE="text" Style="width:80%" value="<%=Server.Htmlencode(SQL(2))%>"> 不能超过250个字符！</td>
</tr>
<tr>
<td class="td2" align=right><b>道具图标</b></td>
<td class="td2">
<INPUT  NAME="ToolsImg" TYPE="text" Style="width:80%" value="<%=Server.Htmlencode(SQL(15))%>"> 请正确填写图片路径</td>
</tr>
<tr>
<td class="td2" align=right><b>当前道具状态</b></td>
<td class="td2">
<input type=radio class="radio" name="IsStar" value=0 <%If Sql(3)="0" Then%>checked<%End If%>>关闭&nbsp;
<input type=radio class="radio" name="IsStar" value=1 <%If Sql(3)="1" Then%>checked<%End If%>>开启&nbsp;
</td>
</tr>
<tr><th colspan="2" style="text-align:center;">道具交易设置</th></tr>
<tr>
<td class="td2" align=right><b>金币价格</b></td>
<td class="td2"><INPUT TYPE="text" NAME="ToolsMoney" value="<%=SQL(6)%>" size=10></td>
</tr>
<tr>
<td class="td2" align=right><b>点券价格</b></td>
<td class="td2"><INPUT TYPE="text" NAME="UserTicket" value="<%=SQL(13)%>" size=10></td>