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

最後更新：2017-02-28 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

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

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

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

　　這個範例共包括三個ＡＳＰ檔案和一個資料庫（一個表），全部在同一目錄下。

　　１、tblImage 表結構（ACCESS 2000）

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

　　２、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>
<a href="SimpleImageToData.asp">上傳圖片</a>
<a href="ShowImageListFromData.asp">顯示圖片</a><hr>

<%
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 & " "

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 & " "
 'response.Write "檔案名稱：" & getFileNamefromPath(strPath) & " "

 posB = posE
 posE = instrb(posB+1,binData,binCrlf)
 'response.Write posB & " | " & posE & " "

 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 & " "

 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) & " "

 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

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More