注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

QCjin

SEO 网站优化 网页优化 搜索引擎优化 排名优化 淘宝排名 增高鞋 高哥

 
 
 

日志

 
 

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

2008-09-19 17:24:06|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

目前有很多无组件上传类,我大概看了一下,大多写的相当复杂,有的居然还只能传文本

  最关键的是没有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>

  评论这张
 
阅读(18)| 评论(1)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017