📄 mail_trash.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 rsTrash = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tMailManage Where rIsVisible And Not rIsNone And rIncept='"&Session("SNickName")&"' Order By rSendTime Desc"
rsTrash.Open Sql,ConnY,3,3
TotalMail=rsTrash.RecordCount
If Not rsTrash.Eof Then
Dim PageSize
Dim RowNum
rsTrash.PageSize=14
RowNum=rsTrash.PageSize
PageSize=rsTrash.PageSize
If Request("Page")<>"" Then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End If
TotalNum=rsTrash.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
rsTrash.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">>> <font color="<%=Forum_ColorList_PFontColor%>">垃圾箱</font>:共有<font color="<%=Forum_ColorList_PFontColor%>"><%=TotalMail%></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="11%">
<div align="center">状态</div>
</td>
<td height="20" width="48%">
<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 rsTrash.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/<%=rsTrash("rMood")%>.gif" width="15" height="15" align="absmiddle"></div>
</td>
<td height="20" width="11%">
<div align="center">
<%
If rsTrash("rIsRead") Then
Response.Write "已读"
Else
Response.Write "<font color='"&Forum_ColorList_PFontColor&"'>未读</font>"
End If
%>
</div>
</td>
<td height="20" width="48%">
<%
LiannTitle=rsTrash("rTitle")
If Len(LiannTitle)>24 Then LiannTitle=Left(LiannTitle,23)&".."
Response.Write LiannTitle
%>
</td>
<td height="20" width="15%">
<div align="center"><a href="User.asp?I=<%=rsTrash("rSender")%>" onFocus="this.blur()" target="_parent"><%=rsTrash("rSender")%></a></div>
</td>
<td height="20" width="20%">
<div align="center"><%=TimeNoSecond(rsTrash("rSendTime"))%></div>
</td>
</tr>
<%
PageSize=PageSize-1
RowNum=RowNum-1
rsTrash.MoveNext
Wend
rsTrash.Close
%>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="1" class="font" align="center">
<tr>
<td height="28"><a href="Mail_Del.asp" onFocus="this.blur()">清空垃圾箱</a></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 + -