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

时间:2008-10-07 12:12:11  来源:第二电脑网上收集  作者:

  第二电脑网导读:br />   objStream.Type = 1 ' adTypeBinary    objStream.Open    objStream.LoadFromFile strFileName    objStream.SaveToFile Server."123_onweb.gif",2      使用方法:      把上面的代码写成upload.asp    在浏览器里面输入:    http://...
  正文: 我花了一个晚上时间研究了一下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/ target=_blank class=infotextkey>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:6行代码实现无组件上传"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Programming/ASP/2008-10-07/3180.html


关键字:

关于《ASP:6行代码实现无组件上传》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td