📄 receivebox.asp

📁 企业信息化管理系统：针对的是一个计算机配件生产公司为背景实现的。
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="3;email_index.asp">
<title>内部邮箱</title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
body {
	background-color: #ffffff;
}
.style2 {
	font-size: 16px;
	font-weight: bold;
	color: #FFFFFF;
}
.style3 {color: #000000}
.STYLE4 {color: #FFFFFF}
-->
</style>
</head>

<body>
<br><br>
<!--#include file ="Connections/auto.asp"-->
<%
   set RS = server.CreateObject("ADODB.Recordset")
   
   Sname = "SELECT Login.Part, Message.Name, Message.Position, email.id,email.faren, email.liulan, email.fbshj,email.biaoti FROM email RIGHT JOIN (Message INNER JOIN Login ON Message.ID=Login.ID) ON email.faren=Message.ID WHERE (((email.shouren)='"&Session("Rname")&"')) ORDER BY email.liulan DESC , email.fbshj DESC;"

%>
<table width="529" height="118" border="0" align="center" cellspacing="1" bgcolor="#666699">
  <tr>
    <td height="23" colspan="5"><div class="style3" id="title" >
      <div align="center" class="style2">收件箱</div>
    </div></td>
  </tr>
  <tr bordercolor="#330066" style="border:1:#330066:1">
    <td width="35" height="25" bgcolor="#FFFFFF">浏览</td>
    <td width="196" bgcolor="#FFFFFF">标题</td>
    <td width="122" bgcolor="#FFFFFF">发件人</td>
    <td width="100" bgcolor="#FFFFFF">发件时间</td>
	<td width="89" bgcolor="#FFFFFF">操作</td>
    
  </tr>
<%  
   RS.open Sname , CN,1,3
   if not RS.eof then
     RS.movefirst
      RS.pagesize=5
	  page=CLng(Request("page"))
	  if page<1 then page=1
	  RS.absolutepage=page
   for i=1 to RS.pagesize
    if RS.eof then
	   exit for
	end if

 %>  
   <tr><td height="26" bgcolor="#FFFFFF">
	 <%
	  if strcomp(RS("liulan"),"True")=0 then
	     response.Write("已读")
	  else
	     response.Write("未读")
	  end if
	  %>
    </td><td bgcolor="#FFFFFF"><a href="#" onClick="JavaScript:window.open('email_detail.asp?ID=<%=RS("ID") %>','','width=550,height=250')">
	<%response.Write(RS("biaoti"))%>
	 </a></td><td bgcolor="#FFFFFF">
	 <%response.Write(part&position)%>&nbsp;&nbsp;<%response.write(RS("Name"))%>
	 </td><td bgcolor="#FFFFFF">
	  &nbsp;<%response.Write(RS("fbshj"))%>
	 </td><td bgcolor="#FFFFFF">
	  <img src="picture/del.gif" width="23" height="17" onClick="JavaScript:window.open('email_del.asp?ID=<%=RS("ID") %>','del','width=600,height=400')">
     </td>
  </tr>
	 <% 
	  if not RS.eof then
	   RS.movenext
	   else 
	     exit for
	  end if
   next
   'RS.close
%>
  <tr>
    <td height="21" colspan="5" >
    </td>
  </tr>
<%
  else 
 %>
 <tr><td colspan='5' bgcolor="#FFFFFF"><div align="center">没有邮件</div></td>
 </tr>
<%
RS.close
  end if
%>
</table> 
<br>
</body>
</html>
⌨️ 快捷键说明

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