<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%If not WS_S.ChkObjInstalled("JMail.SMTPMail") Then 
 response.Write "<script>alert('对不起，此服务器上没有安装jmail组件，所以不能发送E_mail！请与服务商联系！');window.close();</script>"
 response.end
end if
ColumnName="":Tablename="HX_InternetEMailInbox":Orderby="":interemail=request("interemail"):WS_BOXID=request("WS_BOXID"):action=request("action"):Content=request("Content")
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
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if rs.recordcount<=0 then  response.write "<script>alert('非法操作!');window.close();</script>": response.end
set prs=WS_S.HX_SetRSD(ColumnName,"HX_InternetEMail"," where WS_InternetEmail='"&rs("WS_InternetEmail")&"'") 
if prs.recordcount>0 then  WS_InternetContent=prs("WS_InternetContent")
if action="reply" then
  smtpserver=prs("WS_InternetSMTP")
  smtpuser=prs("WS_InternetSendName")
  smtppwd=prs("WS_InternetPassword")
  smtpemail=prs("WS_InternetEmail")
  topic=request("WS_Subject")
  mailbody=request("Content")
  call WS_E.SendMail()
end if
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='580'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#613c25'><tr><td width='580' 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='4' width='100%' align='center' bgcolor='#FFFBE8'><form name='form1' method='post' action='?action=reply&WS_BOXID="&WS_BOXID&"&interemail="&interemail&"'><tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td width='15%'>主　题：</td><td width='85%'><input type='text' name='topic' value='回复："&rs("WS_Subject")&"' size='60'></td></tr><tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td>发　给：</td><td><input name='textfield2' type='text' value='"&rs("WS_FromName")&"' size='60'></td></tr><tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td>收信箱：</td><td><input name='textfield2' type='text' value='"&rs("WS_From")&"' size='60'></td></tr><tr bgcolor='#FFFBE8'><td height='300' valign=top>内　容：</td><td valign=top>"
if rs("WS_Body")<>"" then
session("WSOACOMCONTENT")=rs("WS_Body")
elseif rs("WS_Bodytext")<>"" and instr(rs("WS_Bodytext"),"--Boundary-=_")>0 then
 session("WSOACOMCONTENT")=rs("WS_Bodytext")
else
session("WSOACOMCONTENT")=""
end if
const WSOAWith=450:const WSOAHeight=300
%><!--#include file='../HXEditor/WSOAEDITOR.ASP'--><%
response.Write "</td></tr><tr bgcolor='#FFFBE8' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#FFFBE8'><td>&nbsp;</td><td><input type='hidden' name='Content' value=''> <input type='submit' name='Submit' value=' 回 复 ' onClick=""document.form1.Content.value = frames.message.document.body.innerHTML;""> <input type='button' name='Submit4' value='使用模版' onclick=""frames.message.document.body.innerHTML='"&WS_InternetContent&"';""> <input type='reset' name='Submit2' value='  重 置 '> <input type='button' name='Submit3' value='关闭窗口'></td></tr></form></table></td></tr></table>"
WS_S.HX_RSClose(rs)%>