conn.inc

来自「ajax技术书籍 ajax技术书籍」· INC 代码 · 共 15 行

<%
function getConn()
	dim conn
	set conn = server.CreateObject("ADODB.Connection")
	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath(dbstr&"Data/users.mdb") &";"

	set getConn = conn
end function

function getrs()    
  dim rs
  set rs=server.createobject("ADODB.recordset")
  set getrs=rs
end function
%>