sendmail_member.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 81 行

<%
Server.ScriptTimeout=999999
fwq="smtp.sina.net"
passname="[e-mail]"
password="qx520"
title=Request.form("title")
txt=request.form("txt")
name=request.form("name")
radiobutton=request.form("radiobutton")
fa=request.form("fa")
faemail="[e-mail]"
fujian=request.form("fujian")
hjf=request.form("hjf")
session("fwq")=fwq
session("passname")=passname
session("password")=password
session("title")=title
session("txt")=txt
session("name")=name
session("radiobutton")=radiobutton
session("fa")=fa
session("faemail")=faemail
session("fujian")=fujian
session("hjf")=hjf
If trim(fwq) = "" then
Response.Write "没有填写邮件服务器,将无法发送"
Response.End 
End If
If title="" Then
Response.Write ("<script>alert('邮件标题没有填写，将无法发送信息');javascript:history.back(1)</script>")
response.end
end if
if txt="" then
Response.Write ("<script>alert('邮件内容没有填写，将无法发送信息');javascript:history.back(1)</script>")
response.end
end if
if name="" then
Response.Write ("<script>alert('请填写收件人E-mail地址！');javascript:history.back(1)</script>")
response.end
end if
if name<>"" then
set jmail=server.createobject("jmail.message")
jmail.charset="gb2312"
jmail.silent=true
jmail.addrecipient name
jmail.subject=title
if radiobutton="text" then
jmail.appendtext txt
elseif radiobutton="html" then
JMail.ContentType = "text/html"
jmail.addrecipient  fsemail
jmail.body=txt
end if
if fa<>"" then
jmail.fromname = fa
end if
if faemail<>"" then
jmail.from=faemail
end if
jmail.priority = hjf
if passname<>"" then
jmail.MailServerUserName =passname
end if
if password<>"" then
jmail.MailServerPassWord =password
end if
if fujian<>"" then
jmail.addattachment(fujian)
end if
err=jmail.send(fwq)
jmail.close
set jmail=nothing 
if err then
Response.Write ("<script>alert('邮件内容已经发送到指定的邮箱地址了，请确定返回！');javascript:history.back(1)</script>")
else
response.write ("<script>alert('由于系统错误，邮件未能正常发送，请确定返回检查各项数据是否错误！');javascript:history.back(1)</script>")
end if
response.end
end if
%>