asp無(wú)組件上傳類(lèi)

'----------------------------------------------------------------------
'轉(zhuǎn)發(fā)時(shí)請(qǐng)保留此聲明信息,這段聲明并不會(huì)影響你的速度!
'******************* 無(wú)組件上傳類(lèi) ********************************
'最后修改者：塞北的雪
'blog:http://blog.csdn.net
'電子郵件：northsnow@163.com
'聲明：此代碼是在梁無(wú)懼代碼基礎(chǔ)上修改的，沒(méi)有更改代碼內(nèi)核，只是增加了一個(gè)屬性 smallFileName
'之所以發(fā)這篇文章，是想告訴大家，在使用高手一寫(xiě)好的代碼的時(shí)候，不要僅局限于別人提供的現(xiàn)有的功能，
'而應(yīng)該在他人提供的已有的功能的基礎(chǔ)上，根據(jù)自己的需求進(jìn)行擴(kuò)改。以達(dá)到自己最滿(mǎn)意的需求。
'修改者:梁無(wú)懼
'電子郵件:yjlrb@21cn.com
'網(wǎng)站:http://www.25cn.com
'原作者:稻香老農(nóng)
'原作者網(wǎng)站:http://www.5xsoft.com
'聲明:此上傳類(lèi)是在化境編程界發(fā)布的無(wú)組件上傳類(lèi)的基礎(chǔ)上修改的.
'在與化境編程界無(wú)組件上傳類(lèi)相比,速度快了將近50倍,當(dāng)上傳4M大小的文件時(shí)
'服務(wù)器只需要10秒就可以處理完,是目前最快的無(wú)組件上傳程序,當(dāng)前版本為0.96
'源代碼公開(kāi),免費(fèi)使用,對(duì)于商業(yè)用途,請(qǐng)與作者聯(lián)系
'文件屬性：例如上傳文件為c:\myfile\doc.txt
'FileName 文件名 字符串 "doc.txt"
'FileSize 文件大小 數(shù)值 1210
'FileType 文件類(lèi)型 字符串 "text/plain"
'FileExt 文件擴(kuò)展名 字符串 "txt"
'smallFileName 去掉了擴(kuò)展名的文件名 "doc"
'FilePath 文件原路徑 字符串 "c:\myfile"
'使用時(shí)注意事項(xiàng):
'由于Scripting.Dictionary區(qū)分大小寫(xiě),所以在網(wǎng)頁(yè)及ASP頁(yè)的項(xiàng)目名都要相同的大小
'寫(xiě),如果人習(xí)慣用大寫(xiě)或小寫(xiě),為了防止出錯(cuò)的話(huà),可以把
'sFormName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
'改為
'(小寫(xiě)者)sFormName = LCase(Mid (sinfo,iFindStart,iFindEnd-iFindStart))
'(大寫(xiě)者)sFormName = UCase(Mid (sinfo,iFindStart,iFindEnd-iFindStart))
'**********************************************************************
'----------------------------------------------------------------------
dim oUpFileStream

Class upload_file

dim Form,File

Private Sub Class_Initialize
'定義變量
dim RequestBinDate,sStart,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo
dim iFileSize,sFilePath,sFileType,sFormvalue,sFileName
dim iFindStart,iFindEnd
dim iFormStart,iFormEnd,sFormName
'代碼開(kāi)始
set Form = Server.CreateObject("Scripting.Dictionary")
set File = Server.CreateObject("Scripting.Dictionary")
if Request.TotalBytes < 1 then Exit Sub
set tStream = Server.CreateObject("adodb.stream")
set oUpFileStream = Server.CreateObject("adodb.stream")
oUpFileStream.Type = 1
oUpFileStream.Mode = 3
oUpFileStream.Open
oUpFileStream.Write Request.BinaryRead(Request.TotalBytes)
oUpFileStream.Position=0
RequestBinDate = oUpFileStream.Read
iFormEnd = oUpFileStream.Size
bCrLf = chrB(13) & chrB(10)
'取得每個(gè)項(xiàng)目之間的分隔符
sStart = MidB(RequestBinDate,1, InStrB(1,RequestBinDate,bCrLf)-1)
iStart = LenB (sStart)
iFormStart = iStart 2
'分解項(xiàng)目
Do
iInfoEnd = InStrB(iFormStart,RequestBinDate,bCrLf & bCrLf) 3
tStream.Type = 1
tStream.Mode = 3
tStream.Open
oUpFileStream.Position = iFormStart
oUpFileStream.CopyTo tStream,iInfoEnd-iFormStart
tStream.Position = 0
tStream.Type = 2
tStream.Charset ="gb2312"
sInfo = tStream.ReadText
'取得表單項(xiàng)目名稱(chēng)
iFormStart = InStrB(iInfoEnd,RequestBinDate,sStart)-1
iFindStart = InStr(22,sInfo,"name=""",1) 6
iFindEnd = InStr(iFindStart,sInfo,"""",1)
sFormName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
'如果是文件
if InStr (45,sInfo,"filename=""",1) > 0 then
set oFileInfo= new FileInfo
'取得文件屬性
iFindStart = InStr(iFindEnd,sInfo,"filename=""",1) 10
iFindEnd = InStr(iFindStart,sInfo,"""",1)
sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
oFileInfo.FileName = GetFileName(sFileName)
oFileInfo.FilePath = GetFilePath(sFileName)
'oFileInfo.FileExt = GetFileExt(sFileName) '----劉金才修改
oFileInfo.FileExt = GetFileExt(oFileInfo.FileName) '----劉金才添加
oFileInfo.smallFileName = getSmallFileName(oFileInfo.FileName) '----劉金才添加
iFindStart = InStr(iFindEnd,sInfo,"Content-Type: ",1) 14
iFindEnd = InStr(iFindStart,sInfo,vbCr)
oFileInfo.FileType = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
oFileInfo.FileStart = iInfoEnd
oFileInfo.FileSize = iFormStart -iInfoEnd -2
oFileInfo.FormName = sFormName
file.add sFormName,oFileInfo
else
'如果是表單項(xiàng)目
tStream.Close
tStream.Type = 1
tStream.Mode = 3
tStream.Open
oUpFileStream.Position = iInfoEnd
oUpFileStream.CopyTo tStream,iFormStart-iInfoEnd-2
tStream.Position = 0
tStream.Type = 2
tStream.Charset = "gb2312"
sFormvalue = tStream.ReadText
form.Add sFormName,sFormvalue
end if
tStream.Close
iFormStart = iFormStart iStart 2
'如果到文件尾了就退出
loop until (iFormStart 2) = iFormEnd

特別注意：本站所有轉(zhuǎn)載文章言論不代表本站觀(guān)點(diǎn)，本站所提供的攝影照片，插畫(huà)，設(shè)計(jì)作品，如需使用，請(qǐng)與原作者聯(lián)系，版權(quán)歸原作者所有。
本站文章均來(lái)自網(wǎng)絡(luò)，如有侵權(quán)，請(qǐng)聯(lián)系0371-55621053 QQ: 1342277422 我們將立即刪除！

服務(wù)器租用/服務(wù)器托管中國(guó)五強(qiáng)！虛擬主機(jī)域名注冊(cè)頂級(jí)提供商！15年品質(zhì)保障！--億恩科技[ENKJ.COM]