📄 sendinternetemail.asp
字号:
<!--#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=prs("WS_Subject"):mailbody=prs("Content")
call WS_E.SendMail()
response.End()
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='#115F8F'><tr><td width='580' 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='4' width='100%' align='center' bgcolor='#F1F1F1'><form name='form1' method='post' action='?action=reply&WS_BOXID="&WS_BOXID&"&interemail="&interemail&"'><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td width='15%'>主 题：</td><td width='85%'><input type='text' name='topic' value='回复："&rs("WS_Subject")&"' size='60'></td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td>发 给：</td><td><input name='textfield2' type='text' value='"&rs("WS_FromName")&"' size='60'></td></tr><tr bgcolor='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td>收信箱：</td><td><input name='textfield2' type='text' value='"&rs("WS_From")&"' size='60'></td></tr><tr bgcolor='#FFFFFF'><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='#FFFFFF' onmouseover=javascript:this.bgColor='#F9F8F2' onmouseout=javascript:this.bgColor='#ffffff'><td> </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)%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -