原先在台上机上可以运行的含asp的AspUpload上传组件的模块,到另一台笔记本上就不可以了 显示这个
答案:3 悬赏:10
解决时间 2021-01-19 21:05
- 提问者网友:缘字诀
- 2021-01-18 22:53
原先在台上机上可以运行的含asp的AspUpload上传组件的模块,到另一台笔记本上就不可以了 显示这个
最佳答案
- 二级知识专家网友:轻雾山林
- 2021-01-19 00:10
你的FORM表单的post属性是否为multipart/form-data?
如果实在不行,请将代码贴出来看看
如果实在不行,请将代码贴出来看看
全部回答
- 1楼网友:你哪知我潦倒为你
- 2021-01-19 02:06
是指你的<form>表单的的enctype属性
- 2楼网友:千杯敬自由
- 2021-01-19 01:23
我也遇到过楼主的问题,原因是在fileconfig.asp文件上。不是ENCTYPE="multipart/form-data" 错误。
下面我公布fileconfig.asp正确的代码:
<%
Dim UploadFilePath,UploadLimitSize,UploadfileAllowext,BrowerFilePath
UploadFilePath = "upfile/"&year(now)&"_"&month(now)&"_"&day(now)&"/"
'文件上传路径
BrowerFilePath = "/"
UploadLimitSize = 1024*50 '50M
'最大上传文件大小,单位为K
NotAllowfileext = "asp|cer|cdx|asa|htw|ida|idq|shtm|shtml|stm|printer|cgi|php|php4|cfm|aspx"
'不可以上传的文件类型
function CanUpload(Fileurl)
Fileurl = lcase("|"& Mid(Fileurl, InstrRev(Fileurl, ".") + 1)& "|")
UploadfileAllowextstr = "|"&UploadfileAllowext&"|"
if instr(UploadfileAllowextstr,Fileurl)>0 then
CanUpload = false
else
CanUpload = true
end if
end function
Function CreateFolder(Filepath)
Dim fso, f
on error resume next
Set fso = CreateObject("Scripting.FileSystemObject")
if not fso.FolderExists(Filepath) then
Set f = fso.CreateFolder(Filepath)
set f = Nothing
end if
set fso = Nothing
End Function
%>
下面我公布fileconfig.asp正确的代码:
<%
Dim UploadFilePath,UploadLimitSize,UploadfileAllowext,BrowerFilePath
UploadFilePath = "upfile/"&year(now)&"_"&month(now)&"_"&day(now)&"/"
'文件上传路径
BrowerFilePath = "/"
UploadLimitSize = 1024*50 '50M
'最大上传文件大小,单位为K
NotAllowfileext = "asp|cer|cdx|asa|htw|ida|idq|shtm|shtml|stm|printer|cgi|php|php4|cfm|aspx"
'不可以上传的文件类型
function CanUpload(Fileurl)
Fileurl = lcase("|"& Mid(Fileurl, InstrRev(Fileurl, ".") + 1)& "|")
UploadfileAllowextstr = "|"&UploadfileAllowext&"|"
if instr(UploadfileAllowextstr,Fileurl)>0 then
CanUpload = false
else
CanUpload = true
end if
end function
Function CreateFolder(Filepath)
Dim fso, f
on error resume next
Set fso = CreateObject("Scripting.FileSystemObject")
if not fso.FolderExists(Filepath) then
Set f = fso.CreateFolder(Filepath)
set f = Nothing
end if
set fso = Nothing
End Function
%>
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯