conn.asp

这是我根据动网新闻核心自行设计的校园新闻系统

<%
	dim conn
	dim connstr
	dim db
	db="../DataBase/VOTE_DATA.mdb"
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
	conn.Open connstr
	
	'释放Rs对象
	function rsclose
		set rs=nothing
	end function
	
	'关闭并释放数据库连接
	function connclose
		conn.close
		set conn=nothing
	end function

	dim userid
	userid="蓝滨工作室"
%>