conn.asp

简单留言板

<%
	dim conn
    set conn=Server.CreateObject("adodb.connection")
    conn.open "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("liuyan.mdb")
	function GetRS(strSQL)
		dim rs
		set rs=Server.CreateObject("adodb.recordset")
		rs.open strSQL,conn,3,3
		set GetRS=rs
	end function
%>