📄 pay_admin.asp

📁 使用Asp+Access+FSO+Jmail+Servu开发
💻 ASP
字号:
<%
response.buffer=true
response.expires=0%>
<!--#include file="admin.asp"-->

<%
sql="select * from pay order by tjdate"
if request("sname")<>"" then
sql="select * from [pay] where name='"& request("sname") &"' order by tjdate"
end if
rs.open sql,conn,1,1
if request("qrid")<>"" then '确认功能
chk_admin_login(2)
set rs1=server.createobject("ADODB.Recordset")
sql1="select * from [pay] where id="&request("qrid")
rs1.open sql1,conn,1,3
rs1("qr")=True
rs1.update
money=rs1("money")
username=rs1("username")
set rs2=server.createobject("ADODB.Recordset")
sql2="select * from [user] where username='"&username&"'"
rs2.open sql2,conn,1,3
rs2("money")=rs2("money")+cint(money)
rs2.update
rs2.close
Response.redirect "pay_admin.asp"
end if
if request("delid")<>"" then '删除功能
chk_admin_login(3)
set rs1=server.createobject("ADODB.Recordset")
sql1="select * from [pay] where id="&request("delid")
rs1.open sql1,conn,1,3
rs1.delete
Response.redirect "pay_admin.asp"
end if
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language=javascript>
function ConfirmDel()
{
   if(confirm("确定要删除吗？"))
     return true;
   else
     return false;
}
</script>
<link href="../css/admin.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
if rs.eof and rs.bof then   
response.write"<center><br><br>定单列表为空！</center>"
response.end  
end if 
%>
<table width=95% border=1 align="center" cellpadding=4 cellspacing=0 class="table-line">
  <form method="post" action="">
    <tr align="center">
      <td colspan="8" class="td-title-color"><table  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td class="shadow">用户付费确认</td>
        </tr>
      </table>      </td>
    </tr>
    <tr> 
      <td colspan="8"> 搜索：用户名 
        <input name="sname" type="text" size="12"> 
        <input type="submit" value="搜索"></td>
    </tr>
  </form>
  <tr align="center" class="td-title-color"> 
    <td width="11%"> 
    用户名</td>
    <td>汇款方式</td>
    <td>金额</td>
    <td width="14%">汇款日期</td>
    <td width="13%"> 
    提交日期</td>
    <td width="13%">确认</td>
    <td width="16%">备注</td>
    <td width="15%">删除</td>
  </tr>
  <form method="post" action="pay_admin.asp" name="delform">
    <tbody>
      <%
	 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 onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
        <td align="center">        <%=rs("username")%></td>
        <td width="11%" align="center"><%=rs("type")%></td>
        <td width="7%" align="center"><%=rs("money")%></td>
        <td width="14%" align="center"><%=rs("date")%></td>
        <td width="13%" align="center">        <%=rs("tjdate")%></td>
        <td align="center" valign="top"> 
          <%if rs("qr")=False then
		  Response.Write("<a href=pay_admin.asp?qrid="&rs("id")&">否</a>")
          else
		  Response.Write("是")
          end if
		  %></td>
        <td valign="top"><%=rs("other")%></td>
        <td align="center" valign="top"> 
        <a href="?delid=<%=rs("id")%>" onClick="return ConfirmDel()">删除</a></td>
      </tr>
      <%
          rs.moveprevious
          if rs.bof Then exit for
          next  
%>
    </tbody>
    <input name="job" value="del" type="hidden">
  </form>
</table>
                  
<table width="95%" border="0" cellspacing="0" cellpadding="4" align="center">
  <tr align="CENTER" valign="BOTTOM"> 
                      <td  width="33%"> 共 <%=rs.recordcount%> 条记录 第 <%=page%>/<%=rs.pagecount%> 页 </td>
                      
    <td width="14%"><a href="pay_admin.asp">首页</a></td>
                      <td width="22%"><%if page<>1 then%>
      <a href="pay_admin.asp?page=<%=page-1%>">上一页</a>
<%else%><font color="#999999">上一页</font><%end if%></td>
                      
    <td width="14%">
<%
						rs.absolutepage=page+1
						if not rs.EOF then   
					  %>
      <a href="pay_admin.asp?page=<%=page+1%>">下一页</a>
<%else%><font color="#999999">下一页</font><%end if%>  </td>
                      
    <td width="17%"><a href="pay_admin.asp?page=<%=rs.pagecount%>">尾页</a></td>
  </tr>
</table>

</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -