conn.asp

来自「本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习」· ASP 代码 · 共 19 行

<%
	dim conn
	dim connstr
	dim db
	db="dsvote.mdb"
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
	conn.Open connstr

	function rsclose
	set rs=nothing
	end function

	function connclose
	conn.close
	set conn=nothing
	end function
%>