<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"--><%ColumnName="":Tablename="HX_InternetEMailInbox":Orderby="":WS_BOXID=request("WS_BOXID")
if WS_BOXID<>"" and isnumeric(WS_BOXID) then
Orderby=Orderby&" where WS_BOXID="&WS_BOXID
else
response.write "<script>alert('非法操作!');window.close();</script>"
response.end
end if
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if rs.recordcount<=0 then  response.write "<script>alert('非法操作!');window.close();</script>":response.end
response.Write "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>查看邮件</title><link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><script src='../HXINCLUDE/HX_function.js'></script></head><body topmargin='20' leftmargin='0' bottommargin='20'><table width='700'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#613c25'><tr><td colspan='2' bgcolor=FFFBE8 background='../HXIMAGES/titlelinebg.gif'><table width='550'  border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>查看邮件</font></td></tr></table><table border='0' cellspacing='1' cellpadding='3' width='100%' align='center' bgcolor='#FFFBE8'><tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td width='11%'>标　题：</td><td width='89%'>"&rs("WS_Subject")&"</td></tr><tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td>日　期：</td><td>"&rs("WS_Date")&"</td></tr><tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td>发信人：</td><td>"&rs("WS_FromName")&"</td></tr><tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td>发信箱：</td><td><a href='sendinternetemail.asp?interemail="&rs("WS_From")&"&WS_BOXID="&WS_BOXID&"' title='给"&rs("WS_FromName")&"回信'>"&rs("WS_From")&"</a><font color=red>(点击回复)</font></td></tr><tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td>附　件：</td><td>"
set prs=WS_S.HX_SetRSD(ColumnName,"HX_InternetEMailAttachments"," where WS_BOXID="&WS_BOXID)
if prs.recordcount>0 then
ii=1
do until prs.eof
response.write "<a href='javascript:' onclick=""open('InterEmailDown.asp?"&WS_S.Encryptstr(prs("WS_Attachments"))&"','','width=10,height=10')"">附件"&ii&"("&WS_S.GetSize(prs("WS_AttachmentsSize"),"b")&")</a>"
ii=ii+1
prs.movenext
loop
end if
response.Write "</td></tr>"
if rs("WS_body")<>"" then response.Write "<tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td height='97' valign=top>正　文：</td><td valign=top>"&rs("WS_body")&"</td></tr>"
if rs("WS_bodytext")<>"" and instr(rs("WS_bodytext"),"--Boundary-=_")=0 then response.Write "<tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td height='126' valign=top>全　文：</td><td valign=top>"&rs("WS_bodytext")&"</td></tr>"
response.Write "</table></td></tr></table>"
WS_S.HX_RSClose(prs):WS_S.HX_RSClose(rs)%>