fun.asp

来自「mlm双轨制直销系统V8.0免费版 可用于： 1、直拨、回拨电话卡公司。」· ASP 代码 · 共 38 行

<%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)," ","")
 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),"*","")
 
 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),"desc","")

 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%>