<html>
 <head>
 <title>上传一个文件</title>
 </head>
 <body>
 <H2 align="center">文件已安全上传</H2>
 <center>
 <%
 Dim Upload '声明一个变量
 Set Upload = Server.CreateObject("Persits.Upload.1") '创建一个文件上传组件实例
 Upload.SetMaxSize 2*1024*1024,False '限制文件不超过2M，否则截断
 Upload.OverwriteFiles=True 'True表示可以覆盖
 
  
 
  Upload.SaveVirtual "/OA/images/"
  

' Upload.Save "e:\" '上传到指定文件夹
   response.redirect   "addXiaoHui.asp"

 %>
 </center>
 </body>
</html>
