conn.asp

Flash+XML+ASP作品展示源码程序

<%
dataname="message.mdb"
'数据库名称
set conn = Server.Createobject("ADODB.Connection")
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(dataname)
conn.Mode = 3
conn.open
function closeDB()
conn.close
set conn = nothing
end function
%>