<%
'---------------------数据库类型及路径定义---------------------
dim conn,connstr
connstr="DBQ="+server.mappath("mdb/ip_address.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr

sub close_conn()
  conn.close
  set conn=nothing
end sub
%>