📄 controlmail.asp
字号:
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="4">
<font color="#FF0000">你还没有邮件！</font>
</td>
</tr>
<%End IF%>
<tr>
<td colspan="4">
<p align="center">
<font color=#000000><b>共有 <font color=#990000><% =n%></font> 页</b></font>
<%k=currentpage
if k<>1 then%>
<a href="controlmail.asp?pageid=1"><font color="#800000"><font face=webdings >9</font></a>
<a href="controlmail.asp?pageid=<%=k-1%>"><font face=webdings >7</font></font></a>
<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="controlmail.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="controlmail.asp?pageid=<%=k+1%>"><font color="#800000"><font face=webdings >8</font></font></a><font color="#800000">
</font></font>
<a href="controlmail.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="4">
<p align="center" style="margin-bottom: 5">[<a href="delallmail.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="5">
<div align="center">
<center>
<table border="0" width="90%" cellspacing="0" cellpadding="0" style="border: 1 solid #000000" height="356">
<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 message Where ID=" & CInt(ID)
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,3,2
IF RS.EOF Then
Response.Redirect "error.asp"
End IF
IF RS("incept")<>Session("User") Then
Response.Redirect "error.asp"
End IF
RS("state")="已"
RS.Update
%>
<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("author")%></b>，发送给您的时间：<b><%=RS("adddate")%></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("title")%><br>
<br>
</b><%=RS("content")%></font></p>
</td>
</tr>
<tr>
<td width="100%" height="14"></td>
</tr>
<Form action="" method="post">
<tr>
<td width="100%" height="155">
<div align="center">
<center>
<table border="0" width="70%" style="border: 1 solid #000000" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" bgcolor="#EDEDED" height="22" style="border-bottom: 1 solid #000000;"> 快速回复：<font color="#333333"><%=RS("title")%></font><input type=hidden name="Title" Value="Re:<%=RS("title")%>"><input type=hidden name="Name" Value="<%=RS("author")%>"></td>
</tr>
<tr>
<td width="100%">
<p style="margin-left: 5; margin-top: 5"><textarea rows="3" name="Content" cols="45"></textarea></td>
</tr>
<tr>
<td width="100%" valign="middle">
<input type="checkbox" name="msg" value="yes" class=1><font color="#333333">是否复制一份消息至发件箱？</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#EDEDED" style="border-top: 1 solid #000000;">
<p align="center" style="margin-top: 3; margin-bottom: 3"> <input type="submit" name="submit" value="发送" style="background-color: #DDDDDD; background-repeat: repeat; background-attachment: scroll; font-size: 9pt; height: 20; width: 60; border: 1px groove #000000; background-position: 0% 50%">
<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: 60; border: 1px groove #000000; background-position: 0% 50%">
</td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</form>
<tr>
<td width="100%" height="14"></td>
</tr>
</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">
<div align="center">
<center>
<table border="0" width="90%" cellspacing="0" cellpadding="0" style="border: 1 solid #000000">
<tr>
<td width="100%" height="22" colspan="2" background="images/bg2.gif">
<p align="center"><font color="#FF0000"><b>发送信息出错</b></font></td>
</tr>
<tr>
<td width="100%" colspan="2">
<p style="line-height: 150%; margin-left: 50; margin-top: 3; margin-bottom: 3">
<font color="#FF0000">
<%=ErrInfo%>
</font></td>
</tr>
<tr>
<td width="40%" height="22" background="../images/bg3.GIF" valign="bottom">
<p align="right"><img border="0" src="images/go.gif" width="15" height="15"></td>
<td width="60%" height="22" background="../images/bg3.GIF" valign="bottom"><a href="javascript:history.back()">返回上一页重新填写</a></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<%End IF%>
<%IF Request.Form.Count<>0 And ErrInfo="" Then%>
<tr>
<td width="100%" valign="middle" colspan="5">
<div align="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="#FF0000"><b>发布信息成功</b></font></td>
</tr>
<tr>
<td width="100%">
<p style="line-height: 150%; margin-left: 50; margin-top: 3; margin-bottom: 3"><font color="#FF0000">·您已经成功发送信息！
<a href="controlmail.asp">短消息首页-->>></a></font></td>
</tr>
</table>
</div>
</td>
</tr>
<center>
<%End IF%>
<tr>
<td width="100%" valign="middle" colspan="5" height="10">
</td>
</tr>
</table>
</center>
</td>
</tr>
</table>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -