谁能帮忙做一个限制发布的asp代码（关键词、ip)

来源：百度知道 编辑：UC知道 时间：2024/05/15 16:38:52
我希望在信息发布页面加上一个限制发布的代码，凡是包含敏感字符的信息一律不允许发布，希望哪位大侠能帮忙做一个，这里说的可能不是很清楚，需要什么支持的可以加我qq:35226207

我写了个
希望能帮上你
<%
Function SafeRequest(ParaName)
Dim ParaValue
ParaValue=Request(ParaName)
if IsNumeric(ParaValue) = True then
SafeRequest=ParaValue
exit Function
elseIf Instr(LCase(ParaValue),"select ") > 0 or Instr(LCase(ParaValue),"select%20") > 0 or Instr(LCase(ParaValue),"insert ") > 0 or Instr(LCase(ParaValue),"insert%20") > 0 or Instr(LCase(ParaValue),"delete from") > 0 or Instr(LCase(ParaValue),"delete%20from") > 0 or Instr(LCase(ParaValue),"count(") > 0 or Instr(LCase(ParaValue),"drop table") > 0 or Instr(LCase(ParaValue),"drop%20table") > 0 or Instr(LCase(ParaValue),"update ") > 0 or Instr(LCase(ParaValue),"update%20") > 0 or Instr(LCase(ParaValue),"truncate ") > 0 or Instr(LCase(ParaValue),"truncate%20") > 0 or Instr(LCase(ParaValue),"asc(") > 0 or