conn.asp

1、Conn.asp 数据库连接文件 2、ipCheck.inc ip数据库查询函数 3、oc_ipRecord.asp ip记录文件（被调用文件） 4、oc_ipRec

<%
function getconn() 
  dim conn
  set conn = server.CreateObject("ADODB.Connection")
  conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("oc_ipRecord.inc") &";"
  set getconn=conn
end function

function getconn_ip() 
  dim conn
  set conn = server.CreateObject("ADODB.Connection")
  conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("worldip.asp") &";"
  set getconn_ip=conn
end function

function getrs()    
  dim rs
  set rs=server.createobject("ADODB.recordset")
  set getrs=rs
end function
%>