6行代码实现无组件上传

欧美熙儿丶

欧美熙儿丶

2016-01-29 18:43

6行代码实现无组件上传,6行代码实现无组件上传
 

stimson(原作)

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

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/asp/)

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

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/asp/)


使用方法:
把上面的代码写成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

 
展开更多 50%)
分享

猜你喜欢

6行代码实现无组件上传

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

无组件文件上传代码实例

ASP
无组件文件上传代码实例

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

一个的无组件上传的ASP代码

ASP
一个的无组件上传的ASP代码

无组件图文混合上传示例

ASP
无组件图文混合上传示例

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

中文的无组件文件上传ASP函数

ASP
中文的无组件文件上传ASP函数

一个老个写的无组件上传

ASP
一个老个写的无组件上传

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

一些不长见的ASP调用存储过程的技巧

一些不长见的ASP调用存储过程的技巧

Windows 2003优化系列之系统加速

Windows 2003优化系列之系统加速
下拉加载更多内容 ↓