<%ds="../../"%>
<!--#include file="../../conn/adminconn.asp"-->
<!--#include file="../checkvalid.asp" -->
<!--#include file="../../inc/safe.asp"-->
<!--#include file="../../inc/memberpagelist.asp" -->
<!--#include file="../../inc/replace.asp" -->
<%
If Not FRAdminLevel(86) Then
	Call ErrorMsg()
End If
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/style<%=sk%>.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="../inc/input.js"></script><title>扣点记录查看</title>
</head>
<script type="text/javascript" src="../inc/Admin.js"></script>
<body bgcolor="#FFFFFF">
<%
action=trim(request("action"))
if action="del" then
   call del()
end if
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"  class="tableBorder">
   <tr> 
	   <th  height=25 class="tableHeaderText"><A href="money/paypoint.asp"><font color="#FFFFFF">消费点数日志</font></A></th>
   </tr>
  <form action="paypoint.asp" method="post">
    <tr> 
      <td height="28" class=forumRowHighlight> <div align="left"> 
          &nbsp;&nbsp;&nbsp;&nbsp;关键字： 
          <input name="keyword" type="text" id="keyword" size="20">
          <select name="segment" size="1" id="segment">
            <option value="member">会员帐号</option>
            <option value="point">扣点数目</option>
          </select>
          <select name="membertype" size="1" id="membertype">
            <option value="">-不限-</option>
            <option value="1">个人会员</option>
            <option value="2">企业会员</option>
			<option value="3">培训会员</option>
			<option value="4">院校会员</option>
          </select>
          <input name="paydate" type="text" size="10" id=funddate value=""><img src="../images/calendar_bnt.gif" style="cursor:hand;" align="absmiddle" onClick="fPopUpCalendarDlg(paydate);return false" WIDTH="34" HEIGHT="21">
          <input type="submit" name="Submit" value="搜索">
      </div></td>
    </tr>
  </form>
</table> 
<br>
<table border="0" width="98%"  align="center" cellpadding="2" cellspacing="1" class="tableBorder">
	<tr>
		<th colspan="9" valign="top" class="tableHeaderText" height="25">
		<b>扣点记录</b></th>
	</tr>
	<tr>
		<td width="4%" align="center" class=bodytitle><b class="style1">ID</b></td>
		<td width="10%" align="center" class=bodytitle><b class="style1">扣点账号</b></td>
		<td width="7%" align="center" class=bodytitle><b class="style1">账号类型</b></td>
		<td width="12%" align="center" class=bodytitle><b class="style1">操作时间</b></td>
		<td width="6%" align="center" class=bodytitle><b class="style1">扣除点数</b></td>
		<td width="8%" align="center" class=bodytitle><b class="style1">操作IP</b></td>
		<td width="7%" align="center" class=style1><b>操作</b></td>
		<td width="15%" align="center" class=bodytitle><b class="style1">扣费说明</b></td>
		<td width="7%" align="center" class=bodytitle><b class="style1">删除</b></td>
	</tr>
	<%
	keyword=CheckStr(request("keyword"))
	segment=CheckStr(request("segment"))
	membertype=CheckStr(request("membertype"))
	paydate=request("paydate")
	sql="select * from JOB_consume where consume_content<>'' "
	if not isnull(keyword) And  keyword<>"" then
		if segment="member" then
			sql=sql&" and consume_member like '%"&keyword&"%'"
		elseif segment="point" then
			sql=sql&" and consume_num like '%"&keyword&"%'"
		end if
	end if
	if not isnull(membertype) And membertype<>"" then
		sql=sql&" and consume_userclass="&membertype
	end if
	if  IsDate(paydate) then
		sql=sql&" and pay_date>=#"&paydate&" 0:0:1# and pay_date<=#"&paydate&" 23:59:59#"
	end if
	
	sql=sql&" order by consume_date desc"

	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,1
	if (rs.eof and rs.bof) then
		response.write "<tr>"
		response.write "<td class=12px width=760 colspan=11><font color=#FF0000>暂时还没有任何数据</font></td>"
		response.write "</tr>"
    else
	    rs.PageSize =20 '每页记录条数
		iCount=rs.RecordCount '记录总数
		iPageSize=rs.PageSize
		maxpage=rs.PageCount 
		page=request("currentpage")
		
		if Not IsNumeric(page) or page="" then
			page=1
		else
			page=cint(page)
		end if
		
		if page<1 then
			page=1
		elseif  page>maxpage then
			page=maxpage
		end if
		
		rs.AbsolutePage=Page
	
		if page=maxpage then
			x=iCount-(maxpage-1)*iPageSize
		else
			x=iPageSize
		end if

	
						  ii=1
						  while not rs.eof and ii<=rs.pagesize
%>
	<tr>
		<td  height="25" align="center" class="forumRow"><span style="font-size: 12px"><%=rs("consume_id")%></span></td>
		<td align="center" class="forumRow" ><span style="font-size: 12px"><%=rs("consume_member")%></span></td>
		<td align="center" class="forumRow"><span style="font-size: 12px">
	  <%
		if rs("consume_userclass")=2 then
		response.Write "企业帐号"
		elseif rs("pay_class")=1 then
		response.Write "个人帐号"
		elseif rs("pay_class")=4 then
		response.Write "院校帐号"
		elseif rs("pay_class")=3 then
		response.Write "培训帐号"		
		end if
		
		%></span></td>
		<td align="center" class="forumRow" ><span style="font-size: 12px"><%=rs("consume_date")%></span></td>
		<td align="center" class="forumRow" ><span style="font-size: 12px"><%=rs("consume_num")%></span></td>
		<td align="center" class="forumRow" ><%=rs("consume_ip")%></td>
		<td align="center" class="forumRow" ><%=rs("consume_type")%></td>
		<td align="center" class="forumRow"><span style="font-size: 12px"><%=rs("consume_content")%></span></td>
		<td align="center" class="forumRow" ><a href="paypoint.asp?id=<%=rs("consume_id")%>&action=del"><span style="font-size: 12px">删除</span></a></td>
	</tr>
<%
rs.movenext
ii=ii+1
wend
end if
%>
	<tr>
		<td colspan="6" >
		<%call pagelist("paypoint.asp","keyword="&keyword&"&segment="&segment&"&paymode="&paymode&"",rs.pagecount,Page,rs.recordcount)%>		</td>
	</tr>
</table>
<%
sub del()
id=clng(trim(request("id")))
conn.execute ("delete from JOB_consume where consume_id="&id)
end sub

rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<!--#include file="../inc/copy.asp" -->
</body>
</html>



