📄 controlsendmail.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="function/delsendmail.asp"-->
<%
IF Request.Form("del")="yes" Then
DelFriend
End IF
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<!--#include file="inc/css.asp"-->
<script Language="JavaScript">
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
e.checked = "checked";
}
}
</script>
<title><%=WebSiteName%></title>
</head>
<body topmargin="0" background="images/bg.gif">
<!--#include file="top.asp"-->
<div align="center">
<center>
<table border="0" width="755" cellspacing="0" cellpadding="0" height="341">
<tr>
<td width="189" style="background-color: #FFFFFF; border-left: 1 solid #000000; border-top: 1 solid #000000; border-bottom: 1 solid #000000" valign="top" height="341">
<!--#include file="cleft.asp"-->
</td>
<td width="562" style="background-color: #FFFFFF; border: 1 solid #000000" valign="top" height="341">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="20%" height="25" bgcolor="#EDEDED" style="border-right: 1 solid #000000; border-bottom: 1 solid #000000" align="center">
<b>
<a href="control.asp">
控制面板首页</a></b>
</td>
<td width="20%" height="25" bgcolor="#EDEDED" style="border-right: 1 solid #000000; border-bottom: 1 solid #000000" align="center">
<b>
<a href="controledit.asp">
编辑个人资料</a></b>
</td>
<td width="20%" height="25" bgcolor="#EDEDED" style="border-right: 1 solid #000000; border-bottom: 1 solid #000000" align="center">
<b>
<a href="controlpass.asp">
修改登录密码</a></b>
</td>
<td width="20%" height="25" bgcolor="#FFFFFF" style="border-right: 1 solid #000000" align="center">
<b>
<font color="#545454">
短消息信箱</font></b>
</td>
<td width="20%" height="25" bgcolor="#EDEDED" style="border-bottom: 1 solid #000000" align="center">
<b>
<a href="controlfriend.asp">
好友列表</a></b>
</td>
</tr>
<tr>
<td width="100%" valign="middle" colspan="5" height="10"></td>
</tr>
<%IF Request("Active")<>"nn" Then%>
<tr>
<td width="100%" valign="middle" colspan="5">
<div align="center">
<center>
<table border="0" width="90%" cellspacing="0" cellpadding="0" style="border: 1 solid #000000">
<tr>
<td width="100%" background="images/bg2.gif" height="22" colspan="3">
<p align="center"><font color="#333333"><b><%=Session("User")%>，欢迎使用您的发件箱</b></font></td>
</tr>
<tr>
<td width="100%" align="center" height="50" colspan="3">
<!--#include file="controlnavigatin.asp"-->
</td>
</tr>
</center>
<tr>
<td width="18%" height="22" bgcolor="#EDEDED" style="border-right: 1 solid #cccccc; border-top: 1 solid #cccccc; border-bottom: 1 solid #cccccc" align="center">
<font color="#545454">收件人</font>
</td>
<td width="64%" height="22" bgcolor="#EDEDED" style="border-right: 1 solid #cccccc; border-top: 1 solid #cccccc; border-bottom: 1 solid #cccccc" align="center">
<font color="#545454">主 题</font>
</td>
<td width="18%" height="22" bgcolor="#EDEDED" style="border-: 1 solid #cccccc; border-top: 1 solid #cccccc; border-bottom: 1 solid #cccccc" align="center">
<font color="#545454">割除标记</font>
</td>
</tr>
<%
SQL="Select * From 发件箱 Where 发件人='"& Session("User") &"' Order By ID Desc"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
dim currentpage '定义当前页的变量
dim totalput,n '定义变量
CurrentPage=0
TotalPut=0:N=0
IF Not RS.EOF Then
rs.pagesize=maxperpage
currentpage=request.querystring("pageid")
if currentpage="" then
currentpage=1
elseif currentpage<1 then
currentpage=1
else
currentpage=clng(currentpage)
if currentpage > rs.pagecount then
currentpage=rs.pagecount
end if
end if
'如果变量currentpage的数据类型不是数值型
'就1赋给变量currentpage
if not isnumeric(currentpage) then
currentpage=1
end if
totalput=rs.recordcount
if totalput mod maxperpage=0 then
n=totalput\maxperpage
else
n=totalput\maxperpage+1
end if
if n=0 then
n=1
end if
rs.move(currentpage-1)*maxperpage
i=0
do while i< maxperpage and not rs.eof
'Do While Not RS.EOF
%>
<form action="" method="post">
<tr>
<td width="18%" height="22" bgcolor="#EDEDED" style="border-right: 1 solid #cccccc; border-bottom: 1 solid #cccccc" align="center">
<%=RS("收件人")%>
</td>
<td width="64%" height="22" bgcolor="#EDEDED" style="border-right: 1 solid #cccccc; border-bottom: 1 solid #cccccc">
<font color="#333333"><a href="controlsendmail.asp?active=nn&id=<%=RS("ID")%>"><%=RS("主题")%></a></font>
</td>
<td width="18%" height="22" bgcolor="#EDEDED" style="border-: 1 solid #cccccc; border-bottom: 1 solid #cccccc" align="center">
<p align="center"><input type="checkbox" name="CheckValue" value="<%=RS("ID")%>" class=1></p>
</td>
</tr>
<%
RS.MoveNext
I=I+1
Loop
Else
%>
<tr>
<td width="100%" height="22" bgcolor="#EDEDED" style="border-right: 1 solid #cccccc; border-bottom: 1 solid #cccccc" align="center" colspan="3">
<font color="#FF0000">你还没有邮件！</font>
</td>
</tr>
<%End IF%>
<tr>
<td colspan="3">
<p align="center">
<font color=#000000><b>共有 <font color=#990000><% =n%></font> 页</b></font>
<%k=currentpage
if k<>1 then%>
<a href="controlsendmail.asp?pageid=1"><font face=webdings >9</font></a>
<font color="#800000">
<a href="controlsendmail.asp?pageid=<%=k-1%>"><font face=webdings >7</font></a>
</font>
<font color=#000000>
<%else%>
<font color="#800000"><font face=webdings >9</font> <font face=webdings >7</font></font><font color=#000000>
<%end if%>
[ <%
J=1
Do While Not J>N
%><a href="controlsendmail.asp?pageid=<%=J%>"><%
IF J=currentpage Then
Response.Write "<b><font color=red>" & J & "</font></b>" & " "
Else
Response.Write J & " "
End IF
%></a><%
J=J+1
Loop
%>]
<%if k<>n then%>
<a href="controlsendmail.asp?pageid=<%=k+1%>"><font face=webdings >8</font></a><font color="#800000">
</font></font>
<a href="controlsendmail.asp?pageid=<%=n%>"><font face=webdings color="#800000" >:</font></a><font color=#000000>
<%else%>
<font color="#800000"><font face=webdings >8</font> <font face=webdings >:</font></font>
<%end if%>
</font> </font> </td>
</tr>
<tr>
<td colspan="3">
<p align="center" style="margin-bottom: 5">[<a href="delallsendmail.asp">割除所有</a>] <input type="button" name="chkall" value="全选" onclick="CheckAll(this.form)" style="background-color: #DDDDDD; background-repeat: repeat; background-attachment: scroll; font-size: 9pt; height: 20; width: 40; border: 1px groove #000000; background-position: 0% 50%">
<input type="reset" name="Reset" value="重置" style="background-color: #DDDDDD; background-repeat: repeat; background-attachment: scroll; font-size: 9pt; height: 20; width: 40; border: 1px groove #000000; background-position: 0% 50%">
<input type=hidden name="del" value="yes"><input type="submit" name="delete" value="删除" style="background-color: #DDDDDD; background-repeat: repeat; background-attachment: scroll; font-size: 9pt; height: 20; width: 40; border: 1px groove #000000; background-position: 0% 50%"></td>
</tr>
</table>
</div>
</td>
</tr>
</form>
<%Else%>
<%IF Request.Form.Count=0 Then%>
<tr>
<td width="100%" valign="middle" colspan="5" height="36">
<div align="center">
<center>
<table border="0" width="90%" cellspacing="0" cellpadding="0" style="border: 1 solid #000000">
<tr>
<td width="100%" background="images/bg2.gif" height="22">
<p align="center"><font color="#333333"><b><%=Session("User")%>，欢迎使用您的发件箱</b></font></td>
</tr>
<tr>
<td width="100%" height="52" align="center">
<!--#include file="controlnavigatin.asp"-->
</td>
</tr>
<%
ID=Request("ID")
SQL="Select * From 发件箱 Where ID=" & CInt(ID)
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
IF RS.EOF Then
Response.Redirect "error.asp"
End IF
%>
<tr>
<td width="100%" bgcolor="#EDEDED" height="25" style="border-top: 1 solid #cccccc; border-bottom: 1 solid #cccccc">
<p align="center"><font color="#333333">消息发送<b><%=RS("收件人")%></b>，发送给您的时间：<b><%=RS("日期")%></b></font></p>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#EDEDED" height="74" style="border-bottom: 1 solid #cccccc" valign="top">
<p style="line-height: 150%; margin-left: 10; margin-top: 3; margin-bottom: 3"><font color="#333333"><b>消息标题：<%=RS("主题")%><br>
<br>
</b><%=RS("内容")%></font></p>
</td>
</tr>
<Form action="" method="post"></form>
</table>
</center>
</div>
</td>
</tr>
<%End IF%>
<%End IF%>
<%IF ErrInfo<>"" And Request.Form("del")<>"yes" Then%>
</center>
<tr>
<td width="100%" valign="middle" colspan="5" height="14">
</td>
</tr>
<center>
<%End IF%>
</table>
</center>
</td>
</tr>
</table>
<!--#include file="bottom.asp"-->
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -