conn.asp

来自「ASP,版本,HUANYING NI DE XIAZAI ! LIANXIFAN」· ASP 代码 · 共 15 行

<%@LANGUAGE="VBSCRIPT"%>
 
<%

dim conn,connstr

Set conn=Server.CreateObject("ADODB.Connection")
connstr="Dbq="& Server.MapPath("/database/xingxing.mdb") &";driver={Microsoft Access Driver (*.mdb)}" 
conn.Open connstr

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