conn.asp

来自「flash如何连接后台的数据库开发」· ASP 代码 · 共 37 行

<!--#include file="adovbs.inc"-->
<%
    dim conn,strProvider
	set conn=server.CreateObject("ADODB.Connection")
	'与应用程序中常用数据库建立连接
	conn.Provider="Microsoft.jet.oledb.4.0"
	conn.open server.MapPath("mark.mdb")
	'使用系统DSN重新建立连接
	function OpenConnBySystemDSN(dsn)
	      if conn.state=adStateOpen then
		      conn.close
		  end if
		  conn.open "DSN="&dsn	  
	End Function
	'使用文件DSN重新建立连接
	function OpenConnByFileDSN(fildsn)
	      if conn.state=adStateOpen then
		      conn.close
		  end if
		  conn.open "File Name="&dsn	  
	End Function
	'将连接重定向到其他数据库
	Function RedirectDatabase(dbpath)
	      if conn.state=adStateOpen then
		      conn.close
		  end if
		  conn.open dbpath
	End function
	'打开一个新的连接
	Function AddConn(dbpath)
	    dim conn1
		set conn1=server.CreateObject("ADODB.Connection")
		conn1.Provider="Microsoft.jet.oledb.4.0"
		conn1.open dbpath
		set AddConn=conn1
	end function
%>