conn.asp

来自「1、Conn.asp 数据库连接文件 2、ipCheck.inc 」· ASP 代码 · 共 21 行

<%
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
%>