dim fileformat
fileformat=mid(file.filename,instrrev(file.filename,".")+1)
if fileformat<>"gif" or fileformat<>"jpg" or fileformat<>"png" or fileformat<>"jpeg" or fileformat<>"bmp" or fileformat<>"swf" then
response.write "<Script>alert('您上传的文件是不符合格式的的文件！\n支持上传的文件格式有：*.gif、*.jpg、*.jpeg、*.png、*.bmp、*.swf');history.back()</Script>"
response.end
end if

为什么执行后页面报错:
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/edubase/upfile/sub_upload.asp, 第 4 行

感谢您的回复!!

你的file对象是否建立？