📄 mail_in.asp

📁 5237 论坛.rar
💻 ASP
字号:
<!--#include file="Connections/connY.asp" -->
<!--#include file="Inc/Info.asp" -->
<!--#include file="Inc/TimeFormat.asp" -->
<!--#include file="Inc/UBBCode.asp" -->
<!--#include file="Inc/SetCss.asp" -->
<%
Set rsIn = Server.CreateObject("ADODB.Recordset")
Sql = "Select *  From tMailManage Where Not rIsVisible And Not rIsNone And Not rIsRead And rIncept='"&Session("SNickName")&"' Order By rSendTime Desc"
rsIn.Open Sql,ConnY,3,3
TotalUnRead=rsIn.RecordCount
rsIn.Close
Sql = "Select *  From tMailManage Where Not rIsVisible And Not rIsNone And rIncept='"&Session("SNickName")&"' Order By rSendTime Desc"
rsIn.Open Sql,ConnY,3,3
TotalMail=rsIn.RecordCount
If Not rsIn.Eof Then
Dim PageSize
Dim RowNum
rsIn.PageSize=14
RowNum=rsIn.PageSize
PageSize=rsIn.PageSize
If Request("Page")<>"" Then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End If
TotalNum=rsIn.RecordCount
If (TotalNum Mod PageSize)=0 Then
TotalPage=TotalNum \ PageSize
Else
TotalPage=TotalNum \ PageSize+1
End If
If CurrentPage<1 Then
CurrentPage=1
End If
If CurrentPage>TotalPage Then
CurrentPage=TotalPage
End If
rsIn.Move(CurrentPage-1)*PageSize
End If
%>
<html>
<head>
<title>收件箱</title>
<meta http-equiv="Content-Type" content="text/html;">
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
<!--#include file="Inc/Css.asp" -->
<script language=Javascript src="Js/Menu.Js"></script>
<script language=Javascript src="Js/Button.Js"></script>
<script language=Javascript src="Js/Operate.Js"></script>
</head>

<body leftmargin="0" topmargin="5" bgcolor="<%=Forum_ColorList_BgColor%>" vlink="<%=Forum_Css_A_Link_Color%>">
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center" class="font">
  <tr bgcolor="<%=Forum_ColorList_BgColor%>"> 
    <td height="30">&gt;&gt; <font color="<%=Forum_ColorList_PFontColor%>">收件箱</font>:共有<%=TotalMail%>封信件,其中<font color=<%=Forum_ColorList_PFontColor%>><%=TotalUnRead%></font>封未读.</td>
  </tr>
</table>
<table width="96%" border="0" cellspacing="1" cellpadding="2" align="center" class="font" bgcolor="<%=Forum_ColorList_BorderColor%>">
  <tr bgcolor="<%=Forum_ColorList_TitleColor%>"> 
    <td height="20" width="6%"> 
      <div align="center"> 心情</div>
    </td>
    <td height="20" width="9%"> 
      <div align="center">状态</div>
    </td>
    <td height="20" width="50%"> 
      <div align="center">标　题</div>
    </td>
    <td height="20" width="15%"> 
      <div align="center">来　源</div>
    </td>
    <td height="20" width="20%"> 
      <div align="center">时　间</div>
    </td>
  </tr>
  <%
  While Not rsIn.Eof And PageSize>0
  %>
  <tr bgcolor="<%
  If RowNum Mod 2 = 0 Then
  Response.Write Forum_ColorList_AlternateColor2
  Else
  Response.Write Forum_ColorList_AlternateColor1
  End If
  %>"> 
    <td height="20" width="6%"> 
      <div align="center"><img src="Images/Mood/<%=rsIn("rMood")%>.gif" width="15" height="15" align="absmiddle"></div>
    </td>
    <td height="20" width="9%"> 
      <div align="center">
	  <%
	  If rsIn("rIsRead") Then
	  Response.Write "已读"
	  Else
	  Response.Write "<font color='"&Forum_ColorList_PFontColor&"'>未读</font>"
	  End If
	  %>
	  </div>
    </td>
    <td height="20" width="50%"><a href="Letter.asp?I=<%=rsIn("rID")%>" onFocus="this.blur()" target="_parent"> 
      <%
	LiannTitle=CovHtml(rsIn("rTitle"))
	If Len(LiannTitle)>24 Then LiannTitle=Left(LiannTitle,23)&".."
	Response.Write LiannTitle
	%>
      </a></td>
    <td height="20" width="15%"> 
      <div align="center"><a href="User.asp?I=<%=rsIn("rSender")%>" onFocus="this.blur()" target="_parent"><%=rsIn("rSender")%></a></div>
    </td>
    <td height="20" width="20%"> 
      <div align="center"><%=TimeNoSecond(rsIn("rSendTime"))%></div>
    </td>
  </tr>
  <%
  PageSize=PageSize-1
  RowNum=RowNum-1
  rsIn.MoveNext
  Wend
  rsIn.Close
  %>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="1" class="font" align="center">
  <tr> 
    <td height="28" valign="bottom"></td>
    <form name="form1" method="post" action="" onSubmit="return vdf('Page','页码','NinRange1:<%=TotalPage%>');">
      <td width="300" valign="bottom" height="26"> 
        <div align="right"> 
          <%
			      If CurrentPage<=1 Then
                  Response.Write "<font color='"&Forum_ColorList_UFontColor&"'>首页 上页</font>"
                  Else 
                  Response.Write "<a href='javascript:ToPage(1)' onFocus='this.blur()'>首页</a> <a href='javascript:ToPage("&(Cint(CurrentPage)-1)&")' onFocus='this.blur()'>上页</a>"
                  End If
				  Response.Write " <font color='"&Forum_ColorList_PFontColor&"'>"&CurrentPage&"</font>/"&TotalPage&" "
                  If CurrentPage>=TotalPage Then
				  Response.Write "<font color='"&Forum_ColorList_UFontColor&"'>下页 末页</font>"
                  Else
				  Response.Write "<a href='javascript:ToPage("&(Cint(CurrentPage)+1)&")' onFocus='this.blur()'>下页</a> <a href='javascript:ToPage("&TotalPage&")' onFocus='this.blur()'>末页</a>"
                  End If
			%>
          跳转至第 
          <input type="text" name="Page" class="Textfiled_Bottom" size="2" maxlength="3">
          页 
          <input type="submit" name="Submit" class="Button_None" value="提交" onFocus="this.blur()">
        </div>
      </td>
    </form>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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