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
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1