conn.asp

千年免费电影系统 V3.0版 在程序上借鉴了很多优秀电影系统的功能

<%'连数据库
dim conn,connstr
on error resume next
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../333/data/movie.mdb")
set conn=server.createobject("adodb.connection")
if err then
  err.clear
else
	conn.open connstr
	if err then
	   err.clear
	end if
end if
%>