w3 upload组件实例应用
点击次数：25 次 发布日期：2008-11-26 17:42:41 作者：源代码网
|
<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> 源代码网供稿. |
