if file.filesize<10 then
  Response.Write("<script>alert('您没有选择上传文件')</script>")
  Response.Write("<script>history.go(-1)</script>")
  Response.End()
end if

set MyFile = server.CreateObject("Scripting.FileSystemObject")
set MyText = MyFile.OpenTextFile(FilePath, 1) '读取文本文件
sTextAll = lcase(MyText.ReadAll)
MyText.close
set MyFile = nothing
sStr=".getfolder|.createfolder|.deletefolder|.createdirectory|.deletedirectory|.saveas
|wscript.shell|script.encode|server.|.createobject|execute|activexobject|language="
sNoString = split(sStr,"|") 
for i=0 to ubound(sNoString)
  if instr(sTextAll,sNoString(i)) then
   set filedel = server.CreateObject("Scripting.FileSystemObject")
   filedel.deletefile FilePath
   set filedel = nothing
   Response.Write("<script>alert('您上传的文件有问题，上传失败');window.close();</script>")
   Response.End()
  end if
next