<%
Dim Upload
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save "C:\inetpub\wwwroot\asptemp\chapter11\upload" '上传到指定文件夹
'下面开始发送邮件
Dim Jmail
Set Jmail = Server.CreateObject("Jmail.Message")
Jmail.AddRecipient Upload.Form ("Receipt")
Jmail.From = Upload.Form ("Sender")
Jmail.Subject = Upload.Form ("Subject")
Jmail.Body = Upload.Form ("body")
Jmail.AddAttachment Upload.Files("attachfile").Path '发送附件
Jmail.send("shij@mail.gasoft") '执行发送
Jmail.Close
Response.Write "已经成功发送"
%>
