asp怎样上传文件到指定的文件夹并在access中记录路径Word下载.docx

1、注意：是上传文件，不是图片。文件包括 exe、rar、zip、doc、jpg等等。最佳答案上传文件页 index.asp 开始-index.asp 代码如下function a（htmlurl）var win=window.open（htmlurl,newwin,toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,width=300,height=10,left=380,top=380）;汽车照片：input type=text name=qczp class=zc_inp

2、ut maxlength=100 value=readonly 上传文件页 index.asp 结束-uploadprod.asp 选择图片上传 开始-uploadprod.asp 代码如下上传图片function check（）var mf=document.up;if（mf.image.value.length4）alert（请选择需要上传的图片.）;mf.image.focus（）;return false;return true;if（window.Event）document.captureEvents（Event.MOUSEUP）;function nocontextmenu（）e

3、vent.cancelBubble=true event.returnValue=false;function norightclick（e）if（window.Event）if（e.which=2|e.which=3）return false;else if（event.button=2|event.button=3）event.cancelBubble=true event.returnValue=false;document.oncontextmenu=nocontextmenu;/for IE5+document.onmousedown=norightclick;/for all ot

4、hers 上传图片 选择图片：上传文件页 uploadprod.asp 结束-判断文件以及文件是否存在则上传 uploadprod2.asp 开始-uploadprod2.asp 源代码 图片上传 if（window.Event）document.captureEvents（Event.MOUSEUP）;/for all others%AllowFileExtStr=jpg,gif,png,bmp dim ID dim upload,path,file1,filename1 set upload=new upload_5xSoft建立上传对象 图片上传 formPath=./Carpic/上传

5、图片目录 开始上传图片 set file1=upload.file（image）filename1=year（now（）&-&month（now（）&day（now（）&_&hour（now（）&Minute（now（）&Second（now（）&right（file1.FileName,4）if file1.FileSize0 then如果 FileSize 0 说明有文件数据 FileExtName=mid（file1.FileName,InStrRev（file1.FileName,.）+1）if CheckFileType（AllowFileExtStr,FileExtName）=Fa

6、lse then response.Write file1.FileName&文件：不允许上传！上传文件类型有：&AllowFileExtStr&response.Write response.Write 你的IP:Replace（Request.ServerVariables（REMOTE_ADDR）,）&response.Write response.write 你的操作已被系统所记录！response.End（）end if file1.SaveAs Server.mappath（formPath&filename1）保存文件 上传图片成功 path1=/Carpic/&filename

7、1 else response.write 请选择要插入的图片文件 end if session（qczp）=path1%图片上传成功.alert（图片上传成功！）;opener.document.zc.qczp.value=;window.close（）;%判断文件以及文件是否存在则上传 uploadprod2.asp 结束-另外需要一个 上传组件 文件为 zupload.asp 开始-代码如下 dim Data_5xsoftClass upload_5xsoft dim objForm,objFile,VersionPublic function Form（strForm）strForm=

8、lcase（strForm）if not objForm.exists（strForm）then Form=else Form=objForm（strForm）end if end functionPublic 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 RequestDat

9、a,sStart,vbCrlf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,theFile dim iFileSize,sFilePath,sFileType,sFormValue,sFileName dim iFindStart,iFindEnd dim iFormStart,iFormEnd,sFormName Version=上传程序 Version 2.0 set objForm=Server.CreateObject（Scripting.Dictionary）set objFile=Server.CreateObject（Scripting.Di

10、ctionary）if Request.TotalBytes1 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.Re

11、ad 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）0 then set theFile=new FileInfo 取得文件名 iFindStart=InStr（iFindEnd,sInfo,filename=,1）+10 iFindEnd=InS

12、tr（iFindStart,sInfo,1）sFileName=Mid（sinfo,iFindStart,iFindEnd-iFindStart）theFile.FileName=getFileName（sFileName）theFile.FilePath=getFilePath（sFileName）取得文件类型 iFindStart=InStr（iFindEnd,sInfo,Content-Type:,1）+14 iFindEnd=InStr（iFindStart,sInfo,vbCr）theFile.FileType=Mid（sinfo,iFindStart,iFindEnd-iFindS

13、tart）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-iInf

14、oEnd-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 tStrea

15、m=nothingEnd SubPrivate Sub Class_Terminate if Request.TotalBytes0 then objForm.RemoveAll objFile.RemoveAll set objForm=nothing set objFile=nothing Data_5xsoft.Close set Data_5xsoft=nothing end ifEnd Sub Private function GetFilePath（FullPath）If FullPath Then GetFilePath=left（FullPath,InStrRev（FullPa

16、th,）Else GetFilePath=End If End function Private function GetFileName（FullPath）If FullPath Then GetFileName=mid（FullPath,InStrRev（FullPath,）+1）Else GetFileName=End If End functionEnd ClassClass FileInfo dim FormName,FileName,FilePath,FileSize,FileType,FileStart Private Sub Class_Initialize FileName=

17、FilePath=FileSize=0 FileStart=0 FormName=FileType=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另外需要一个 上传组件 文件为 zupload.asp 结束-另需要建立一个文件夹来 存放文件我是用的 formPath=./Carpic/上传图片目录 也就是说本程序的上面一个文件夹为 Carpic