📄 gremail.asp

📁 一款用ASP写的办公自动化软件
💻 ASP
字号:
<!--#include file=data/conn.asp-->
<!--#include file=connfig.asp-->
<%
	tel=0
	if request("del")<>"" then 
	call del
	end if
	function del
		sql2="delete from email where id="&request("del")
		conn.Execute(sql2)
	end function
	set rs3=server.CreateObject("adodb.recordset")
	'用于计算新邮件的数量
	sql3="select * from email where new=0 and sname='"&session("admin_name")&"' order by time desc"
	rs3.open sql3,conn,1,1
	cou=rs3.recordcount
	set rs=server.CreateObject("adodb.recordset")
	sql="select * from email where sname='"&session("admin_name")&"' order by time desc"
	rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
-->
</style>
<link href="table.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
a:link {
	color: #0000FF;
	text-decoration: none;
}
a:visited {
	color: #0000FF;
	text-decoration: none;
}
a:hover {
	color: #000000;
	text-decoration: none;
}
a:active {
	text-decoration: none;
}
.style3 {color: #FF0000}
body {
	background-color: #ffffff;
}
.style5 {color: #000000}
-->
</style></head>

<body>
<table width="515" height="31" border="0" align="center" cellspacing="0">
  <tr bgcolor="#000000">
    <td width="27" bgcolor="BC82D6"><img src="images/QUOTE.GIF">
    <div align="left"></div></td>
    <td width="484" bgcolor="BC82D6"><a href="emailw.asp" ><font color="#FFFFFF">写邮件</font></a></td>
  </tr>
</table>
<br>
<table width="515" border="0" align="center" cellspacing="1" bgcolor="#336699" style="border:ta">
  <tr bgcolor="#FFFF00">
    <td width="243" height="31" background="images/tile_sub.gif"><div align="center" class="style5">标题</div></td>
    <td width="82" background="images/tile_sub.gif"><div align="center" class="style5">发件人</div></td>
    <td width="115" background="images/tile_sub.gif"><div align="center" class="style5">日期</div></td>
    <td width="62" background="images/tile_sub.gif"><div align="center" class="style5">管理</div></td>
  </tr>
  <%
  if not rs.eof then 
  tel=rs.recordcount
  shum=15
  rs.pagesize=shum
  maxpage=rs.pagecount
  requestpage=clng(request("p"))
  if requestpage="" or requestpage=0 then 
  requestpage=1
  end if 
  if requestpage>maxpage then 
  requestpage=maxpage
  end if 
  if not requestpage=1 then 
  rs.move (requestpage-1)*rs.pagesize
  end if 
  for i=1 to rs.pagesize and not rs.eof
  %>
  <tr >
    <td height="26" bgcolor="#FFFFFF" ><span class="style3"> &nbsp;→</span><a href="#" onClick="window.open('mailxian.asp?id=<%=rs("id")%>','','scrollbars=yes,width=650,height=500')"><%=rs("title")%></a>
      <%if rs("new")=0 then%>
      <img src="images/new.gif">
    <%end if%>
	</td>
    <td height="26" bgcolor="#FFFFFF" ><div align="center"><%=rs("fname")%></div></td>
    <td bgcolor="#FFFFFF" ><div align="center"><%=rs("time")%></div></td>
    <td bgcolor="#FFFFFF" ><div align="center"><a href=gremail.asp?del=<%=rs("id")%>&p=<%=requestpage%>>删除</a></div></td>
  </tr>
  <%
  rs.movenext 
  if rs.eof then exit for 
  next
  else
  response.Write("暂无信息")
  end if
  rs.close
  %>
  <tr bgcolor="#F3F3F3">
  <td height="35" colspan="4"> <div align="right">
  </div>    
    <div align="right">
      <table width="100%" height="100%" border="0">
        <tr>
          <td width="37%">共有<span class="style3"><%=tel%></span>封邮件　　新邮件<span class="style3"><%=cou%></span>封</td>
          <td width="63%"><div align="right">
		  共 <%= maxpage %> 页　　当前页：<%= requestpage %>  　                    <a href=gremail.asp?p=<%=requestpage-1%>>上一页</a>                    <a href=gremail.asp?p=<%=requestpage+1%>>下一页</a>
            </div></td>
        </tr>
      </table>
    </div>    </td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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