asp防SQL注入问题，高手请指教 - Web 开发 / ASP

我是个ASP新手，，现在做一个小项目，需要加防SQL注入攻击。
不知道该怎么实现，主要是怎么样把防注入的相关函数和我的文件结合起来呢。
请大虾多多指点

---

<% 
dim sql_leach,sql_leach_0,Sql_DATA 
sql_leach = "',and,exec,insert,select,delete,update,count,*,%,chr,mid,master,truncate,char,declare" 
sql_leach_0 = split(sql_leach,",") 

If Request.QueryString<>"" Then 
For Each SQL_Get In Request.QueryString 
For SQL_Data=0 To Ubound(sql_leach_0) 
if instr(Request.QueryString(SQL_Get),sql_leach_0(Sql_DATA))>0 Then 
Response.Write "请不要尝试进行SQL注入！" 
Response.end 
end if 
next 
Next 
End If 
%>

---

还可以过滤 
<%
function coder(str) 
  dim i 
  if isnull(str) then
  coder=""
  exit function 
end if
  for i = 1 to len(str) 
  select case mid(str,i,1) 
  case "<" : coder = coder &"&lt;"
  case ">" : coder = coder &"&gt;"  
  case "&" : coder = coder &"&amp;" 
  case chr(9) : coder = coder &"&nbsp; &nbs