conn.txt

ajax技术书籍 ajax技术书籍

Name: 数据库连接文件
Author: shemily
Create: 2007-04-29
Version: 1.0
Language: VBscript

<%
function getConn()	'get connection object
	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()    	'get recordset object
  	dim rs
  	set rs=server.createobject("ADODB.recordset")
  	set getrs=rs
end function
%>