ASP執行個體:6行代碼實現無組件上傳

來源:互聯網
上載者:User
 目前有很多無組件上傳類,我大概看了一下,大多寫的相當複雜,有的居然還只能傳文本
  最關鍵的是沒有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
  在瀏覽器裡面輸入:
  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>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。