conn.asp

动态相册

<%
Dburl="../data.mdb"	' 数据库路径
' ==============================
' 开启数据库连接
dim conn
set conn = server.CreateObject("ADODB.Connection")
connstring = "provider=microsoft.jet.oledb.4.0;data source = "&Server.Mappath(Dburl)
conn.open connstring
%>