📄 admin_tongji.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="Admin_ChkPurview.asp"-->
<html><head><title>电影类别管理</title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<link href='Admin_Style.css' rel='stylesheet' type='text/css'>
</head>
<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'><table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' Class='border'>
<tr class='topbg'>
<td height='22' colspan=2 align=center> <strong>网 络 转 帐 信 息 </strong></td>
</tr>
<tr class='tdbg'>
<td width='70' height='30'><strong>管理导航：</strong></td>
<td height='30'><a href='?'>汇总管理首页</a> | <a href='?order=all'>所有销售记录</a> |
代理商销售统计 | 销售业绩汇总 |<a href="?order=nouser">未认领交易订单信息</a></td>
</tr></table>
<br>
<%
if lcase(request("action"))="del" then
call del()
end if
sub del()
set rs=server.createobject("adodb.recordset")
sql="delete from Film_pay where id="&request("id")
rs.open sql,conn,3,2
end sub
%>
<table width='100%' height="47" border='0' align='center' cellpadding='2' cellspacing='1' class='border'>
<tr class='title'>
<td width="143" height="19" align='center'><p><b>交易流水编号</b></p></td>
<td width="111" align='center'><b>冲值卡账户</b></td>
<td width="163" align='center'><b>充值卡类型</b></td>
<td width="204" align='center'><p><strong>充如QQ</strong></p></td>
<td width="204" align='center'><p><strong>充值卡状态</strong></p></td>
<td width="204" align='center'><p><strong>销售代理商</strong></p></td>
<td width="195" align='center'><strong>充值卡状态</strong></td>
</tr>
<%
dim sql
select case lcase(request("order"))
case "all"
sql="select * from Film_pay order by id desc"
case "true"
sql="select * from Film_pay where PayState=true order by id desc"
case "false"
sql="select * from Film_pay where PayState=false order by id desc"
case "nouser"
sql="select * from Film_pay where PayState=false order by id desc"
case "search"
if request("searchtype")= 0 then sql="select * from Film_pay where Billno like '%"&trim(request("keyword"))&"' or UserName like '%"&trim(request("keyword"))&"' order by id desc"
if request("searchtype")= 1 then sql="select * from Film_pay where Billno like '%"&trim(request("keyword"))&"' order by id desc"
if request("searchtype")= 2 then sql="select * from Film_pay where UserName like '%"&trim(request("keyword"))&"' order by id desc"
case else
sql="select * from Film_pay order by id desc"
end select
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then response.Write("<tr class='tdbg'><td colspan='20' align='center'><br>没有任何交易信息!<br><br></td></tr>")
do until rs.eof
%>
<tr class='tdbg' onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td align='center'>
<% =rs("Billno") %>
</td>
<td align='center'>
<% =rs("UserName") %>
</td>
<td align='center'>
<% =rs("PayMoney") %>
</td>
<td align='center'><%= rs("Md5") %></td>
<td align='center'><%= rs("Md5") %></td>
<td align='center'><%= rs("Md5") %></td>
<td align='center'><%= rs("PayState") %></td>
</tr>
<%
rs.movenext
loop
%>
<table align='center'>
<tr>
<td>
<%if page-1>0 then %>
<a href=?Page=<%=page-1%>&searchtype=<%= request("searchtype") %>&keyword=<%= request("keyword") %>&oder=<%= request("order") %>>上一页</a>
<% else
response.Write("上一页")&" "
end if
%>
<%if page+1=< pgnum then %>
<a href=?Page=<%=page+1%>&searchtype=<%= request("searchtype") %>&keyword=<%= request("keyword") %>&oder=<%=request("order") %>>下一页</a>
<% else
response.Write("下一页")
end if%>
转到
<select name=select2 onChange="window.location.href=this.options[this.selectedIndex].value">
<%for i=1 to rs.pagecount %>
<option value="?Page=<%=i%>&searchtype=<%= request("searchtype") %>&keyword=<%= request("keyword") %>&oder=<%= request("order") %>"><%= i %></option>
<% next %>
</select>
页 </td>
</tr>
</table>
</table>
<form action="?order=search" method="post">
<table width='100%' border='0' cellspacing='1' cellpadding='2' class='border'>
<tr class='tdbg'>
<td width='120' height="24"><strong>订单高级查询:</strong></td>
<td width='489'> <input name='Keyword' type='text' id='Keyword' size='20' maxlength='30'>
<select size=1 name='searchtype' >
<option value="0" selected> 搜索所有相关</option>
<option value="1">订单号码</option>
<option value="2" >交易用户</option>
</select>
<input type='submit' name='Submit2' value=' 查 询 '> </td>
<td width="378">若为空，则查询所有记录</td>
</tr>
</table>
</form>
<% call CloseConn() %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -