執行個體詳解ASP的上傳功能

來源:互聯網
上載者:User
上傳|詳解|上傳     這個問題已經不是什麼新鮮問題了,網上也有大把的教程,但大多數是授人以魚,而不授人以漁,經過辛苦的資料收集,思考,調試,整理,我基本上已經把這個問題從原理上搞清楚了,現在根據我自己的理解,在範常式序的基礎上,加以解釋,希望能對部分網友有所協助。

  請諸位大蝦能對其中的不正或不良這處予以指正。

  我想循序漸進,先講一個簡單的,單個圖片檔案儲存到資料庫。

  這個範例共包括三個ASP檔案和一個資料庫(一個表),全部在同一目錄下。

  1、tblImage 表結構(ACCESS 2000)

  sn     自動編號 序號
  content-type 文本   圖片類型
  image    OLE 對象 圖片資料

  2、SimpleImageToData.asp:上傳表單及儲存圖片到資料庫的代碼部分,主要檔案。

<%@ Language=VBScript %>
<% option explicit %>

<%
 '從一個完整路徑中析出檔案名稱
 function getFileNamefromPath(strPath)
  getFileNamefromPath = mid(strPath,instrrev(strPath,"\")+1)
 end function

 '定義資料庫連接字串
 dim cnstr
 cnstr = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("./upload.mdb")
%>

<HTML>
 <HEAD>
  <title>單個映像儲存到資料庫</title>
  <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
 </HEAD>
 <body>
<p><a href="SimpleImageToData.asp">上傳圖片</a>
 <a href="ShowImageListFromData.asp">顯示圖片</a><hr></p>
 
<%
 if request.ServerVariables("REQUEST_METHOD") = "POST" then

  dim sCome, sGo, binData, strData
  dim posB, posE, posSB, posSE
  dim binCrlf
  dim strPath, strFileName, strContentType
 
  binCrlf = chrb(13)&chrb(10)   '定義一個單位元組的斷行符號分行符號
 
  set sCome = server.CreateObject("adodb.stream")
  sCome.Type = 1  '指定返回資料類型 adTypeBinary=1,adTypeText=2
  sCome.Mode = 3  '指定開啟模式 adModeRead=1,adModeWrite=2,adModeReadWrite=3
  sCome.Open
  sCome.Write request.BinaryRead(request.TotalBytes)
 
  sCome.Position = 0
  binData = sCome.Read
 
  'response.BinaryWrite binData    '調試用:顯示提交的所有資料
  'response.Write "<hr>"        '調試用
 
  set sGo = server.CreateObject("adodb.stream")
  sGo.Type = 1
  sGo.Mode = 3
  sGo.Open
 
  posB = 1
  posB = instrb(posB,binData,binCrlf)
  posE = instrb(posB+1,binData,binCrlf)
  'response.Write posB & " | " & posE & "<br>"
 
  sCome.Position = posB+1
  sCome.CopyTo sGo,posE-posB-2
  sGo.Position = 0
  sGo.Type = 2
  sGo.Charset = "gb2312"
  strData = sGo.ReadText
  sGo.Close
 
  'response.Write strData & "<hr>"
 
  posSB = 1
  posSB = instr(posSB,strData,"filename=""") + len("filename=""")
  posSE = instr(posSB,strData,"""")
 
  if posSE > posSB then
   strPath = mid(strData,posSB,posSE-posSB)
   'response.Write "本地路徑:" & strPath & "<br>"
   'response.Write "檔案名稱:" & getFileNamefromPath(strPath) & "<br>"
  
   posB = posE
   posE = instrb(posB+1,binData,binCrlf)
   'response.Write posB & " | " & posE & "<br>"
  
   sGo.Type = 1
   sGo.Mode = 3
   sGo.Open

   sCome.Position = posB
   sCome.CopyTo sGo,posE-posB-1

   sGo.Position = 0
   sGo.Type = 2
   sGo.Charset = "gb2312"
   strData = sGo.ReadText
   sGo.Close
  
   strContentType = mid(strData,16)   '此處因為固定的,所以省略尋找 :-)
   'response.Write "圖片類型:" & strContentType & "<hr>"
  
   posB = posE+2
   posE = instrb(posB+1,binData,binCrlf)
   'response.Write posB & " | " & posE & "<br>"
  
   sGo.Type = 1
   sGo.Mode = 3
   sGo.Open

   sCome.Position = posB+1
   sCome.CopyTo sGo,posE-posB-2
  
   sGo.Position = 0
   strData = sGo.Read
   sGo.Close
 
   'response.Write lenb(strData) & "<br>"
      
   dim cn, rs, sql
   set cn = server.CreateObject("adodb.connection")
   cn.Open cnstr
   set rs = server.CreateObject("adodb.recordset")
   sql = "select * from tblImage"
   rs.Open sql,cn,1,3
   rs.AddNew
   rs.Fields("content-type").Value = strContentType
   rs.Fields("image").AppendChunk strData
   rs.Update
   rs.Close
   set rs = nothing
&nbs



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

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 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。