高考问答红十字会八卦:求帮改一段代码，利用SQL通用防注入系统
来源：百度文库 编辑：高考问答 时间：2024/04/25 12:56:31
求帮改一段代码，利用SQL通用防注入系统。把系统设置成只要访问就自动记录IP到数据库，请DX帮忙一下。谢谢。
<%
'set conn=server.createobject("adodb.connection")
'conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("IPdate.mdb")
'上面是access数据库的
Set conn = Server.CreateObject("ADODB.Connection")
connstr="driver={SQL Server};server=(local);UID=sa;PWD=sa;database=IPdate"'这里用的是SQL数据库,库名为IPdate
conn.Open connstr
ip=request.ServerVariables("REMOTE_ADDR")'得到IP
'在数据库里建表为IPdate 字段1为ID int型 字段2为ip char型
sql="select * from ipdate where ip='"&ip&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
if not rs.eof then '如果数据库里没有该IP,那么添加!
rs.addnew
rs("ip")=ip
rs.update
end if
rs.close
set rs=nothing
set conn=nothing
%>