asp怎样上传文件到指定的文件夹并在access中记录路径.docx
- 文档编号:4599281
- 上传时间:2022-12-07
- 格式:DOCX
- 页数:13
- 大小:18.38KB
asp怎样上传文件到指定的文件夹并在access中记录路径.docx
《asp怎样上传文件到指定的文件夹并在access中记录路径.docx》由会员分享,可在线阅读,更多相关《asp怎样上传文件到指定的文件夹并在access中记录路径.docx(13页珍藏版)》请在冰豆网上搜索。
asp怎样上传文件到指定的文件夹并在access中记录路径asp怎样上传文件到指定的文件夹,并在access中记录路径想上传文件到指定的文件夹,并在access中记录路径,在asp页面中显示所上传的软件,点击直接下载功能。
注意:
是上传文件,不是图片。
文件包括exe、rar、zip、doc、jpg等等。
最佳答案上传文件页index.asp开始-index.asp代码如下functiona(htmlurl)varwin=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);汽车照片:
inputtype=textname=qczpclass=zc_inputmaxlength=100value=readonly上传文件页index.asp结束-uploadprod.asp选择图片上传开始-uploadprod.asp代码如下上传图片functioncheck()varmf=document.up;if(mf.image.value.length4)alert(请选择需要上传的图片.);mf.image.focus();returnfalse;returntrue;if(window.Event)document.captureEvents(Event.MOUSEUP);functionnocontextmenu()event.cancelBubble=trueevent.returnValue=false;returnfalse;functionnorightclick(e)if(window.Event)if(e.which=2|e.which=3)returnfalse;elseif(event.button=2|event.button=3)event.cancelBubble=trueevent.returnValue=false;returnfalse;document.oncontextmenu=nocontextmenu;/forIE5+document.onmousedown=norightclick;/forallothers上传图片选择图片:
上传文件页uploadprod.asp结束-判断文件以及文件是否存在则上传uploadprod2.asp开始-uploadprod2.asp源代码图片上传if(window.Event)document.captureEvents(Event.MOUSEUP);functionnocontextmenu()event.cancelBubble=trueevent.returnValue=false;returnfalse;functionnorightclick(e)if(window.Event)if(e.which=2|e.which=3)returnfalse;elseif(event.button=2|event.button=3)event.cancelBubble=trueevent.returnValue=false;returnfalse;document.oncontextmenu=nocontextmenu;/forIE5+document.onmousedown=norightclick;/forallothers0then如果FileSize0说明有文件数据FileExtName=mid(file1.FileName,InStrRev(file1.FileName,.)+1)ifCheckFileType(AllowFileExtStr,FileExtName)=Falsethenresponse.Writefile1.FileName&文件:
不允许上传!
上传文件类型有:
&AllowFileExtStr&response.Writeresponse.Write你的IP:
&Replace(Request.ServerVariables(REMOTE_ADDR),)&response.Writeresponse.write你的操作已被系统所记录!
response.End()endiffile1.SaveAsServer.mappath(formPath&filename1)保存文件上传图片成功path1=/Carpic/&filename1elseresponse.write请选择要插入的图片文件endifsession(qczp)=path1%图片上传成功.alert(图片上传成功!
);opener.document.zc.qczp.value=;window.close();%setfile1=nothingFunctionCheckFileType(AllowExtStr,FileExtName)Dimi,AllowArrayAllowArray=Split(AllowExtStr,)FileExtName=LCase(FileExtName)CheckFileType=FalseFori=LBound(AllowArray)toUBound(AllowArray)ifLCase(AllowArray(i)=LCase(FileExtName)thenCheckFileType=TrueendifNextifFileExtName=asporFileExtName=asaorFileExtName=aspxorFileExtName=phporFileExtName=php3orFileExtName=php4orFileExtName=php5orFileExtName=exethenCheckFileType=FalseendifEndFunction%判断文件以及文件是否存在则上传uploadprod2.asp结束-另外需要一个上传组件文件为zupload.asp开始-代码如下dimData_5xsoftClassupload_5xsoftdimobjForm,objFile,VersionPublicfunctionForm(strForm)strForm=lcase(strForm)ifnotobjForm.exists(strForm)thenForm=elseForm=objForm(strForm)endifendfunctionPublicfunctionFile(strFile)strFile=lcase(strFile)ifnotobjFile.exists(strFile)thensetFile=newFileInfoelsesetFile=objFile(strFile)endifendfunctionPrivateSubClass_InitializedimRequestData,sStart,vbCrlf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,theFiledimiFileSize,sFilePath,sFileType,sFormValue,sFileNamedimiFindStart,iFindEnddimiFormStart,iFormEnd,sFormNameVersion=上传程序Version2.0setobjForm=Server.CreateObject(Scripting.Dictionary)setobjFile=Server.CreateObject(Scripting.Dictionary)ifRequest.TotalBytes1thenExitSubsettStream=Server.CreateObject(adodb.stream)setData_5xsoft=Server.CreateObject(adodb.stream)Data_5xsoft.Type=1Data_5xsoft.Mode=3Data_5xsoft.OpenData_5xsoft.WriteRequest.BinaryRead(Request.TotalBytes)Data_5xsoft.Position=0RequestData=Data_5xsoft.ReadiFormStart=1iFormEnd=LenB(RequestData)vbCrlf=chrB(13)&chrB(10)sStart=MidB(RequestData,1,InStrB(iFormStart,RequestData,vbCrlf)-1)iStart=LenB(sStart)iFormStart=iFormStart+iStart+1while(iFormStart+10)0thensettheFile=newFileInfo取得文件名iFindStart=InStr(iFindEnd,sInfo,filename=,1)+10iFindEnd=InStr(iFindStart,sInfo,1)sFileName=Mid(sinfo,iFindStart,iFindEnd-iFindStart)theFile.FileName=getFileName(sFileName)theFile.FilePath=getFilePath(sFileName)取得文件类型iFindStart=InStr(iFindEnd,sInfo,Content-Type:
1)+14iFindEnd=InStr(iFindStart,sInfo,vbCr)theFile.FileType=Mid(sinfo,iFindStart,iFindEnd-iFindStart)theFile.FileStart=iInfoEndtheFile.FileSize=iFormStart-iInfoEnd-3theFile.FormName=sFormNameifnotobjFile.Exists(sFormName)thenobjFile.addsFormName,theFileendifelse如果是表单项目tStream.Type=1tStream.Mode=3tStream.OpenData_5xsoft.Position=iInfoEndData_5xsoft.CopyTotStream,iFormStart-iInfoEnd-3tStream.Position=0tStream.Type=2tStream.Charset=gb2312sFormValue=tStream.ReadTexttStream.CloseifobjForm.Exists(sFormName)thenobjForm(sFormName)=objForm(sFormName)&,&sFormValueelseobjForm.AddsFormName,sFormValueendifendifiFormStart=iFormStart+iStart+1wendRequestData=settStream=nothingEndSubPrivateSubClass_TerminateifRequest.TotalBytes0thenobjForm.RemoveAllobjFile.RemoveAllsetobjForm=nothingsetobjFile=nothingData_5xsoft.ClosesetData_5xsoft=nothingendifEndSubPrivatefunctionGetFilePath(FullPath)IfFullPathThenGetFilePath=left(FullPath,InStrRev(FullPath,)ElseGetFilePath=EndIfEndfunctionPrivatefunctionGetFileName(FullPath)IfFullPathThenGetFileName=mid(FullPath,InStrRev(FullPath,)+1)ElseGetFileName=EndIfEndfunctionEndClassClassFileInfodimFormName,FileName,FilePath,FileSize,FileType,FileStartPrivateSubClass_InitializeFileName=FilePath=FileSize=0FileStart=0FormName=FileType=EndSubPublicfunctionSaveAs(FullPath)dimdr,ErrorChar,iSaveAs=trueiftrim(fullpath)=orFileStart=0orFileName=orright(fullpath,1)=/thenexitfunctionsetdr=CreateObject(Adodb.Stream)dr.Mode=3dr.Type=1dr.OpenData_5xsoft.position=FileStartData_5xsoft.copytodr,FileSizedr.SaveToFileFullPath,2dr.Closesetdr=nothingSaveAs=falseendfunctionEndClass另外需要一个上传组件文件为zupload.asp结束-另需要建立一个文件夹来存放文件我是用的formPath=./Carpic/上传图片目录也就是说本程序的上面一个文件夹为Carpic
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- asp 怎样 上传 文件 指定 文件夹 access 记录 路径
![提示](https://static.bdocx.com/images/bang_tan.gif)