| 文件1 - Upload.asp <html> <head> <title> w3 Upload </title> </head> <body> 用w3 upload组件上传 <form action="UploadProcess.asp" method="post" enctype="multipart/form-data"> <input type="file" name="thefile"><br> Choose a name: <input type="text" name="name"><br> <input type="submit" value="Transmit"> </form> </body> </html> 文件2 - UploadProcess.asp <% @ LANGUAGE="VBSCRIPT" %> <% Set upload = Server.CreateObject( "w3.upload" ) actualName = upload.Form( "name" ) Set fileName = upload.Form( "thefile" ) if fileName.IsFile then fileName.SaveToFile( Request.ServerVariables( "APPL_PHYSICAL_PATH" ) & "\" & actualName ) end if %> <html> <head> <title> w3 Upload </title> </head> <body> <br> <br> <center> Finished! </center> <br> <br> <br> </body> </html> |
文件1 - JmailUpload.asp
这个例子展示了在用户上传文件给SERVER时如何带JMAIL的附件
<html>
<head>
<title>emailform</title>
</head>
<body>
<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><br>
你的名字 <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
</select>
<br>
内容 <br>
<textarea name="body" cols="40" rows="15" wrap="PHYSICAL"></textarea>
<br>
附件 <br>
<input type="file" name="attachment">
<br>
<br>
<input type="submit" value=" Submit ">
</form>
</b></font>
</body>
</html>
文件2 - JmailUploadProcess.asp
<%
Set upload = Server.CreateObject( "w3.Upload" )
Set JMail = Server.CreateObject("JMail.SMTPMail")< /FONT >
'检查附件并加入到email中
set attachment = upload.Form( "attachment" )
if attachment.IsFile then
JMail.AddCustomAttachment attachment.filename, attachment.item
end if
'得到form变量，使用upload组件
Name = upload.Form("name")
SenderEmail = upload.Form("email")
Subject = "Regarding " & upload.Form("subject")
Recipient = upload.Form("recipient")
Body = upload.Form("body")
'输入你的SMTP-server
JMail.ServerAddress = "xxx.zzz.yyy"
JMail.Sender = Senderemail
JMail.Subject = Subject
JMail.AddRecipient Recipient
JMail.Body = Body
JMail.Priority = 3
JMail.Execute
%>
<html>
<head>
<title>Dimac</title>
</head>
<body>
<br>
<br>
<p align="center"><font face="Arial, geneva" size="5">
邮件发送 </font></p>
<center>
<font face="Arial, geneva" size="3">
你的邮件被发送到<%= Recipient %> <br>
<br>
<br>
<br>
</font>
</center>
</body>
</html>
文件1 - JMailUploadAutoForm.asp
这是个类似jmail自动发邮件的例子，也可以带附件。可以同时上传多个文件
<html>
<head>
<title>emailform</title>
</head>
<body>
<font face="verdana, arial" size="2"><b>
<form method="post" action="JmailUploadAutoFormProcess.asp" ENCTYPE="multipart/form-data">
Complete this form and click the submit-button. We will answer your
questions as soon as possible.
<br><br>
Your name <br>
<input type="text" size="25" name="name"><br>
Your email<br>
<input type="text" size="25" name="email"><br>
Recipient email <br>
<input type="text" size="25" name="recipient"><br>
State your business <br>
<select name="subject" size="1">
<option value="help">help
<option value="tips">tips
<option value="other">other
</select>
<br>
OS <br>
<input type="text" size="25" name="os"><br>
Browser <br>
<input type="text" size="25" name="browser"><br>
Enter your question <br>
<textarea name="question" cols="40" rows="15" wrap="PHYSICAL"></textarea>
<br>
<br>
<br>
Attachments<br>
<input type="file" name="attachment1">
<br>
<br>
Attachments<br>
<input type="file" name="attachment2">
<br>
<br>
Attachments<br>
<input type="file" name="attachment3">
<br>
<br>
<input type="submit" value=" Submit ">
</form>
</b></font>
</body>
</html>
文件2 - JmailUploadAutoFormProcess.asp
<%
Set upload = Server.CreateObject( "w3.Upload" )
Set JMail = Server.CreateObject("JMail.SMTPMail")
' 检查附件并加入邮件
' 所有其他的form元素被加到邮件里
for i = 0 to upload.form.count-1
if upload.form( i ).isFile then
set attachment = upload.Form( i )
JMail.AddCustomAttachment attachment.filename, attachment.item
else
JMail.appendtext( upload.form( i ).name & ": " & upload.form( i ).item & vbcrlf )
end if
next
'得到form变量，用上传组件
Name = upload.Form("name")
SenderEmail = upload.Form("email")
Subject = "Regarding " & upload.Form("subject")
Recipient = upload.Form("recipient")
'输入你的SMTP-server
JMail.ServerAddress = "mail.duplo.org"
JMail.Sender = Senderemail
JMail.Subject = Subject
JMail.AddRecipient Recipient
JMail.Priority = 3
JMail.Execute
%>
<html>
<head>
<title>Dimac</title>
</head>
<body>
<BR>
<BR>
<p align="center"><font face="Arial, geneva" size="5">
eMail sent</font></p>
<center>
<font face="Arial, geneva" size="3">
Your email has been sent to <%= Recipient %><br>
<BR>
<BR>
<BR>
</font>
</center>
</body>
</html>