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

汇总技巧

你快乐我快乐.... 汇集各类技巧,传播技巧,让我们共同熟练运用技巧..

 
 
 

日志

 
 

6行代码实现无组件上传  

2011-06-03 13:46:22|  分类: ◆ASP技巧 |  标签: |举报 |字号 订阅

  下载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
在浏览器里面输入:
asp?file1=c:\>http://XXX/upload.asp?file1=c:\
target=_blank>http://XXX/upload.asp?file1=c:\">http://XXX/upload.asp?file1=c:\

XXX为你的主机地址
执行完后你会看到你的目录下面多了一个123_onweb.gi
他就是你要文件拉!!!!
根据原理我们可以扩展以下代码:
upload.asp文件
%
Function GetFileName(ByVal strFile)
 If strFile   Then
 GetFileName = mid(strFile,InStrRev(strFile, \)+1)
 Else
 GetFileName = 
 End I
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

  评论这张
 
阅读(67)| 评论(0)
推荐 转载

历史上的今天

评论

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

页脚

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