db_open.asp

来自「一个用vb开发的比较好的聊天系统」· ASP 代码 · 共 9 行

<%
  connstring="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data.mdb")
  set conn=server.createobject("adodb.connection")
  conn.open connstring
  function db_close()
    conn.close
    set conn=nothing
  end function
 %>