⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 fd_admin.asp

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

<%
sql="select * from feedback order by id desc"
if request("sname")<>"" then
sql="select * from feedback where username='"& request("sname") &"' order by id desc"
end if
rs.open sql,conn,1,1
if request("del")<>"" then '删除功能
chk_admin_login(3)
set rs1=server.createobject("ADODB.Recordset")
sql1="select * from feedback where id="&request("del")
rs1.open sql1,conn,1,3
rs1.delete
Response.redirect "fd_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="5" class="td-title-color"><table  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td class="shadow">用户付费确认</td>
        </tr>
      </table>      </td>
    </tr>
    <tr> 
      <td colspan="5"> 搜索:用户名 
        <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 width="13%">递交时间</td>
    <td width="16%">IP</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 align="center"><a href="view_fd.asp?id=<%=rs("id")%>"><%=rs("title")%></a></td>
        <td align="center" valign="top"><%=rs("time")%> </td>
        <td align="center" valign="top"><%=rs("ip")%></td>
        <td align="center" valign="top"> 
        <a href="?del=<%=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="?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="?page=<%=page+1%>">下一页</a>
<%else%><font color="#999999">下一页</font><%end if%>  </td>
                      
    <td width="17%"><a href="?page=<%=rs.pagecount%>">尾页</a></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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