动态页隐藏IP地址

动态页隐藏IP地址 1:连接数据库 <%set conn =server.CreateObject("adodb.connection") '连接到数据库所在的服务器 sql="Provider=Microsoft.Jet.oledb.4.0;data Source="&Server.MapPath("tiezi.mdb") '指令的功能找到要连接的数据库地址及名称 conn.Open sql '执行第3行的指令 %> 2:index.asp页 <%set rs=server.CreateObject("adodb.recordset") sql="select * from asp order by shij desc" rs.open sql,conn,1,1 if rs.recordcount=0 then %> IP: <%if rs("ip")<>"" then%> <%arr=split(rs("ip"),".") response.Write(arr(0)&"."&arr(1)&"."&arr(2)&".*") %> <%else%> 未知 <%end if%> sql="insert into asp(biaot,neir,nic,ip) values('"&n1&"','"&n2&"','"&session("zh")&"','"&ip&"')"