conn.asp

ASP源程序采用天空软件小偷中心核件制成

<%
   'on error resume next
	dim conn
	dim dbpath
   	set conn=server.createobject("adodb.connection")
	DBPath = Server.MapPath("admin/data/www.asp")
	conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql9 ="SELECT * From system"
rs.open sql9,Conn,3,3
webname=rs("name")
weblogo=rs("logo")
webbannar=rs("banner")
bannerurl=rs("bannerurl")
rs.close
%>