fun.asp

mlm双轨制直销系统V8.0免费版 可用于： 1、直拨、回拨电话卡公司。 2、保健品、药品公司。 3、在线销售商品等等。 4、其他类型用到双轨制模式的线上开盘公司。

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