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

sub close_conn1()
  conn1.close
  set conn1=nothing
end sub
%>