為SWFUpload增加ASP版本的上傳處理程序
2024-05-04 10:59:55
供稿：網友
但也許是隨著asp的逐漸淡出web開發，官方僅提供了.net、php等版本的上傳處理程序，對于asp開發者來說則需要自行處理服務器端的數據接收。
剛接觸此組件時就被它功能強大與靈活方便吸引，由于當時項目采用asp開發，百度一番后發現并無好用的asp上傳處理程序（現在有很多啦^^），看來只能自己研究開發啦，最初采用處理普通上傳的方法來截取文件的數據，幾經測試發現并不能有效接收組件傳遞過來的文件數據，無奈只能著手分析下它發送的數據形式，通過分析發現它發送的數據格式還是和普通上傳存在一些區別的，無論是圖片還是文件都是以octet-stream形式發送到服務器的，了解了數據格式，剩下的就是截取啦，下面把我的處理方法分享給需要的朋友，處理速度還算理想。
復制代碼 代碼如下:
<%
Class SWFUpload
Private formData, folderPath, streamGet
Private fileSize, chunkSize, bofCont, eofCont
REM CLASS-INITIALIZE
Private Sub Class_Initialize
Call InitVariant
Server.ScriptTimeOut = 1800
Set streamGet = Server.CreateObject("ADODB.Stream")
sAuthor = "51JS.COM-ZMM"
sVersion = "Upload Class 1.0"
End Sub
REM CLASS-INITIALIZE
Public Property Let SaveFolder(byVal sFolder)
If Right(sFolder, 1) = "/" Then
folderPath = sFolder
Else
folderPath = sFolder & "/"
End If
End Property
Public Property Get SaveFolder
SaveFolder = folderPath
End Property
Private Function InitVariant
chunkSize = 1024 * 128
folderPath = "/" : fileSize = 1024 * 10
bofCont = StrToByte("octet-stream" & vbCrlf & vbCrlf)
eofCont = StrToByte(vbCrlf & String(12, "-"))
End Function
Public Function GetUploadData
Dim curRead : curRead = 0
Dim dataLen : dataLen = Request.TotalBytes
streamGet.Type = 1 : streamGet.Open
Do While curRead < dataLen
Dim partLen : partLen = chunkSize
If partLen + curRead > dataLen Then partLen = dataLen - curRead
streamGet.Write Request.BinaryRead(partLen)
curRead = curRead + partLen
Loop
streamGet.Position = 0
formData = streamGet.Read(dataLen)
Call GetUploadFile
End Function
Public Function GetUploadFile
Dim begMark : begMark = StrToByte("filename=")
Dim begPath : begPath = InStrB(1, formData, begMark & ChrB(34)) + 10
Dim endPath : endPath = InStrB(begPath, formData, ChrB(34))
Dim cntPath : cntPath = MidB(formData, begPath, endPath - begPath)
Dim cntName : cntName = folderPath & GetClientName(cntPath)
Dim begFile : begFile = InStrB(1, formData, bofCont) + 15
Dim endFile : endFile = InStrB(begFile, formData, eofCont)
Call SaveUploadFile(cntName, begFile, endFile - begFile)
End Function
Public Function SaveUploadFile(byVal fName, byVal bCont, byVal sLen)
Dim filePath : filePath = Server.MapPath(fName)
If CreateFolder("|", GetParentFolder(filePath)) Then
