admin 管理员组

文章数量: 887021


2023年12月18日发(作者：python菜鸟教程运算符)

asp怎样上传文件到指定的文件夹，并在access中记录路径

想上传文件到指定的文件夹，并在access中记录路径，在asp页面中显示所上传的软件，点击直接下载功能。

注意：是上传文件，不是图片。文件包括exe、rar、zip、doc、jpg等等。

最佳答案上传文件页 开始

-----------------------------

代码如下

汽车照片：

value="<%=session("qczp")%>" readonly>

 height:20px;">

上传文件页 结束

-----------------------------

选择图片上传 开始

-----------------------------

代码如下

"/TR/xhtml1/DTD/">

上传图片

onpaste="return false" oncontextmenu="return false">

<%

=true

const page_level=1

%>

enctype="multipart/form-data" onsubmit='return check();'>

上传图片
选择图片： #cdcdcd;">

name="Submit" style="width:45px; height:18px; border:1px solid #cdcdcd; color:#666;

background-color:#FFFFFF;">

#cdcdcd; color:#666; background-color:#FFFFFF;">

上传文件页 结束

-----------------------------

判断文件以及文件是否存在则上传 开始

-----------------------------

源代码

"/TR/xhtml1/DTD/">

图片上传

onpaste="return false" oncontextmenu="return false">

<% =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=("image")

filename1=year(now())&"-"&month(now())&"-"&day(now())&"_"&hour(now())&"-"&Minute(now())&"-"&Second(now()) & right(me,4)

if ze>0 then'如果 FileSize > 0 说明有文件数据

FileExtName=mid (me,InStrRev (me, ".")+1)

if CheckFileType(AllowFileExtStr,FileExtName) = False then

me & "

文件：不允许上传！

上传文件类型有：" & AllowFileExtStr &""

"

"

"你的IP:"&Replace(Variables("REMOTE_ADDR"),"'","")&""

"

"

"你的操作已被系统所记录！"

()

end if

h(formPath&filename1)'保存文件

'上传图片成功

path1= "/Carpic/"&filename1

else

"请选择要插入的图片文件"

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="php5" or FileExtName="exe" then

CheckFileType = False

end if

End Function

%>

%>

判断文件以及文件是否存在则上传 结束-----------------------------

另外需要一个 上传组件 文件为 开始

-----------------------------

代码如下

另外需要一个 上传组件 文件为 结束

-----------------------------

另需要建立一个文件夹来 存放文件

我是用的 formPath="../Carpic/"'上传图片目录

也就是说本程序的上面一个文件夹为 Carpic


本文标签： 上传 文件 图片 取得 表单

版权声明：本文标题：asp怎样上传文件到指定的文件夹,并在access中记录路径 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.freenas.com.cn/jishu/1702834420h432627.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。