cnkbbs被过滤的非法字符

cnkbbs里的过滤的非法字符。我认为比较全的，大家看什么有什么办法上传吗？

Sub ChkHackWord(fname)
 Dim MyFile,sFile,MyText,sTextAll,sStr,sNoString,dFile
 set MyFile = server.CreateObject ("Scripting.FileSystemObject")
 sFile = Server.MapPath(fname) 
 set MyText = MyFile.OpenTextFile (sFile,1) '读取文本文件
 sTextAll = lcase(MyText.ReadAll):MyText.close
 '判断用户文件中的危险操作
 sStr ="34|.getfolder|.createfolder|.deletefolder|.createdirectory|.deletedirectory|.saveas|wscript.shell|script.encode|script|execute|etucexe|encode|unencode|function|noitcnuf|response|esnopser|write|etirw|request|form|mrof|dim|html|lmth|const|server|createobject|mappath|servervariables|createtextfile|eval|lave|cmd|dmc"
 sNoString=split(sStr,"|")
 for i=1 to sNoString(0)
  if instr(sTextAll,sNoString(i))<>0 then
   Set dFile = MyFile.GetFile(sFile)
   dFile.Delete True '删除文件
   Call RecordEvent("企图上传木马",Request.ServerVariables("SCRIPT_NAME"))
   Response.write "<span style=""font-size: 9pt"">警告：不要上传马马，已记录你的操作，如继续攻击，后果自负![ <a href=# οnclick=history.go(-1)>重新上传</a> ]</span>"
   Response.end
  end if
 next
End Sub