conn.asp

3000首FLASH源程序

<%
'	dim conn
'	dim connstr
'	dim db
	db="db/aweiljdns.asp"
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"")
	conn.Open connstr
%>