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

我花了一个晚上时间研究了一下ADODB.Stream,并且用了6行代码实现了无组件上传:  

  strFileName=Request.QueryString("file1")

  SetobjStream=Server.CreateObject("ADODB.Stream")

  objStream.Type=1'adTypeBinary

  objStream.Open

  objStream.LoadFromFilestrFileName

  objStream.SaveToFileServer."123_onweb.gif",2  

  使用方法:  

  把上面的代码写成upload.asp

  在浏览器里面输入:

  http://XXX/upload.asp?file1=c:上传文件123.gif

  XXX为你的主机地址

  执行完后你会看到你的目录下面多了一个123_onweb.gif

  他就是你要文件拉!!!!  

  根据原理我们可以扩展以下代码:

  upload.asp文件

  <%

  FunctionGetFileName(ByValstrFile)

  IfstrFile<>""Then

  GetFileName=mid(strFile,InStrRev(strFile,"")+1)

  Else

  GetFileName=""

  EndIf

  Endfunction  

  strFileName=Request.Form("file1")

  SetobjStream=Server.CreateObject("ADODB.Stream")

  objStream.Type=1'adTypeBinary

  objStream.Open

  objStream.LoadFromFilestrFileName

  objStream.SaveToFileServer.MapPath(GetFileName(strFileName)),2

  objStream.Close

  %>  

  upload.htm文件

  <formname="FORM"action="upload.asp"method="post">

    <inputtype="submit"name="submit"value="OK">

  <inputtype="file"name="file1"style="width:400"value="">

  </form>





有什么问题可以加群,100852896
点击这里加入此群 在线提问
文章来自: 本站原创
Tags:
评论: 0 | 查看次数: 6767
博主QQ: 友情链接请找我
QQ群: 灰色档案
返回顶部 关闭