|
然而有些情况只需要传递几个文件，而且文件体积并不太大，这种情况下使用组件则有点牛刀杀鸡的感觉，通过html自带的<input type="file">表单就可以实现需要的功能，关键在于后台接收程序的处理。 php处理上传做的很方便，上传文件的信息通过服务器自动处理到$_FILES数组中，开发者只需要使用的内置处理函数简单操作就可以啦。ASP开发者则没有这么幸运，官方并没有提供直接的处理方法，需要开发者自己设计，这时就需要开发者了解IIS对enctype="multipart/form-data"表单的处理方式，IIS把enctype="multipart/form-data"表单提交的数据存储成二进制数据，以二进制格式返回给开发者，开发者则需要通过LenB、MidB的字节处理函数来分析获取的上传内容，客户端发送的具体表单数据格式，可以了解下HTTP RFC1867协议传输格式方面的知识。 下面是我处理多个文件上传的方法，包括php和asp两个版本。 php：WEBSITE_DIRROOT代表网站根目录：
<div class="codetitle"><a style="CURSOR: pointer" data="30227" class="copybut" id="copybut30227" onclick="doCopy('code30227')"> 代码如下:<div class="codebody" id="code30227">
<?php
/
class: 文件上传类
author: 51JS.COM-ZMM
date: 2011.1.20
email: 304924248@qq.com
blog: http://www.cnblogs.com/cnzmm/
/ class Upload {
public $up_ext=array(),$up_max=5210,$up_dir;
private $up_name,$up_rename=true,$up_num=0,$up_files=array(),$up_ret=array(); function construct($name,$ext=array(),$rename=true) {
if (!empty($name)) {
$this->up_name = $name;
!empty($ext) && $this->up_ext = $ext;
$this->up_rename = $rename;
$this->up_dir = WEBSITE_DIRROOT.
$GLOBALS['cfg_upload_path'];
$this->InitUpload();
} else {
exit('upload文件域名称为空，初始化失败！');
}
} private function InitUpload() {
if (is_array($_FILES[$this->up_name])) {
$up_arr = count($_FILES[$this->up_name]);
$up_all = count($_FILES[$this->up_name],1);
$up_cnt = ($up_all - $up_arr) / $up_arr;
for ($i = 0; $i < $up_cnt; $i ++) {
if ($_FILES[$this->up_name]['error'][$i] != 4) {
$this->up_files[] = array(
'tmp_name' => $_FILES[$this->up_name]['tmp_name'][$i],
'name' => $_FILES[$this->up_name]['name'][$i],
'type' => $_FILES[$this->up_name]['type'][$i],
'size' => $_FILES[$this->up_name]['size'][$i],
'error' => $_FILES[$this->up_name]['error'][$i]
);
}
}
$this->up_num = count($this->up_files);
} else {
if (isset($_FILES[$this->up_name])) {
$this->up_files = array(
'tmp_name' => $_FILES[$this->up_name]['tmp_name'],
'name' => $_FILES[$this->up_name]['name'],
'type' => $_FILES[$this->up_name]['type'],
'size' => $_FILES[$this->up_name]['size'],
'error' => $_FILES[$this->up_name]['error']
);
$this->up_num = 1;
} else {
exit('没找找到需要upload的文件！');
}
} $this->ChkUpload();
} private function ChkUpload() {
if (empty($this->up_ext)) {
$up_mime = array('image/wbmp','image/bmp','image/gif','image/pjpeg','image/x-png');
foreach ($this->up_files as $up_file) {
$up_allw = false;
foreach ($up_mime as $mime) {
if ($up_file['type'] == $mime) {
$up_allw = true; break;
}
}
!$up_allw && exit('不允许上传'.$up_file['type'].'格式的文件！'); if ($up_file['size'] / 1024 > $this->up_max) {
exit('不允许上传大于 '.$this->up_max.'K 的文件！');
}
}
} else {
foreach ($this->up_files as $up_file) {
$up_ext = end(explode('.',$up_file['name'])); $up_allw = false;
foreach ($this->up_ext as $ext) {
if ($up_ext == $ext) {
$up_allw = true; break;
}
}
!$up_allw && exit('不允许上传.'.$up_ext.'格式的文件！'); if ($up_file['size'] / 1024 > $this->up_max) {
exit('不允许上传大于 '.$this->up_max.'K 的文件！');
}
}
} $this->Uploading();
} private function Uploading() {
if (IO::DIRCreate($this->up_dir)) {
if (chmod($this->up_dir,0777)) {
if (!empty($this->up_files)) {
foreach ($this->up_files as $up_file) {
if (is_uploaded_file($up_file['tmp_name'])) {
$file_name = $up_file['name'];
if ($this->up_rename) {
$file_ext = end(explode('.',$file_name));
$file_rnd = substr(md5(uniqid()),mt_rand(0,26),6);
$filename = date('ymdHis').''.$file_rnd.'.'.$file_ext;
}
$file_name = $this->up_dir.'/'.$file_name; if (move_uploaded_file($up_file['tmp_name'],$file_name)) {
$this->up_ret[] = str_replace(WEBSITE_DIRROOT,'',$file_name);
} else {
exit('文件上传失败！');
}
}
}
}
} else {
exit('未开启写入权限！');
}
} else {
exit('上传目录创建失败！');
}
} public function GetUpload() {
return empty($this->up_ret) ? false : $this->up_ret;
} function destruct() {}
}
?>
asp：
<div class="codetitle"><a style="CURSOR: pointer" data="21941" class="copybut" id="copybut21941" onclick="doCopy('code21941')"> 代码如下:<div class="codebody" id="code21941">
<%
Class MultiUpload REM PUBLIC-VARIANT Public Form,IsFinished
Private bVbCrlf,bSeparate,fPassed,formData,fileType,fileSize,folderPath,_
fRename,fIMGOnly,itemCount,chunkSize,bTime,sErrors,sAuthor,sVersion
Private itemStart(),itemLength(),dataStart(),dataLength(),itemName(),itemData(),extenArr(),httpArr() REM CLASS-INITIALIZE Private Sub Class_Initialize
Call InitVariant
Server.ScriptTimeOut = 1800
Set Form = Server.CreateObject("Scripting.Dictionary")
sAuthor = "51JS.COM-ZMM"
sVersion = "MultiUpload Class 3.0"
End Sub REM CLASS-ATTRIBUTES Public Property Let AllowType(byVal sType)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "^(w+|)w+$"
regEx.Global = False
regEx.IgnoreCase = True
If regEx.Test(sType) Then fileType = "|" & Ucase(sType) & "|"
Set regEx = Nothing
End Property Public Property Let MaxSize(byVal sSize)
If IsNumeric(sSize) Then fileSize = CDbl(FormatNumber(CCur(sSize),2))
End Property Public Property Let SaveFolder(byVal sFolder)
folderPath = sFolder
End Property Public Property Let CommonPassed(byVal bCheck)
fPassed = bCheck
End Property Public Property Let FileRenamed(byVal bRename)
fRename = bRename
End Property Public Property Let FileIsAllImg(byVal bOnly)
fIMGOnly = bOnly
End Property Public Property Get SaveFolder
SaveFolder = folderPath
End Property Public Property Get FileRenamed
FileRenamed = fRename
End Property Public Property Get FileIsAllImg
FileIsAllImg = fIMGOnly
End Property Public Property Get ErrMessage
ErrMessage = sErrors
End Property Public Property Get ClsAuthor
ClsAuthor = sAuthor
End Property Public Property Get ClsVersion
ClsVersion = sVersion
End Property REM CLASS-METHODS Private Function InitVariant
IsFinished = False
bVbCrlf = StrToByte(vbCrlf & vbCrlf)
bSeparate = StrToByte(String(29,"-"))
fPassed = False
fileType = ""
fileSize = ""
fRename = True
fIMGOnly = True
itemCount = 0
chunkSize = 1024 128
bTime = Now
sErrors = ""
End Function Public Function GetUploadData
Dim curRead : curRead = 0
Dim dataLen : dataLen = Request.TotalBytes
Dim appName : appName = "PROGRESS" & IPToNum(GetClientIPAddr)
Dim streamTmp
Set streamTmp = Server.CreateObject("ADODB.Stream")
streamTmp.Type = 1
streamTmp.Open
Do While curRead < dataLen
Dim partLen : partLen = chunkSize
If partLen + curRead > dataLen Then partLen = dataLen - curRead
streamTmp.Write Request.BinaryRead(partLen)
curRead = curRead + partLen
LetProgress appName,Array(curRead,dataLen,DateDiff("s",Now),folderPath)
Loop
streamTmp.Position = 0
formData = streamTmp.Read(dataLen)
streamTmp.Close
Set streamTmp = Nothing
Call ItemPosition
End Function Private Function LetProgress(byVal sName,byVal vArr)
Application.Value(sName) = Join(vArr,"|")
End Function Private Function DelProgress
Application.Contents.Remove("PROGRESS" & IPToNum(GetClientIPAddr))
End Function Private Function ItemPosition
Dim iStart,iLength : iStart = 1
Do Until InStrB(iStart,bSeparate) = 0
iStart = InStrB(iStart,bSeparate) + LenB(bSeparate) + 14
iLength = InStrB(iStart,bSeparate) - iStart - 2
If Abs(iStart + 2 - LenB(formData)) > 2 Then
ReDim Preserve itemStart(itemCount)
ReDim Preserve itemLength(itemCount)
itemStart(itemCount) = iStart
itemLength(itemCount) = iLength
itemCount = itemCount + 1
End If
Loop
Call FillItemValue
End Function Private Function FillItemValue
Dim dataPart,bInfor
Dim iStart : iStart = 1
Dim iCount : iCount = 0
Dim iCheck : iCheck = StrToByte("filename")
For i = 0 To itemCount - 1
ReDim Preserve itemName(iCount)
ReDim Preserve itemData(iCount)
ReDim Preserve extenArr(iCount)
ReDim Preserve httpArr(iCount)
ReDim Preserve dataStart(iCount)
ReDim Preserve dataLength(iCount)
dataPart = MidB(formData,itemStart(i),itemLength(i))
iStart = InStrB(1,dataPart,ChrB(34)) + 1
iLength = InStrB(iStart,ChrB(34)) - iStart
itemName(iCount) = GetItemName(MidB(dataPart,iStart,iLength))
iStart = InStrB(1,bVBCrlf) + 4
iLength = LenB(dataPart) - iStart + 1
If InStrB(1,iCheck) > 0 Then
bInfor = MidB(dataPart,1,iStart - 5)
extenArr(iCount) = FileExtenName(bInfor)
httpArr(iCount) = GetHttpContent(bInfor)
If IsNothing(extenArr(iCount)) Then
itemData(iCount) = ""
dataStart(iCount) = ""
dataLength(iCount) = ""
Else
If Mid(folderPath,Len(folderPath) - 1) = "/" Then
If fRename Then
itemData(iCount) = folderPath & GetRandomName(6) & extenArr(iCount)
Else
itemData(iCount) = folderPath & GetClientName(bInfor) & extenArr(iCount)
End If
Else
If fRename Then
itemData(iCount) = folderPath & "/" & GetRandomName(6) & extenArr(iCount)
Else
itemData(iCount) = folderPath & "/" & GetClientName(bInfor) & extenArr(iCount)
End If
End If
dataStart(iCount) = itemStart(i) + iStart - 2
dataLength(iCount) = iLength
End If
Else
extenArr(iCount) = ""
httpArr(iCount) = ""
itemData(iCount) = ByteToStr(MidB(dataPart,iLength))
dataStart(iCount) = ""
dataLength(iCount) = ""
End If
iCount = iCount + 1
Next
Call ItemToColl
End Function Private Function GetItemName(byVal bName)
GetItemName = ByteToStr(bName)
End Function Private Function ItemToColl
For i = 0 To itemCount - 1
If Not Form.Exists(itemName(i)) Then
Form.Add itemName(i),itemData(i)
End If
Next
End Function Private Function FileExtenName(byVal bInfor)
Dim pContent,regEx
pContent = GetClientPath(bInfor)
If IsNothing(pContent) Then
FileExtenName = ""
Else
Set regEx = New RegExp
regEx.Pattern = "^.+(.[^.]+)$"
regEx.Global = False
regEx.IgnoreCase = True
FileExtenName = regEx.Replace(pContent,"$1")
Set regEx = Nothing
End If
End Function Private Function GetHttpContent(byVal bInfor)
Dim sInfor,regEx
sInfor = ByteToStr(bInfor)
Set regEx = New RegExp
regEx.Pattern = "^[Ss]+Content-Type:([Ss]+)$"
regEx.Global = False
regEx.IgnoreCase = True
GetHttpContent = Trim(regEx.Replace(sInfor,"$1"))
Set regEx = Nothing
End Function Private Function GetRandomName(byVal sLen)
Dim regEx,sTemp,arrFields,n : n = 0
Set regEx = New RegExp
regEx.Pattern = "[^d]+"
regEx.Global = True
regEx.IgnoreCase = True
sTemp = regEx.Replace(Now,"") & "-"
Set regEx = Nothing
arrFields = Array("0","1","2","3","4","5","6","7","8","9",
"a","b","c","d","e","f","g","h","i","j",
"k","l","m","n","o","p","q","r","s","t",
"u","v","w","x","y","z","A","B","C","D",
"E","F","G","H","I","J","K","L","M","N",
"O","P","Q","R","S","T","U","V","W","X",
"Y","Z")
Randomize
Do While n < sLen
sTemp = sTemp & CStr(arrFields(61 Rnd))
n = n + 1
Loop
GetRandomName = sTemp
End Function Private Function GetClientName(byVal bInfor)
Dim pContent,regEx
pContent = GetClientPath(bInfor)
If IsNothing(pContent) Then
GetClientName = ""
Else
Set regEx = New RegExp
regEx.Pattern = "^.([^.])[^]+$"
regEx.Global = False
regEx.IgnoreCase = True
GetClientName = regEx.Replace(pContent,"$1")
Set regEx = Nothing
End If
End Function Private Function GetClientPath(byVal bInfor)
Dim sInfor,pStart,pLength,pContent
sInfor = ByteToStr(bInfor)
pStart = InStr(1,sInfor,"filename=" & Chr(34)) + 10
pLength = InStr(pStart,Chr(34)) - pStart
pContent = Mid(sInfor,pLength)
GetClientPath = pContent
End Function Public Function SaveUploadFile
Dim isValidate
Dim filePath,oStreamGet,oStreamPut
isValidate = fPassed And CheckFile
If isValidate Then
For i = 0 To itemCount - 1
If Not IsNothing(dataStart(i)) And Not IsNothing(dataLength(i)) Then
If dataLength(i) = 0 Then
itemData(i) = ""
Else
filePath = Server.MapPath(itemData(i))
If CreateFolder("|",ParentFolder(filePath)) Then
Set oStreamGet = Server.CreateObject("ADODB.Stream")
oStreamGet.Type = 1
oStreamGet.Mode = 3
oStreamGet.Open
oStreamGet.Write formData
oStreamGet.Position = dataStart(i)
Set oStreamPut = Server.CreateObject("ADODB.Stream")
oStreamPut.Type = 1
oStreamPut.Mode = 3
oStreamPut.Open
oStreamPut.Write oStreamGet.Read(dataLength(i))
oStreamPut.SaveToFile filePath,2
oStreamGet.Close
Set oStreamGet = Nothing
oStreamPut.Close
Set oStreamPut = Nothing
End If
End If
End If
Next
IsFinished = True
Else
IsFinished = False
End If
End Function Private Function CheckFile
Dim oBoolean : oBoolean = True
CheckFile = oBoolean And CheckType And CheckSize
End Function Private Function CheckType
Dim oBoolean : oBoolean = True
If fileType = "" Then
oBoolean = oBoolean And True
Else
For i = 0 To itemCount - 1
If Not IsNothing(extenArr(i)) Then
If InStr(1,"|" & Ucase(Mid(extenArr(i),2)) & "|") > 0 Then
If fIMGOnly Then
Dim sAllow : sAllow = "|GIF|PJPEG|X-PNG|BMP|"
Dim aCheck : aCheck = Split(UCase(httpArr(i)),"/")
Dim iCheck : iCheck = "|" & aCheck(Ubound(aCheck)) & "|"
If InStr(1,sAllow,iCheck,1) > 0 Then
oBoolean = oBoolean And True
Else
sErrors = sErrors & "表单 [ " & itemName(i) & " ] 的文件格式错误！n" &
"支持的格式为：" & Replace(Mid(fileType,2,Len(fileType) - 1),"|"," ") & "nn"
oBoolean = oBoolean And False
End If
Else
oBoolean = oBoolean And True
End If
Else
sErrors = sErrors & "表单 [ " & itemName(i) & " ] 的文件格式错误！n" &
"支持的格式为：" & Replace(Mid(fileType," ") & "nn"
oBoolean = oBoolean And False
End If
End If
Next
End If
CheckType = oBoolean
End Function Private Function CheckSize
Dim oBoolean : oBoolean = True
If fileSize = "" Then
oBoolean = oBoolean And True
Else
For i = 0 To itemCount - 1
If Not IsNothing(dataLength(i)) Then
Dim tmpSize : tmpSize = CDbl(FormatNumber(CCur(dataLength(i)) / 1024,2))
If tmpSize <= fileSize Then
oBoolean = oBoolean And True
Else
sErrors = sErrors & "表单 [ " & itemName(i) & " ] 的文件大小 (" & tmpSize & " KB) 超出范围！n" & _
"支持大小范围：<= " & fileSize & " KBnn"
oBoolean = oBoolean And False
End If
End If
Next
End If
CheckSize = oBoolean
End Function Private Function CreateFolder(byVal sLine,byVal sPath)
Dim oFso
Set oFso = Server.CreateObject("Scripting.FileSystemObject")
If Not oFso.FolderExists(sPath) Then
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "^(.)([^])$"
regEx.Global = False
regEx.IgnoreCase = True
sLine = sLine & regEx.Replace(sPath,"$2") & "|"
sPath = regEx.Replace(sPath,"$1")
If CreateFolder(sLine,sPath) Then CreateFolder = True
Set regEx = Nothing
Else
If sLine = "|" Then
CreateFolder = True
Else
Dim sTemp : sTemp = Mid(sLine,Len(sLine) - 2)
If InStrRev(sTemp,"|") = 0 Then
sLine = "|"
sPath = sPath & "" & sTemp
Else
Dim Folder : Folder = Mid(sTemp,InStrRev(sTemp,"|") + 1)
sLine = "|" & Mid(sTemp,"|") - 1) & "|"
sPath = sPath & "" & Folder
End If
oFso.CreateFolder sPath
If CreateFolder(sLine,sPath) Then CreateFolder = True
End if
End If
Set oFso = Nothing
End Function Private Function ParentFolder(byVal sPath)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "^(.)[^]$"
regEx.Global = True
regEx.IgnoreCase = True
ParentFolder = regEx.Replace(sPath,"$1")
Set regEx = Nothing
End Function Private Function IsNothing(byVal sVar)
IsNothing = CBool(sVar = Empty)
End Function Private Function StrPadLeft(byVal sText,byVal sLen,byVal sChar)
Dim sTemp : sTemp = sText
Do While Len(sTemp) < sLen : sTemp = sChar & sTemp : Loop
StrPadLeft = sTemp
End Function Private Function StrToByte(byVal sText)
For i = 1 To Len(sText)
StrToByte = StrToByte & ChrB(Asc(Mid(sText,i,1)))
Next
End Function Private Function ByteToStr(byVal sByte)
Dim oStream
Set oStream = Server.CreateObject("ADODB.Stream")
oStream.Type = 2
oStream.Mode = 3
oStream.Open
oStream.WriteText sByte
oStream.Position = 0
oStream.CharSet = "gb2312"
oStream.Position = 2
ByteToStr = oStream.ReadText
oStream.Close
Set oStream = Nothing
End Function Private Function GetClientIPAddr
If IsNothing(GetServerVar("HTTP_X_FORWARDED_FOR")) Then
GetClientIPAddr = GetServerVar("REMOTE_ADDR")
Else
GetClientIPAddr = GetServerVar("HTTP_X_FORWARDED_FOR")
End If
End Function Private Function GetServerVar(byVal sText)
GetServerVar = Request.ServerVariables(sText)
End Function Private Function IPToNum(byVal sIp)
Dim sIp_1,sIp_2,sIp_3,sIp_4
If IsNumeric(Left(sIp,2)) Then
sIp_1 = Left(sIp,InStr(sIp,".") - 1)
sIp = Mid(sIp,".") + 1)
sIp_2 = Left(sIp,".") + 1)
sIp_3 = Left(sIp,".") - 1)
sIp_4 = Mid(sIp,".") + 1)
End If
IPToNum = CInt(sIp_1) 256 256 256 + CInt(sIp_2) 256 256 + CInt(sIp_3) 256 + CInt(sIp_4) - 1
End Function REM CLASS-TERMINATE Private Sub Class_Terminate
Call DelProgress
Form.RemoveAll
Set Form = Nothing
End Sub End Class
%>
（编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
