<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"--><!--#INCLUDE FILE="../HXINCLUDE/HX_photo.asp"-->
<%ColumnName="":Tablename="HX_MailChit":MAID=request("MAID")
if MAID="" or isnull(MAID) or (MAID<>"" and not isnumeric(MAID)) then response.write "<script>alert('非法操作');window.close();</script>":response.end  
Orderby=" where WS_MAID="&MAID
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if rs.recordcount<=0 then response.write "<script>alert('非法操作');window.close();</script>":response.end  
if rs("WS_MailToUid")=cint(loginuid) then rs("WS_MailIsRead")=1:rs.update
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='10' leftmargin='0' bottommargin='10'><table width='596'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#613c25'><tr><td colspan='2' bgcolor=FFFBE8><table width='100%'  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><td colspan='2' align=right>"
Call WS_S.HX_OutUserInfo(rs("WS_MailSendUid"))
response.write "<input type='button' name='dodsend' value=' 回 复 ' onClick=""location.href='SendMessage.asp?tuserid="&rs("WS_MailSendUid")&"&tusername="&OutName&"&subject=回复:"&rs("WS_MailObject")&"';""> <input type='button' name='dodsend' value=' 转 发 ' onClick=""location.href='SendMessage.asp?MAID="&MAID&"';""> <input type='button' name='dodsend' value=' 关 闭 ' onClick='window.close();'></td></tr><input type='hidden' name='WS_MailToUid' value='"&tuserid&"'><input type='hidden' name='WS_MailToName' value='"&tusername&"'><input type='hidden' name='windowclose' value='windowclose'><tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td>&nbsp;&nbsp;发信人：</td><td>"
Call WS_S.HX_OutUserInfo(rs("WS_MailSendUid")):response.write OutName&"</td></tr><tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td width='102'> &nbsp;&nbsp;收信人：</td><td width='477'>"
Call WS_S.HX_OutUserInfo(rs("WS_MailToUid")):response.write OutName&"</td></tr><tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td width='102'> &nbsp;&nbsp;主&nbsp;&nbsp;题：</td><td>"&rs("WS_MailObject")&"</td></tr><tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td> &nbsp;&nbsp;附&nbsp;&nbsp;件：</td><td>"
if rs("WS_MailAnnex")<>"" then response.write "<a href='"&rs("WS_MailAnnex")&"'>下载</a>'"
response.write "</td></tr><tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td width='102' height='177' valign='top'>&nbsp;&nbsp;正&nbsp;&nbsp;文：</td><td valign='top'>"&rs("WS_MailBody")&"</td></tr><tr><td colspan='2' align=right>"
Call WS_S.HX_OutUserInfo(rs("WS_MailSendUid"))
response.write "<input type='button' name='dodsend' value=' 回 复 ' onClick=""location.href='SendMessage.asp?tuserid="&rs("WS_MailSendUid")&"&tusername="&OutName&"&subject=回复:"&rs("WS_MailObject")&"';""> <input type='button' name='dodsend' value=' 转 发 ' onClick=""location.href='SendMessage.asp?MAID="&MAID&"';""> <input type='button' name='dodsend' value=' 关 闭 ' onClick='window.close();'></td></tr></table></td></tr></table>"%>