同时上传多张图片

anbs01 2009-10-20 11:06:58

filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileEXT
file.SaveToFile Server.mappath("/upload/daili/"&FileName) '保存文件

……

Rs("pic")="/upload/daili/"&FileName

我采用无组件上传类上传图片，目前只能上传一张图片，现在我想上传多张图片，多张的数目可以是任意的，不确定数目，在提交表单的时候同时上传所有图片。这样的话，我是不是需要做一个循环来保存文件？这些图片的文件名会不会都是一样的？

...全文

200 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

pilicat 2010-05-04

打赏
举报

谢谢楼上各位兄弟分享。

weixin663 2009-10-20

打赏
举报

给楼主推荐艾恩Ajax无刷新文件上传(带进度条,无组件)，最主要可以自定义增加或移除上传控件。
有好几种，详细请自己看吧，地址：http://www.ii-home.cn/detial.asp?id=175

lzp4881 2009-10-20

打赏
举报

[Quote=引用 2 楼 anbs01 的回复:]
引用 1 楼 fxcjy 的回复:
通过循环上传，文件名重新生成防止重名。

如何文件名重新生成防止重名
[/Quote]
文件名用年月日时分秒+随机数可以防止重名

anbs01 2009-10-20

打赏
举报

[Quote=引用 1 楼 fxcjy 的回复:]
通过循环上传，文件名重新生成防止重名。
[/Quote]
如何文件名重新生成防止重名

fxcjy 2009-10-20

打赏
举报

通过循环上传，文件名重新生成防止重名。

西安风影 2009-10-20

打赏
举报

index.htm

<html>

<body>

<form name="form1" method="post" action="upload.asp" enctype="multipart/form-data">

  <input type="file" name="fileImage1" /><br>

  <input type="file" name="fileImage2" /><br>

  <input type="submit" name="submit" value="提交" />

</form>

</body> 

</html>

upload.asp(所有文件)

<html>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<body>

<!--#include FILE="upload_5xsoft.inc"--> 

<%

set upload=new upload_5xsoft



''列出所有文件

for each formName in upload.objFile

  set file=upload.objFile(formName)

  if file.FileSize>0 then

    file.SaveAs Server.mappath(file.FileName) 

  end if

  set file=nothing

next

set upload=nothing

response.write "保存所有文件成功"

%>

</body>

</html>

upload_5xsoft.inc:

<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>

dim Data_5xsoft



Class upload_5xsoft

  

dim objForm,objFile,Version



Public function Form(strForm)

   strForm=lcase(strForm)

   if not objForm.exists(strForm) then

     Form=""

   else

     Form=objForm(strForm)

   end if

 end function



Public function File(strFile)

   strFile=lcase(strFile)

   if not objFile.exists(strFile) then

     set File=new FileInfo

   else

     set File=objFile(strFile)

   end if

 end function





Private Sub Class_Initialize 

  dim RequestData,sStart,vbCrlf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,theFile

  dim iFileSize,sFilePath,sFileType,sFormValue,sFileName

  dim iFindStart,iFindEnd

  dim iFormStart,iFormEnd,sFormName

  Version="化境HTTP上传程序 Version 2.1"

  set objForm=Server.CreateObject("Scripting.Dictionary")

  set objFile=Server.CreateObject("Scripting.Dictionary")

  if Request.TotalBytes<1 then Exit Sub

  set tStream = Server.CreateObject("adodb.stream")

  set Data_5xsoft = Server.CreateObject("adodb.stream")

  Data_5xsoft.Type = 1

  Data_5xsoft.Mode =3

  Data_5xsoft.Open

  Data_5xsoft.Write  Request.BinaryRead(Request.TotalBytes)

  Data_5xsoft.Position=0

  RequestData =Data_5xsoft.Read 



  iFormStart = 1

  iFormEnd = LenB(RequestData)

  vbCrlf = chrB(13) & chrB(10)

  sStart = MidB(RequestData,1, InStrB(iFormStart,RequestData,vbCrlf)-1)

  iStart = LenB (sStart)

  iFormStart=iFormStart+iStart+1

  while (iFormStart + 10) < iFormEnd 

	iInfoEnd = InStrB(iFormStart,RequestData,vbCrlf & vbCrlf)+3

	tStream.Type = 1

	tStream.Mode =3

	tStream.Open

	Data_5xsoft.Position = iFormStart

	Data_5xsoft.CopyTo tStream,iInfoEnd-iFormStart

	tStream.Position = 0

	tStream.Type = 2

	tStream.Charset ="gb2312"

	sInfo = tStream.ReadText

	tStream.Close

	'取得表单项目名称

	iFormStart = InStrB(iInfoEnd,RequestData,sStart)

	iFindStart = InStr(22,sInfo,"name=""",1)+6

	iFindEnd = InStr(iFindStart,sInfo,"""",1)

	sFormName = lcase(Mid (sinfo,iFindStart,iFindEnd-iFindStart))

	'如果是文件

	if InStr (45,sInfo,"filename=""",1) > 0 then

		set theFile=new FileInfo

		'取得文件名

		iFindStart = InStr(iFindEnd,sInfo,"filename=""",1)+10

		iFindEnd = InStr(iFindStart,sInfo,"""",1)

		sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)

		theFile.FileName=getFileName(sFileName)

		theFile.FilePath=getFilePath(sFileName)

		theFile.FileExt=GetFileExt(sFileName)

		'取得文件类型

		iFindStart = InStr(iFindEnd,sInfo,"Content-Type: ",1)+14

		iFindEnd = InStr(iFindStart,sInfo,vbCr)

		theFile.FileType =Mid (sinfo,iFindStart,iFindEnd-iFindStart)

		theFile.FileStart =iInfoEnd

		theFile.FileSize = iFormStart -iInfoEnd -3

		theFile.FormName=sFormName

		if not objFile.Exists(sFormName) then

		  objFile.add sFormName,theFile

		end if

	else

	'如果是表单项目

		tStream.Type =1

		tStream.Mode =3

		tStream.Open

		Data_5xsoft.Position = iInfoEnd 

		Data_5xsoft.CopyTo tStream,iFormStart-iInfoEnd-3

		tStream.Position = 0

		tStream.Type = 2

		tStream.Charset ="gb2312"

	        sFormValue = tStream.ReadText 

	        tStream.Close

		if objForm.Exists(sFormName) then

		  objForm(sFormName)=objForm(sFormName)&", "&sFormValue		  

		else

		  objForm.Add sFormName,sFormValue

		end if

	end if

	iFormStart=iFormStart+iStart+1

	wend

  RequestData=""

  set tStream =nothing

End Sub



Private Sub Class_Terminate  

 if Request.TotalBytes>0 then

	objForm.RemoveAll

	objFile.RemoveAll

	set objForm=nothing

	set objFile=nothing

	Data_5xsoft.Close

	set Data_5xsoft =nothing

 end if

End Sub

   

 

 Private function GetFilePath(FullPath)

  If FullPath <> "" Then

   GetFilePath = left(FullPath,InStrRev(FullPath, "\"))

  Else

   GetFilePath = ""

  End If

 End  function



 Private function GetFileExt(FullPath)

  If FullPath <> "" Then

   GetFileExt = mid(FullPath,InStrRev(FullPath, ".")+1)

  Else

   GetFileExt = ""

  End If

 End  function

 

 Private function GetFileName(FullPath)

  If FullPath <> "" Then

   GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1)

  Else

   GetFileName = ""

  End If

 End  function

End Class



Class FileInfo

  dim FormName,FileName,FilePath,FileSize,FileExt,FileType,FileStart

  Private Sub Class_Initialize 

    FileName = ""

    FilePath = ""

    FileSize = 0

    FileStart= 0

    FormName = ""

    FileType = ""

    FileExt  = ""

  End Sub

  

 Public function SaveAs(FullPath)

    dim dr,ErrorChar,i

    SaveAs=true

    if trim(fullpath)="" or FileStart=0 or FileName="" or right(fullpath,1)="/" then exit function

    set dr=CreateObject("Adodb.Stream")

    dr.Mode=3

    dr.Type=1

    dr.Open

    Data_5xsoft.position=FileStart

    Data_5xsoft.copyto dr,FileSize

    dr.SaveToFile FullPath,2

    dr.Close

    set dr=nothing 

    SaveAs=false

  end function

  End Class

</SCRIPT>