上传图片总显示格式不对,如何解决
提问前先申明下，我是刚介入asp的初学者，提的问题可能比较幼稚，还请各位学长不要笑我啊。我在网上下了个源程序，上传图片时总是说我的格式不对，格式明明是对的，经过几天几夜的反复推敲，终于找到了问题的所在，是因为程序中少了对上传文件格式的判断语句，我参照了网上多种方法补上缺少的语句但都未成功，还请诸位学长多多指教，程序如下：
<%
set fs=server.CreateObject("scripting.filesystemobject")
set upload=new upload_5xSoft ''建立上传对象
'--------将日期转化成文件名--------
formPath="../../upimages/"
aformPath="newsuppic/"
''在目录后加(/)
if right(formPath,1)<>"/" then formPath=formPath&"/"
if right(aformPath,1)<>"/" then aformPath=aformPath&"/"
set file=upload.file("picture") ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
if file.filesize>200000 then
response.write"<SCRIPT language=JavaScript>alert('上传图片大于规定(200K),请改变文件大小后重新上传!');"
response.write"javascript:history.back(-1)</SCRIPT>"
response.end
end if
FileExt = Mid(file.Filename, InStrRev(file.Filename, ".")+1)
FileExt = FixName(FileExt)
If Not ( CheckFileExt(FileExt) and CheckFileType(File.FileType) ) Then
response.write"<SCRIPT language=JavaScript>alert('上传图片只支持 gif|jpg|jpeg|bmp|png 图象文件!');"
response.write"javascript:history.back(-1)</SCRIPT>"
response.end
end if
thename=aformPath&MakedownName()&"."&FileExt
file2=server.MapPath(file2)
if fs.FileExists(file2) then
fs.DeleteFile file2,true
end if
'开始判断会员图片目录是否存在
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(Server.MapPath(""&formPath&""&aformPath&"")) Then'如果存在就直接保存图片
file.SaveAs Server.mappath(formPath&thename)
Else
objFSO.CreateFolder(Server.MapPath(""&formPath&""&aformPath&""))'不存在就建一个目录
file.SaveAs Server.mappath(formPath&thename)
End If
Set objFSO = Nothing '释放 FileSystemObject 对象实例内存空间
imgs=thename
else
response.write"<SCRIPT language=JavaScript>alert('上传图片为空或图片太大!');"
response.write"javascript:history.back(-1)</SCRIPT>"
response.end
end if
response.write"<font color=""red"">上传标题图片成功</font>"
%>
补充下，如果删掉程序中的红色部分，上传很成功，但是没有了文件的限制，变成了什么文件都可以上传了，请学长指点下我该如何添加这个缺少的语句。
