当前位置:首页 » 网站技术 » ASP

ASP实例:6行代码实现无组件上传

...

目前有很多无组件上传类,我大概看了一下,大多写的相当复杂,有的居然还只能传文本
  最关键的是没有10行代码以下的 :)
  我花了一个晚上时间研究了一下ADODB.Stream,并且用了6行代码实现了无组件上传:

  strFileName = Request.QueryString("file1")
  Set objStream = Server.CreateObject("ADODB.Stream")
  objStream.Type = 1 ' adTypeBinary
  objStream.Open
  objStream.LoadFromFile strFileName
  objStream.SaveToFile Server."123_onweb.gif",2

  使用方法:

  把上面的代码写成upload.asp
  在浏览器里面输入:
  http://XXX/upload.asp?file1=c:\上传文件\123.gif
  XXX为你的主机地址
  执行完后你会看到你的目录下面多了一个123_onweb.gif
  他就是你要文件拉!!!!

  根据原理我们可以扩展以下代码:
  upload.asp文件
  <%
  Function GetFileName(ByVal strFile)
  If strFile <> "" Then
   GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
  Else
   GetFileName = ""
  End If
  End  function

  strFileName = Request.Form("file1")
  Set objStream = Server.CreateObject("ADODB.Stream")
  objStream.Type = 1 ' adTypeBinary
  objStream.Open
  objStream.LoadFromFile strFileName
  objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
  objStream.Close
  %>

  upload.htm文件
  <form name="FORM" action="upload.asp" method="post">
  <input type="submit" name="submit" value="OK">
     <input type="file" name="file1" style="width:400"  value="">
  </form>

继续阅读
随机生成不重复记录的伪函数
ASP应用:用stream读文件
将人民币的数字转化成大写表示
轻松实现将上传图片到数据库
FSO操作示例(给初学者)
温故知新:几个经典的ASP应用
教你一次下载网页中的所有资源
ASP学习:不刷新页面筛选数据库中的数据
常用Response对象的使用详解
发表评论

昵称:
最新评论
暂时没有评论!