📄 readmessage.asp
字号:
<!--#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='#115F8F'><tr><td colspan='2' bgcolor=ffffff><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='#F1F1F1'><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='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td> 发信人：</td><td>"
Call WS_S.HX_OutUserInfo(rs("WS_MailSendUid")):response.write OutName&"</td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td width='102'> 收信人：</td><td width='477'>"
Call WS_S.HX_OutUserInfo(rs("WS_MailToUid")):response.write OutName&"</td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td width='102'> 主 题：</td><td>"&rs("WS_MailObject")&"</td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td> 附 件：</td><td>"
if rs("WS_MailAnnex")<>"" then response.write "<a href='"&rs("WS_MailAnnex")&"'>下载</a>'"
response.write "</td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td width='102' height='177' valign='top'> 正 文：</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>"%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -