📄 viewinternetinbox.asp
字号:
<!--#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='#115F8F'><tr><td colspan='2' bgcolor=ffffff 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='#F1F1F1'><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td width='11%'>标 题：</td><td width='89%'>"&rs("WS_Subject")&"</td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td>日 期：</td><td>"&rs("WS_Date")&"</td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td>发信人：</td><td>"&rs("WS_FromName")&"</td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><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='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><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='test.asp?path="&prs("WS_Attachments")&"' target='_blank'>附件"&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='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><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='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><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)%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -