?? trashdetail.htm
字號:
<!--#include file="../inc/Secure.htm"-->
<!--#include file="../inc/conn.htm"-->
<%
LoginID=trim(session("LoginID"))
if LoginID="" then LoginID=0
ID=trim(request("ID"))
if ID="" then response.redirect "mail.htm"
del=trim(request("del"))
if del="delete" then
set rstmp=Server.CreateObject("ADODB.RecordSet")
sql="select id,attachfile from tblMailin where id="& ID
rstmp.open sql,oConn,1,1
if not rstmp.eof then
if trim(rstmp("attachfile"))<>"" then
DeleteOneFile "../File_up/Mail/"&LoginID&"/"& trim(rstmp("attachfile"))
end if
end if
rstmp.close
oConn.execute "delete tblMailIn where id="& ID
response.write "郵件已刪除。<a href=mail.htm>[返回]</a>"
oConn.close
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from tblMailIn where ID="& ID
rs.open sql,oConn
if not rs.eof then
FromID=trim(rs("FromID"))
FromName=trim(rs("FromName"))
ToName=trim(rs("ToName"))
Subject=trim(rs("Subject"))
Body=trim(rs("Body"))
AttachFile=trim(rs("AttachFile"))
Times=trim(rs("Times"))
end if
rs.close
set rs=nothing
oConn.execute "update tblMailin set isRead=1 where id="& ID
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../CSS/main.css">
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<table border=0 width="100%" bgcolor=#FFFFFF cellpadding=3 cellspacing=0>
<tr bgcolor=#eeeddb>
<td><a href="TrashDetail.htm?ID=<%=ID%>&del=delete" onclick="return CheckDelete();">刪除</a></td>
<td><a href="newMail.htm?reply=<%=FromName%>">回復</a></td>
<td><a href="transmit.htm?mailid=<%=ID%>">轉交</a></td>
<td><a href="mail.htm">返回</a></td>
</tr>
</table>
<BR>
<table border=0 width="100%" bgcolor=#FFFFFF cellpadding=3 cellspacing=0>
<tr>
<td width="15%">發件人：</td>
<td><%=FromName%></td>
</tr>
<tr>
<td>收件人：</td>
<td><%=ToName%></td>
</tr>
<td>發送時間：</td>
<td><%=Times%></td>
</tr>
</tr>
<td>主題：</td>
<td><%=Subject%></td>
</tr>
<%if attachfile<>"" then%>
</tr>
<td>附件：</td>
<td><a target="_blank" href="../File_up/Mail/<%=LoginID&"/"&attachfile%>"><%=attachfile%></td>
</tr>
<%end if%>
</tr>
<td colspan=2><hr size=1 color=#D0D090></td>
</tr>
</tr>
<td colspan=2><%=replace(replace(server.htmlencode(Body&""),chr(13),"<br>")," "," ")%></td>
</tr>
</table>
<BR><BR>
</BODY>
</HTML>
<!--#include file="../inc/conn_close.htm"-->
<script language=javascript>
function CheckDelete()
{
return confirm("確實刪除嗎？");
}
</script>
<%
sub DeleteOneFile (FilePathName)
FilePathName=Server.Mappath(FilePathName)
dim fs
Set fs = server.CreateObject("Scripting.FileSystemObject")
if trim(FilePathName)<>"" and fs.FileExists(FilePathName) then
fs.DeleteFile FilePathName
end if
set fs=nothing
end sub
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -