asp安全檢測函數

今天在做會員註冊檢驗的時候用了太多的檢測字元


突然想起是不是做個函數調用方便點

。。。。


函數不知道寫的嚴謹不

望各位高手指點，多多給點意見哈

<%
function closename(fmname)
  Dim closekey,closekeyl,closekeyi
  '下面是要過濾的字元
  closekey="'|`|~|!|*|;|^|?|$|%|&|(|)|<|>|and|or|script|onClick|onload|exec|insert|select|delete|update|count|chr|mid|master|truncate|char|declare"
  closekeyl=Split(closekey,"|") '分割|取得禁用字元
  for closekeyi=0 to Ubound(closekeyl)
  if Instr(fmname,closekeyl(closekeyi))>0 then
  Response.Write "<Script Language=JavaScript>alert('您提交的資料中含有系統禁止的字元！');history.back(-1)</Script>"
  response.end
  end if
next
end function