[非法字符都有什么]非法字符过滤函数

【www.bbyears.com--php函数】

Function ChkStr(InString) "非法字符过滤函数
  If InString<>"" Then
   InString=Replace(LCase(InString)," ","")
   InString=Replace(LCase(InString),";","")
   InString=Replace(LCase(InString),""","")
   InString=Replace(LCase(Instring),"--","")
   Instring=Replace(LCase(Instring),"%","")
   InString=Replace(LCase(InString),"%20","")
  
   InString=Replace(LCase(InString),"admin","")
  
   InString=Replace(LCase(InString),"and","")
   InString=Replace(LCase(InString),"or","")
  
   InString=Replace(LCase(InString),"asc","")
   InString=Replace(LCase(Instring),"chr","")
   InString=Replace(LCase(InString),"mid","")
   InString=Replace(LCase(InString),"len","")
  
   InString=Replace(LCase(InString),"select","")
   InString=Replace(LCase(InString),"insert","")
   InString=Replace(LCase(InString),"delete","")
   InString=Replace(LCase(InString),"update","")
  
  
   ChkStr=InString
  End If
  End Function
  
  Function CheckFileExt(FileExt) "检测文件扩展名
   Dim FileAccessExt,AccessExt
   AccessExt="gif,jpg,jpeg,bmp,doc,txt,png"
   FileAccessExt=Split(AccessExt,",")
   For i=LBound(FileAccessExt) to UBound(FileAccessExt)
   If LCase(FileExt)=LCase(FileAccessExt(i)) Then
   CheckFileExt=True
   Else
   CheckFileExt=False
   End If
   Next
  End Function
  
  Function CheckStr(str,IsStr) "检查非法字符和数字数据
  CheckStr=str
  If IsStr And InStr(str,",")>0 Then
   Call errmsg("提交字符中包含非法字符")
  ElseIf (Not IsStr) And (Not IsNumeric(str)) Then
   Call errmsg("提交不是数字型")
  End If
  End Function
  
  Sub errmsg(str)
   If Not IsNull(str) Then
   Response.Write(str)&"< br >"
   Call ASCpy()
   Response.End() 
   End If
  End Sub
  
  
   Sub ASCpy()
   Response.Write ""
   Response.Write ""
   Response.Write("Error happed!
Please Contract ")
   Response.Write("Name:")
   Response.Write("AloneSword")
   Response.Write(".
Thank you!!!
")
   Response.Write "

---

Copyright © By 建大网络 ™
"
   Response.Write "Last Modified：21/08/2004
"
   Response.Write("Author:AloneSword")
   Response.Write ""
  End Sub 
本文来自:http://www.111cn.net/

本文来源：http://www.bbyears.com/jiaocheng/14791.html