<!--#INCLUDE VIRTUAL="/adovbs.inc" -->
<HTML>
<HEAD>
<TITLE>统计记录数量</TITLE>
</HEAD>
<BODY>
<%
Set adoConn = Server.CreateObject("ADODB.Connection")
adoConn.ConnectionString = "PROVIDER=SQLOLEDB;DATA SOURCE=DBServer;
UID=sa;PWD=;DATABASE=employee"
adoConn.Open
Set adoRs = Server.CreateObject("ADODB.Recordset")
adoRs.ActiveConnection = adoConn
adoRs.CursorType = adOpenStatic
adoRs.Open "select * from employee"
adoRs.AbsolutePosition = adoRs.RecordCount / 2
Do While Not adoRs.Bof
Response.Write adoRs("name") & "<BR>"
adoRs.MovePrevious
Loop
adoRs.Close
Set adoRs = Nothing
adoConn.Close
Set adoConn = nothing
%>
</BODY>
</HTML>
