我的一亩三分地 我就喜欢!
13fen  设为主页
 收藏本站
 
当前位置: > 一亩三分地：首页 > 网络学院 > 网络编程 > ASP专区 > Asp未分类 > w3 upload组件实例应用
热门文章排行
热门文章排行 手推车”功能的实现(10-07)
八大法则防范ASP网站漏洞(10-23)
ASP教程十一、调试ASP脚本(10-23)
在JSP中访问数据库大全(10-23)
虚机服务中常见Asp.Net低级错误一览(03-21)
精采文章排行
精采文章排行 ASP.NET实现抓取网页中的链接(11-15)
ASP连接数据库的11种方法(11-10)
如何动态创建网页的RSS内容摘要(11-10)
ASP网站漏洞及入侵防范方法(11-10)
ASP自定义函数：对字符串正则替换(11-10)
技术专题推荐
网管论坛交流
　

w3 upload组件实例应用 

作者:佚名   来源:一亩三分地   点击:   日期:2007-03-30
文件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>


【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【论坛讨论】

   相关文章:
·ASP中巧用Response属性 ·第六课:ASP脚本循环语句
·在 Web 页上使用条件数值格式 ·连接数据库查询手册（不仅仅适用于asp）
·警惕"给你的FileSystemObject对象加把锁" ·用ASP做全文检索

   文章评论:(条)
  
 请留名： 匿名评论   点击查看所有评论 网管论坛
 

  责任编辑:一分  声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。