📄 readmail.asp
字号:
<!--#include file="check.asp"-->
<!--#include file="connect.asp"-->
<html>
<head>
<%
%>
<link rel="stylesheet" href="mail.css" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" oncontextmenu="return false">
<script language=javascript>
function reply(td) {
document.location="writemail.asp?uid="+td
}
function delmail(td) {
if (confirm("您确定要删除邮件吗？")) {document.location="delmail.asp?id="+td}
}
</script>
<%
mailid=request("id")
mailid=CLng(mailid)
set rs=server.createobject("adodb.recordset")
set ptr=server.createobject("adodb.recordset")
sql="select * from mail where topeopleid='"&session("uid")&"' and id="&mailid
rs.open sql,conn,1,3
if rs.eof then
rs.close
response.redirect "error.htm"
response.end
end if
rs("status")=1
rs.update
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="26">
<tbody>
<tr>
<td width="100%" background="images/emailt.gif" class="bblue"> 内部邮件:<%=rs("title")%></td>
</tr>
</tbody>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="33">
<tr>
<td background="images/email10.gif" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td width="65" align="center"> <a href="#" onClick="delmail('<%=rs("id")%>')" class="wlink">删
除</a></td>
<td width="6"><img src="images/email12.gif" width="6" height="33"></td>
<td width="65" align="center"> <a href="#" onClick="reply('<%=rs("senderid")%>;') "class="wlink">回
复</a></td>
<td width="6"><img src="images/email12.gif" width="6" height="33"></td>
<td width="65" align="center"> <a href="writemail.asp" class="wlink">写邮件</a></td>
<td width="6"><img src="images/email12.gif" width="6" height="33"></td>
<td width="65" align="center"> <a href="mailbox.asp" class="wlink">收邮件</a></td>
<td width="6"><img src="images/email12.gif" width="6" height="33"></td>
<td width="65" align="center"> <a href="#" onClick="javascript:history.go(-1)" class="wlink">返
回</a></td>
<td> </td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="33">
<tr>
<td width="570"><img src="images/email8.gif" width="575" height="50"></td>
<td background="images/email9.gif" width="100%"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="60">
<tbody>
<tr>
<td width="100%" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="60">
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="69">
<tbody>
<tr>
<td width="100%" bgcolor="88ccef" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="15%" align="right" height="23"><b>发件人：</b></td>
<td width="85%" height="23">
<%response.write rs("senderid")&"("&rs("sendername")&")"%>
</td>
</tr>
<tr>
<td width="15%" align="right" height="23"><b>时 间：</b></td>
<td width="85%" height="23"><%=rs("mailtime")%></td>
</tr>
<tr>
<td width="15%" align="right" height="23"><b>主 题：</b></td>
<td width="85%" height="23"><%=rs("title")%></td>
</tr>
<tr>
<td width="15%" align="right" height="23"><b>附 件：</b></td>
<td width="85%" height="23">
<%
fjid=trim(rs("fjlist"))
if fjid<>"" then
sql="select id,filename from mailfj where id in ("&fjid&")"
ptr.open sql,conn,1,1
if ptr.eof then
response.write "没有附件"
else
while not ptr.eof
response.write " "
response.write "<a href=mailfjdown.asp?id="&ptr("id")&" target='_blank'>"&ptr("filename")&"</a>"
ptr.movenext
wend
end if
ptr.close
set ptr=nothing
else
response.write "没有附件"
end if
%>
</td>
</tr>
</table>
</td>
</tr>
</tbody>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="220">
<tbody>
<tr>
<td width="100%" valign="top" bgcolor="ffffff">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="10">
<tr>
<td></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td width="3%"> </td>
<td width="97%" valign="top" style="Font-Size:10.5pt;Color:#000000">
<%
temp=""&rs("text")
response.write " "
response.write ""&temp
%>
</td>
</tr>
</table>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</table>
</td>
</tr>
</tbody>
</table>
<%
rs.close
set rs=nothing
conn=close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -