ks_cls/kesion.publiccls.asp里的过滤函数

Function DelSql(Str)
  Dim SplitSqlStr,SplitSqlArr,I
  SplitSqlStr="dbcc|alter|drop|*|and|exec|or |insert|select|delete|update|count |master|truncate|declare|char|mid|chr|set |where|xp_cmdshell"
  SplitSqlArr = Split(SplitSqlStr,"|")
  For I=LBound(SplitSqlArr) To Ubound(SplitSqlArr)
   If Instr(LCase(Str),SplitSqlArr(I))>0 Then
    Response.Write "<script>alert('系统警告！\n\n1、您提交的数据有恶意字符" & SplitSqlArr(I) &";\n2、您的数据已经被记录;\n3、您的IP："&GetIP&";\n4、操作日期："&Now&";\n  Powered By Kesion.Com!');window.close();</script>"
    Response.End
   End if
  Next
  DelSql = Str
    End Function

改成

Function DelSql(Str)
  Dim SplitSqlStr,SplitSqlArr,I
  SplitSqlStr="dbcc|alter|drop|*|and |exec|or |insert|select|delete|update|count |master|truncate|declare|char|mid|chr|set |where|xp_cmdshell"
  SplitSqlArr = Split(SplitSqlStr,"|")
  For I=LBound(SplitSqlArr) To Ubound(SplitSqlArr)
   If Instr(LCase(Str),SplitSqlArr(I))>0 Then
    Response.Write "<script>alert('系统警告！\n\n1、您提交的数据有恶意字符" & SplitSqlArr(I) &";\n2、您的数据已经被记录;\n3、您的IP："&GetIP&";\n4、操作日期："&Now&";\n  Powered By Kesion.Com!');window.close();</script>"
    Response.End
   End if
  Next
  DelSql = Str
    End Function

即加一个空格

后台录入了，在注册用户中有了，但登陆一样出现同样的错误提示，但还是谢谢你

后台录入吧