cod_ado.inc

来自「系统结合实际需求」· INC 代码 · 共 20 行

<%
sub cod_AdoOpen(objConnection, rsCoursesList,dsn,rss)
	Set objConnection = Server.CreateObject("ADODB.Connection")
	objConnection.Open dsn
	Set rsCoursesList = Server.CreateObject("ADODB.Recordset")
	rsCoursesList.ActiveConnection = objConnection	
	rsCoursesList.CursorLocation = adUseClient
	rsCoursesList.CursorType = adOpenForwardOnly
	rsCoursesList.LockType = adLockReadOnly
	rsCoursesList.Source = rss
	rsCoursesList.Open
end sub
sub cod_AdoClose(objConnection, rsCoursesList)
	rsCoursesList.close
	objConnection.close
	set rsCoursesList = nothing
	set objConnection = nothing
end sub
%>