asp这段语句怎么写才能防范sql注入获取

<%
dim id
id=request.QueryString("id")
set conn=Server.CreateObject("ADODB.Connection")
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/baixiong_data.mdb")
conn.open
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from yangsheng where id="&request("id"),conn,1,3
rs.update
%>
就是这段语句改怎么改才能防范sql注入的漏洞

id=request.QueryString("id")  用isnumeric函数来判断ID是不是数值 

 Data Source="&Server.MapPath("data/baixiong_data.mdb")  这个最好单独写在一个文件里面 或者定义一个db ="data/baixiong_data.mdb" 然后写Data Source="&db

id=request.QueryString("id")
下面接

if not IsNumeric(id) then id=0

然后

rs.open "select * from yangsheng where id="&request("id"),conn,1,3
改为

rs.open "select * from yangsheng where id="&id,conn,1,3