AbsolutePosition 和 CursorLocation 属性示例 (JScript)
此示例演示 AbsolutePosition 属性如何跟踪枚举 Recordset 的所有记录的循环进度。 它使用 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)
记录集对象 (ADO)
反馈
https://aka.ms/ContentUserFeedback。
即将发布:在整个 2024 年,我们将逐步淘汰作为内容反馈机制的“GitHub 问题”,并将其取代为新的反馈系统。 有关详细信息,请参阅:提交和查看相关反馈