上传文件格式过滤

'----------------------------上传文件过滤--------------------
 Dim MyArray ,up
 MyArray = Array("jpg","gif","doc","pdf","ppt","txt","xls","rar","swf","fla","zip","")

 up=1
 For I = Lbound(MyArray) to Ubound(MyArray)
  if trim(Lcase(right(objUpload.FileType(objUpload.FieldName(ii)),3)))=MyArray(I) then
   up=0
   exit for
  else
   up=1
  end if
 Next
 
 if up=1 then
 
 %>
 <script language="vbscript">
  msgbox "文件格式错误！",vbInformation,"消息"
  history.back(0)
 </script>