w3 upload組件執行個體應用2

檔案1 - JmailUpload.asp
<font face="verdana, arial" size="2"><b>
<form method="post" action="JmailUploadProcess.asp" ENCTYPE="multipart/form-data">
Complete this form and click the submit-button. We will answer your
questions as soon as possible.
你的名字 <br>
<input type="text" size="25" name="name"><br>

你的郵箱 <br>
<input type="text" size= "25" name= "email"><br>< /FONT>

收信者名字 <br>
<input type= "text" size= "25" name= "recipient"><br>< /FONT>

標題 <br>
<select name="subject" size="1">
<option value="help">help
<option value="tips">tips
<option value="other">other

內容 <br>
<textarea name="body" cols="40" rows="15" wrap="PHYSICAL"></textarea>

附件 <br>
<input type="file" name="attachment">
<input type="submit" value=" Submit ">

檔案2 - JmailUploadProcess.asp

Set upload = Server.CreateObject( "w3.Upload" )
Set JMail = Server.CreateObject("JMail.SMTPMail")< /FONT >

set attachment = upload.Form( "attachment" )
if attachment.IsFile then
JMail.AddCustomAttachment attachment.filename, attachment.item
end if

Name = upload.Form("name")
SenderEmail = upload.Form("email")
Subject = "Regarding " & upload.Form("subject")
Recipient = upload.Form("recipient")
Body = upload.Form("body")

JMail.ServerAddress = "xxx.zzz.yyy"

JMail.Sender = Senderemail
JMail.Subject = Subject

JMail.AddRecipient Recipient

JMail.Body = Body

JMail.Priority = 3




<p align="center"><font face="Arial, geneva" size="5">
郵件發送 </font></p>
<font face="Arial, geneva" size="3">
你的郵件被發送到<%= Recipient %> <br>




E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >



如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。