AbsolutePosition および CursorLocation プロパティの例 (JScript)
この例では、AbsolutePosition プロパティを使用して、レコードセットのすべてのレコードを列挙するループの進行状況を追跡する方法を示します。 CursorLocation プロパティを使用して、カーソルをクライアント カーソルに設定することで AbsolutePosition プロパティを有効にします。 次のコードを切り取り、メモ帳または別のテキスト エディターに貼り付け、AbsolutePositionJS.asp として保存します。
<!-- BeginAbsolutePositionJS -->
<%@LANGUAGE="JScript" %>
<%// use this meta tag instead of adojavas.inc%>
<!--METADATA TYPE="typelib" uuid="00000205-0000-0010-8000-00AA006D2EA4" -->
<html>
<head>
<title>AbsolutePosition and CursorLocation Properties Example (JScript)</title>
<style>
<!--
BODY {
font-family: 'Verdana','Arial','Helvetica',sans-serif;
BACKGROUND-COLOR:white;
COLOR:black;
}
.thead2 {
background-color: #800000;
font-family: 'Verdana','Arial','Helvetica',sans-serif;
font-size: x-small;
color: white;
}
.tbody {
text-align: center;
background-color: #f7efde;
font-family: 'Verdana','Arial','Helvetica',sans-serif;
font-size: x-small;
}
-->
</style>
</head>
<body>
<h1>AbsolutePosition and CursorLocation Properties Example (JScript)</h1>
<%
// connection and recordset variables
var strCnxn = "Provider='sqloledb';Data Source=" + Request.ServerVariables("SERVER_NAME") + ";" +
"Initial Catalog='Northwind';Integrated Security='SSPI';";
var rsEmployee = Server.CreateObject("ADODB.Recordset");
// display string
var strMessage;
try
{
// Open a recordset on the Employee table using
// a client-side cursor to enable AbsolutePosition property.
rsEmployee.CursorLocation = adUseClient;
rsEmployee.Open("employees", strCnxn, adOpenStatic, adLockOptimistic, adCmdTable);
// Write beginning of table to the document.
Response.Write('<table border="0" align="center">');
Response.Write('<tr class="thead2">');
Response.Write("<th>AbsolutePosition</th><th>Name</th><th>Hire Date</th></tr>");
while (!rsEmployee.EOF)
{
strMessage = "";
// Start a new table row.
strMessage = '<tr class="tbody">';
// First column in row contains AbsolutePosition value.
strMessage += "<td>" + rsEmployee.AbsolutePosition + " of " + rsEmployee.RecordCount + "</td>"
// First and last name are in first column.
strMessage += "<td>" + rsEmployee.Fields("FirstName") + " ";
strMessage += rsEmployee.Fields("LastName") + " " + "</td>";
// Hire date in second column.
strMessage += "<td>" + rsEmployee.Fields("HireDate") + "</td>";
// End the row.
strMessage += "</tr>";
// Write line to document.
Response.Write(strMessage);
// Get next record.
rsEmployee.MoveNext;
}
// Finish writing document.
Response.Write("</table>");
}
catch (e)
{
Response.Write(e.message);
}
finally
{
// 'clean up
if (rsEmployee.State == adStateOpen)
rsEmployee.Close;
rsEmployee = null;
}
%>
</html>
<!-- EndAbsolutePositionJS -->
参照
AbsolutePosition プロパティ (ADO)
CursorLocation プロパティ (ADO)
Recordset オブジェクト (ADO)