📄 admin_mailsend.asp
字号:
<HTML>
<HEAD>
<!--#include file="Admin_top.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top width=210 bgColor=#f3f3f3>
<div align="center">
<!--#include file="Admin_left.asp"-->
</div>
</TD>
<TD width=1 bgColor=#0033CC></TD>
<TD valign="top">
<DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<TABLE width="98%" height=30 border=0 cellPadding=0 cellSpacing=0 bgcolor="#0033CC">
<TBODY>
<TR>
<TD> <strong><font color="#FFFFFF">回复邮件管理</font></strong></TD>
</TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<div align="center">
<TABLE width=98% border=1 cellPadding=5 cellSpacing=0 bordercolor="#0033CC"
bgColor=#cdcdcd>
<TBODY>
<TR bgColor=#fafafa>
<TD>
<div align=center>
<table border="0" width="100%" id="table4" height="100%">
<tr>
<td bgcolor="#CDCDCD" align="center" width="10%" height="19">
<b>序号</b></td>
<td width="60%" height="19" align="center" bgcolor="#CDCDCD">
<b>回复主题(点击查看回复邮件)</b> </td>
<td width="25%" height="19" align="center" bgcolor="#CDCDCD">
<b>回复日期</b> </td>
<td bgcolor="#CDCDCD" align="center" height="19" width="5%">
<b>操作</b></td>
</tr>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
Sql = "select * from mailsend order by sendtime desc"
Rs.Open sql,conn,1,3
If not rs.eof then
If not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
Rs.pagesize=15
Rs.AbsolutePage=pagecount
do while not Rs.eof
j=j+1
%>
<tr>
<td width="10%" height="22" align="center" bgcolor="#F0F0F0"><%=Rs("email_id")%></td>
<td width="60%" height="22" align="center" bgcolor="#F0F0F0"><u>
<a href="Admin_send_view.asp?ID=<%=Rs("email_id")%>">
<% If Len(Rs("Mail_Title"))>=12 Then Response.write left(Rs("Mail_Title"),12)+"..." Else Response.write Rs("Mail_Title") End if%>
</a></u></td>
<td width="25%" height="22" align="center" bgcolor="#F0F0F0"><%=Rs("sendtime")%></td>
<td bgcolor="#F0F0F0" align="center" height="22">
<a href="Admin_Action.asp?Action=15&id=<%=Rs("email_id")%>">删</a></td>
</tr>
<%
If j>=Rs.pagesize Then exit do
Rs.movenext
loop
Else
%>
<tr>
<td bgcolor="#F0F0F0" align="center" colspan="4" height="23">暂无记录</td>
</tr>
<%
End If
%>
<tr>
<td bgcolor="#E3E3E3" align="center" colspan="3" height="20" width="5%">
<p>每页显示 <font color="#FF0000"><b><%=Rs.pagesize%></b></font> 条纪录 共有 <font color="#FF0000"><b><%=Rs.recordcount%></b></font> 条纪录 目前在第 <font color="#FF0000"><b><%=CINT(pagecount)%></b></font> 页
<% if pagecount=1 and Rs.pagecount<>pagecount and Rs.pagecount<>0 then%>
<a href="?page=<%=cstr(pagecount+1)%>">下一页</a>
<% end if %>
<% if Rs.pagecount>1 and Rs.pagecount=pagecount then %>
<a href="?page=<%=cstr(pagecount-1)%>">上一页</a>
<%end if%>
<% if pagecount<>1 and Rs.pagecount<>pagecount then%>
<a href="?page=<%=cstr(pagecount-1)%>">上一页</a> <a href="?page=<%=cstr(pagecount+1)%>">下一页</a>
<% end if %>
</td>
<td bgcolor="#E3E3E3" align="center" height="20" width="5%">
<font color="#800000"><b>
<a href="Admin_Action.asp?Action=6&fs=send">
清空</a></b></font></td>
</tr>
</table>
</div>
</TD>
</TR>
<TR bgColor=#fafafa>
<TD bgColor=#f0f0f0 height=24>
<DIV align=center>©2008-2009 CopyRight <strong>IssTech.Co., Ltd</strong> All Rights Reserved</DIV></TD></TR></TBODY></TABLE></div>
<BR></DIV></TD></TR></TBODY></TABLE>
</BODY></HTML>
<%
Rs.close
Set rs = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -