首页 [建筑]asp怎样上传文件到指定的文件夹_并在access中记录路径

[建筑]asp怎样上传文件到指定的文件夹_并在access中记录路径

举报
开通vip

[建筑]asp怎样上传文件到指定的文件夹_并在access中记录路径[建筑]asp怎样上传文件到指定的文件夹_并在access中记录路径 asp怎样上传文件到指定的文件夹,并在access中记录路径 想上传文件到指定的文件夹,并在access中记录路径,在asp页面中显示所上传的软件,点 击直接下载功能。 注意:是上传文件,不是图片。文件包括exe、rar、zip、doc、jpg等等。 最佳答案上传文件页 index.asp 开始 ----------------------------- index.asp 代码如下 function a(htmlurl) { ...

[建筑]asp怎样上传文件到指定的文件夹_并在access中记录路径
[建筑]asp怎样上传文件到指定的文件夹_并在access中 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 路径 asp怎样上传文件到指定的文件夹,并在access中记录路径 想上传文件到指定的文件夹,并在access中记录路径,在asp页面中显示所上传的软件,点 击直接下载功能。 注意:是上传文件,不是图片。文件包括exe、rar、zip、doc、jpg等等。 最佳 答案 八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案 上传文件页 index.asp 开始 ----------------------------- index.asp 代码如下
汽车照片: " readonly>
上传文件页 index.asp 结束 ----------------------------- uploadprod.asp 选择图片上传 开始 ----------------------------- uploadprod.asp 代码如下 上传图片 <% response.buffer=true const page_level=1 %>
上传图片
选择图片:
上传文件页 uploadprod.asp 结束 ----------------------------- 判断文件以及文件是否存在则上传 uploadprod2.asp 开始 ----------------------------- uploadprod2.asp 源代码 图片上传 <% response.buffer=true session("path1")="" const page_level=1 %> <% AllowFileExtStr = "jpg,gif,png,bmp" dim ID dim upload,path,file1,filename1 set upload=new upload_5xSoft'建立上传对象 '图片上传 formPath="../Carpic/"'上传图片目录 '开始上传图片 set file1=upload.file("image") filename1=year(now())&"-"&month(now())&"-"&day(now())&"_"&hour(now())&"-"&Minute (now())&"-"&Second(now()) & right(file1.FileName,4) if file1.FileSize>0 then'如果 FileSize > 0 说明有文件数据 FileExtName=mid (file1.FileName,InStrRev (file1.FileName, ".")+1) if CheckFileType(AllowFileExtStr,FileExtName) = False 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/"&filename1 else response.write "请选择要插入的图片文件" end if session("qczp")=path1 %>

图片上传成功. <%set file1=nothing Function CheckFileType(AllowExtStr,FileExtName) Dim i,AllowArray AllowArray = Split(AllowExtStr,",") FileExtName = LCase(FileExtName) CheckFileType = False For i = LBound(AllowArray) to UBound(AllowArray) if LCase(AllowArray(i)) = LCase(FileExtName) then CheckFileType = True end if Next if FileExtName="asp" or FileExtName="asa" or FileExtName="aspx" or FileExtName="php" or FileExtName="php3" or FileExtName="php4" or FileExtName="php5" or FileExtName="exe" then CheckFileType = False end if End Function %> %> 判断文件以及文件是否存在则上传 uploadprod2.asp 结束 ----------------------------- 另外需要一个 上传组件 文件为 zupload.asp 开始 ----------------------------- 代码如下 另外需要一个 上传组件 文件为 zupload.asp 结束 ----------------------------- 另需要建立一个文件夹来 存放文件 我是用的 formPath="../Carpic/"'上传图片目录 也就是说本程序的上面一个文件夹为 Carpic

本文档为【[建筑]asp怎样上传文件到指定的文件夹_并在access中记录路径】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
下载需要: 免费 已有0 人下载
最新资料
资料动态
专题动态
is_471618
暂无简介~
格式:doc
大小:41KB
软件:Word
页数:17
分类:
上传时间:2018-04-10
浏览量:33