conn.asp

网上有名留言板20120版,非常不错~

<%
'数据库连接

	dim conn
	dim connstr
	dim db
	'更改数据库名字
	db="database/uming_gb20120.mdb"
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"")
	conn.Open connstr
     '   on error resume next
  	sub endConnection()
      		conn.close
      		set conn=nothing
  	end sub
'结束
%>