connmdb.asp

来自「SmartCity远程数据库管理系统 本系统可使您不打开Microsoft A」· ASP 代码 · 共 16 行

<%
	dim mdbname,conn,connstr,rs
	mdbname = session("mdbname")

	connstr = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
	          "Persist Security Info=False;" &_
	     	  "Data Source=" & Server.MapPath(mdbname)

	response.buffer = false

	set conn = Server.CreateObject("ADODB.Connection")
	set rs = Server.CreateObject("ADODB.Recordset")

	conn.open connstr
	set rs = conn.OpenSchema(20)
%>