📄 paylist.asp
字号:
<%
response.buffer=true
response.expires=0%>
<!--#include file="includes/dataconn.inc"-->
<!--#include file="includes/setup.asp"-->
<html>
<head>
<title><%=sitename%> ---〉后台管理 ---〉定单管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="includes/main.css" rel=stylesheet type=text/css>
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
function checkall()
{
for (i=0;i<document.all.del.length;i++) document.all.del[i].checked=true
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF" background="images/greystrip.gif" text="#000000">
<%
if adminlogin=session("username") and adminpassword=session("password") then
%>
<br>
<div align="center"></div>
<table width=958 border=0 align="center" cellpadding=8 cellspacing=1 bgcolor=#000000>
<tr bgcolor="#669900">
<td colspan="10"><font color="#FFFFFF"><%=sitename%> ---〉后台管理 ---〉定单管理</font></td>
</tr>
<form method="post" action="">
<tr bgcolor="#FFFFFF">
<td colspan="10"> 搜索：用户名
<input type="type" name="sname"> <input type="submit" value="搜索"> </td>
</tr>
</form>
<tr bgcolor="#66CC33">
<td colspan="10">[<a href="alluser.asp">所有用户</a>] [<a href="yeskt.asp">开通用户</a>]
[<a href="nokt.asp">未开通用户</a>] [<a href="deluser.asp">删除用户</a>] [<a href="djusers.asp">被冻结用户</a>]
[<a href="changegroup.asp">等级管理</a>] [<a href="email.asp">邮件群发</a>] [<a href="paylist.asp">定单管理</a>]
[<a href="loginout.asp">退出管理</a>]</td>
</tr>
<tr>
<td width="64" background="images/greystrip.gif" bgcolor=#ffffff> <div align="center">用户名</div></td>
<td bgcolor=#ffffff background="images/greystrip.gif" width="68"><div align="center">姓名</div></td>
<td width="66" align="center" background="images/greystrip.gif" bgcolor=#ffffff>汇款方式</td>
<td width="31" align="center" background="images/greystrip.gif" bgcolor=#ffffff>金额</td>
<td width="92" align="center" background="images/greystrip.gif" bgcolor=#ffffff>汇款用途</td>
<td width="120" align="center" background="images/greystrip.gif" bgcolor=#ffffff>汇款日期</td>
<td bgcolor=#ffffff background="images/greystrip.gif" width="110"> <div align="center">提交日期</div></td>
<td width="28" align="center" background="images/greystrip.gif" bgcolor=#ffffff>确认</td>
<td width="130" align="center" background="images/greystrip.gif" bgcolor=#ffffff>备注</td>
<td width="78" align="center" background="images/greystrip.gif" bgcolor=#ffffff><button onclick="delform.submit()">删除</button></td>
</tr><form method="post" action="paylist.asp" name="delform">
<tbody>
<%
on error resume next
if request("yesno")="yes" then '确认功能
sql="update hkdan set hkqr=true where BH="&request("bh")
conntemp.execute(sql)
end if
if request("job")="del" then '删除功能
for each x in request.form("del")
sql="Delete from hkdan where BH=" & x
conntemp.execute(sql)
next
end if
sql="select * from hkdan order by tjdate"
if request("sname")<>"" then
sql="select * from hkdan where name='"& request("sname") &"'order by tjdate"
end if
rs.open sql,Conntemp,1,3
rs.pagesize=20
page=request("page")
if page="" then
page=1
end if
rs.absoluteposition=rs.recordcount-(page-1)*rs.pagesize
for ipag=1 to rs.pagesize
%>
<tr>
<td background="images/greystrip.gif" bgcolor=#ffffff> <div align="center"><%=rs("name")%></div></td>
<td width="68" background="images/greystrip.gif" bgcolor=#ffffff> <div align="center"><%=rs("username")%> </div></td>
<td width="66" align="center" background="images/greystrip.gif" bgcolor=#ffffff><%=rs("hktype")%></td>
<td width="31" align="center" background="images/greystrip.gif" bgcolor=#ffffff><%=rs("hkmoney")%></td>
<td width="92" align="center" background="images/greystrip.gif" bgcolor=#ffffff><%=rs("usefor")%></td>
<td width="120" align="center" background="images/greystrip.gif" bgcolor=#ffffff><%=rs("hkdate")%></td>
<td width="110" background="images/greystrip.gif" bgcolor=#ffffff> <div align="center"><%=rs("tjdate")%></div></td>
<td align="center" valign="top" background="images/greystrip.gif" bgcolor=#ffffff><%if rs("hkqr")=false then%></b>
<a href="?bh=<%=rs("BH")%>&yesno=yes"><B>否</B></a>
<%else%>
是 <%end if%></td>
<td valign="top" background="images/greystrip.gif" bgcolor=#ffffff><%=rs("bz")%></td>
<td align="center" valign="top" background="images/greystrip.gif" bgcolor=#ffffff><input name='del' type='checkbox' value='<%=rs("BH")%>' onDblClick="checkall()">
</td>
</tr>
<%
rs.moveprevious
if rs.bof Then exit for
next
%>
</tbody><input name="job" value="del" type="hidden"></form>
</table>
<table width="958" border="0" cellspacing="0" cellpadding="0" align="center">
<tr align="CENTER" valign="BOTTOM">
<td width="33%"> 共 <%=rs.recordcount%> 条记录 第 <%=page%>/<%=rs.pagecount%> 页 </td>
<td width="14%"><a href="paylist.asp" style="color:000000">首页</a></td>
<td width="22%"><%if page<>1 then%>
<a href="paylist.asp?page=<%=page-1%>" style="color:000000">上一页</a>
<%else%><font color="#999999">上一页</font><%end if%></td>
<td width="14%">
<%
rs.absolutepage=page+1
if not rs.EOF then
%>
<a href="paylist.asp?page=<%=page+1%>" style="color:000000">下一页</a>
<%else%><font color="#999999">下一页</font><%end if%> </td>
<td width="17%"><a href="paylist.asp?page=<%=rs.pagecount%>" style="color:000000">尾页</a></td>
</tr>
</table>
<%
else
%>
</body>
</html>
<script>alert('您的操作非法，已被系统记录！');location.href='index.asp'</script>
<%
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -