conn.asp

ASP仿QQ程序 web版的

<%
dim db, conn, connstr

db="db\dgcn.mdb"
set conn=server.Createobject("ADODB.Connection")
connstr="Provider = Microsoft.Jet.OLEDB.4.0; Data Source ="& Server.MapPath(db)
'onnstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.open connstr
'response.write server.mappath(db)

%>