📄 report.asp

📁 客户管理系统使用ASP.NET和Access
💻 ASP
字号:
<!--#include file="islogin.asp"-->
<!--#include file="../include/Format_Time.asp"-->
<!--#include file="conn.asp"--><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/css.css" rel="stylesheet" type="text/css">
<title></title>
<style type="text/css">
<!--
@import url("../style/admin.css");
-->
</style></head>

<body>
<table width="800" border="0" cellpadding="0" cellspacing="0" class="table_1">
  <tr>
    <td height="30" align="left" class="table_1_top"><table width="300" height="30"  border="0" cellpadding="0" cellspacing="0">
      <tr align="center">
        <td width="130" bgcolor="#FFFFFF"><a href="ReportAdd.asp">添加修改当天日报表</a></td>
        <td>&nbsp;</td>
      </tr>
    </table>
    </td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">
	<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0">
      <tr  >
        <td width="100" height="20" align="center"><strong>时间</strong></td>
        <td><strong>内容</strong></td>
        <td width="100">&nbsp;</td>
      </tr>
<%
page=request.querystring("page")
set rs=server.createobject("adodb.recordset")
sql="select * from Report where MemberId="&session("MemberId")&" order by id desc"
rs.open sql,conn,1,1
on error resume next
maxjilu=rs.recordcount
perpage=20'每页显示记录数
t=page*perpage
rs.absoluteposition=t+1
f=t+perpage

ww=0
for i=t+1 to f
ww=ww+1
%>	  
      <tr <%if (ww mod 2)=1 then%>bgcolor="#F8F8FA"<%end if%> >
        <td width="100" height="20" align="center"><%=Format_Time(rs("addtime"),2)%></td>
        <td><a href="ReportList.asp?id=<%=rs("id")%>"><%=left(rs("nr"),45)%></a></td>
        <td width="100">&nbsp;</td>
      </tr>
<%
rs.movenext 
if rs.eof then
exit for
rs.close 
set rs=nothing
end if
next
tt=page*perpage
    if page<0 then
   page=0
   end if
   if tt>=maxjilu then
   ttt=page-1
   end if
   if maxjilu-tt<perpage then
   ttt=page-1
      else
   ttt=page
   end if
   u=1
   do while u*perpage<maxjilu
   u=u+1
   loop
session("page")=ttt
set conn=nothing
%>    
</table></td>
  </tr>
  <tr>
    <td height="25" align="center" bgcolor="#FFFFFF">        <div style="text-align:left;background-color:#e6e6e6; height:20px;padding-top:2px;font-size:12px;"><a href="?page=0">首页</a>-<a href="?page=<%=(page-1)%>">上页</a>-<a href="?page=<%=(page+1)%>" >下页</a>-<a href="?page=<%=(u-1)%>" >末页</a>
          <% 
  if ttt<=5 then 
  uu=0 
  while uu<u  
   %>
          <a href="?page=<%=(uu)%>"><%=(uu+1)%></a>
          <%uu=uu+1 
 wend 
  else%>
          <a style="color:blue" href="?page=<%=(ttt-6)%>">[<%=(ttt-5)%>]</a> <a style="color:blue" href="?page=<%=(ttt-5)%>">[<%=(ttt-4)%>]</a> <a style="color:blue" href="?page=<%=(ttt-4)%>">[<%=(ttt-3)%>]</a> <a style="color:blue" href="?page=<%=(ttt-3)%>">[<%=(ttt-2)%>]</a> <a style="color:blue" href="?page=<%=(ttt-2)%>">[<%=(ttt-1)%>]</a> <a style="color:blue" href="?page=<%=(ttt-1)%>" >[<%=(ttt)%>]</a> <a style="color:blue" href="?page=<%=(ttt)%>">[<%=(ttt+1)%>]</a>
          <%end if%>
    </div></td>
  </tr>
</table>
<br>
</body>
</html>
<!--#include file="MenuRight.asp"-->
⌨️ 快捷键说明

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