您所在位置：主题：[讨论]高手帮我看看怎么补图片上传漏洞
chinahejin
[专家分：0] 发布于 2006-12-21 11:10:00
这是接收页面，怎样把限制文件格式的代码放上应该怎么写？
现在所有的文件都可以上传，只要jpg gif 就可以了
<%
dim upload,file,formName,formPath,iCount,name
set upload=new upload_5xSoft ''建立上传对象
formPath="uploadimg/"
iCount=0
for each formName in upload.file ''列出所有上传了的文件
set file=upload.file(formName) ''生成五个文件对象
if file<>"jpg" then
Response.Write "图片不正确！"
end if
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
file.SaveAs Server.mappath(formPath&file.FileName) ''保存文件
response.write File.FileName&" 图片上传成功！"
name=File.FileName
iCount=iCount+1
Else
Response.Write "图片上传失败，可能您填写的图片名称或图片路径不正确！"
Response.End
end if
set file=nothing
next
set upload=nothing ''删除此对象
%>
现在所有的文件都可以上传，只要jpg gif 就可以了
<%
dim upload,file,formName,formPath,iCount,name
set upload=new upload_5xSoft ''建立上传对象
formPath="uploadimg/"
iCount=0
for each formName in upload.file ''列出所有上传了的文件
set file=upload.file(formName) ''生成五个文件对象
if file<>"jpg" then
Response.Write "图片不正确！"
end if
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
file.SaveAs Server.mappath(formPath&file.FileName) ''保存文件
response.write File.FileName&" 图片上传成功！"
name=File.FileName
iCount=iCount+1
Else
Response.Write "图片上传失败，可能您填写的图片名称或图片路径不正确！"
Response.End
end if
set file=nothing
next
set upload=nothing ''删除此对象
%>
