📄 paypoint.asp
字号:
<%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.css" rel=stylesheet type=text/css>
<title>扣点记录查看</title>
</head>
<script type="text/javascript" src="../inc/hzcalendar.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">
关键字：
<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:pointer;" 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=cint(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
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -