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

📄 adminfankui.asp

📁 社区天地图文系统(核心:尘缘雅境图文系统) 版本: 1.0 本系统是ASP+ACCESS环境下开发成功
💻 ASP
字号:
🔍 
<%@ Language=VBScript%>

<!--#include file=conn.asp --><!--#include file=../include/config.asp --><!--#include file="../inc/config.asp"--><!--#include file="char.inc"--><!--#include file="chkuser.asp" -->



<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查看反馈</title>
<LINK href=site.css rel=stylesheet><script>

function ow(obj) {
    URL=obj.href;
    window.open(URL,'','width=500,height=430,scrollbars=no,toolbars=no');
    return false;
}


</script>

</head>
<body topmargin="0" marginheight="0"><!--#include file=top.asp--><br>

<%
set rst=server.createobject("adodb.recordset")
sql="select * from fankui order by id desc"
rst.open sql,conn,1,1
%><%       
	if Not(rst.bof and rst.eof) then'判别数据表中是否为空记录
			NumRecord=rst.recordcount
			rst.pagesize=15
			NumPage=rst.Pagecount
			if request("page")=empty then 
			NoncePage=1
		else
		if Cint(request("page"))<1 then
			NoncePage=1
		else
			NoncePage=request("page")
		end if
		if Cint(Trim(request("page")))>Cint(NumPage) then NoncePage=NumPage
	end if
else
	NumRecord=0
	NumPage=0
	NoncePage=0
	end if
%>

       <div align="center">
					<table border="0" width="750">
						<tr>
            <td width="70" bgcolor="#EBE9FE" align="center">日期</td>
            <td width="43" bgcolor="#EBE9FE" align="center">姓名</td>
            <td width="136" bgcolor="#EBE9FE" align="center">mail</td>
            <td width="64" bgcolor="#EBE9FE" align="center">班级</td>
            <td width="25" bgcolor="#EBE9FE" align="center">内容</td>
       
            <td width="27" bgcolor="#EBE9FE" align="center">删除</td>
          </tr>
            <%if Not(rst.bof and rst.eof) then
	rst.move (Cint(NoncePage)-1)*10,1
	for i=1 to rst.pagesize
%>

          <tr>
            <td width="70" align="center"><%=(year(rst("riqi")))%>-<%=(month(rst("riqi")))%>-<%=(day(rst("riqi")))%></td>
            <td width="43" align="center">            <%=rst("name")%></td>
            <td width="136" align="center"><%=rst("mail")%></td>
            <td width="64" align="center"><%=rst("banji")%></td>
            <td width="25" align="center"><a target="_blank" href=fankuixian.asp?id=<%=rst("id")%> onclick="return ow(this)">查看</a></td>
           
            <td width="27" align="center">
            <a href="admin_delfankui.asp?id=<%=rst("id")%>">删除</a></td>
          </tr>
           <%		 		rst.movenext
			   		if rst.eof then exit for
					next
else
	response.write "<tr><td colspan=13><marquee scrolldelay=120 behavior=alternate>没有找到任何记录!!!</marquee></td></tr>"
end if	

rst.close
set rst=nothing

%>

        					</table>
					<table width="621" border="0" align="center">
  <tr>  <td width="90">　</td>
          <td height="17" width="521"> 
            
      <div align="right"> 
        <input type="hidden" name="page" value="<%=NoncePage%>">
              <%
if NoncePage>1 then
	response.write "|<a href=adminfankui.asp?page=1>首 页</a>| |<a href=adminfankui.asp?page="&NoncePage-1&">上一页</a>|&nbsp"
else
	response.write "|首 页| |上一页|&nbsp"
end if
if Cint(Trim(NoncePage))<Cint(Trim(NumPage)) then
	response.write "|<a href=adminfankui.asp?page="&NoncePage+1&">下一页</a>| |<a href=adminfankui.asp?page="&NumPage&">尾 页</a>|"
else
	response.write "|下一页| |尾 页|"
end if
%>
              &nbsp;页次：<font color="#0033CC"><%=NoncePage%></font>/<font color="#0033CC"><%=NumPage%></font> 
              共<font color="#0033CC"><%=NumRecord%></font>条记录&nbsp; </div>                                     
          </td>

  </table>
					</div>
    
</body>

</html>

⌨️ 快捷键说明

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