conn.asp

来自「超级留言簿（dxxo） 本留言参考了网上很多留言簿改进而来」· ASP 代码 · 共 18 行

<%
'数据库连接

	dim conn
	dim connstr
	dim db
	'更改数据库名字
	db="database/book.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
'结束
%>