Пример кода пьеса
<%'' Имя файла этой программы: pages.asp%>
<%'' содержит постоянный файл таблицы ADO Adovbs.inc, который можно скопировать из каталога "/ProgramFiles/CommonFiles/System/Ado">
<!-#includefile = "adovbs.inc"->
<%''* Установите подключение к базе данных, вот база данных Oracle8.05
SetConn = server.createObject ("adodb.connection")
conn.open "Provider = msdaora.1; dataSource = yoursrcName; userId = youruserId; password = yourpassword;"
Setrs = server.createObject ("adodb.recordset") '' создать объект записи
rs.cursorlocation = Aduseclient '' Установите атрибут указателя записи
＊ ＊ Установите общее количество записей на странице и может быть скорректировано по мере необходимости
rs.pearsize = 10
'' ＊ Установите оператор запроса
Strsql = "selectId, имя, адрес, телефон из адреса orderbybyid"
Rs.openstrsql, conn, aspendstatic, adlockreadonly, adcmdtext
%>
<html>
<Голова>
<title> Пример подключения </title>
<scriptlanguage = javascript>
// Ответ при нажатии "[первая страница]":
functionPageFirst ()
{
document.myform.currentpage.selectedIndex = 0;
document.myform.currentpage.onchange ();
}
// Ответ при нажатии "[Предыдущая страница]":
functionPageprior ()
{
document.myform.currentpage.selectedIndex--;
document.myform.currentpage.onchange ();
}
// Ответ при нажатии "[следующая страница]":
functionPagenext ()
{
document.myform.currentpage.selectedIndex ++;
document.myform.currentpage.onchange ();
}
// Ответ при нажатии "[Последняя страница]":
functionPageLast ()
{
document.myform.currentpage.selectedIndex = document.myform.currentpage.length-1;
document.myform.currentpage.onchange ();
}
// Ответ при выборе «страница"? ":
functionPageCurrent ()
{//Pages.asp - имя файла этой программы
document.myform.action = 'pages.asp? Page ='+(document.myform.currentpage.selectedIndex+1)
document.myform.submit ();
}
</Script>
</Head>
<Bodybgcolor = "#ffffcc" link = "#008000" vlink = "#008000" link = "#ff0000" ">
<%Ifrs.eofthen
Response.write ("<fontsize = 2color =#000080> [Нет записи в базе данных!] </Font>")
ЕЩЕ
'' Укажите текущий номер страницы
Ifrequest ("currentpage") = "" then
rs.absolutepage = 1
Еще
rs.absolutepage = clng (request ("currentpage")))
Эндиф
'' Создать форму myform, метод получить
Response.write ("<formmethod = getName = myform>")
Response.write ("<palign = center> <fontsize = 2color =#008000>")
'' Set Page Поверните гиперссылку
ifrs.pagecount = 1then
Response.write ("[первая страница] [предыдущая страница] [следующая страница] [Последняя страница]")
еще
ifrs.absolutepage = 1then
Response.write ("[первая страница] [предыдущая страница]")