Объект Data Control

База данных сотрудников

Номер
Фамилия
Место жительства
Должность

Программные коды для создания Web-страницы при просмотре файла с данными

<HTML>
  <HEAD>
    
      <TITLE>Объект Data Control</TITLE>
<SCRIPT LANGUAGE="VBScript">
    Sub Kn1_OnClick
           Document.Base1.Recordset.MoveNext  ' Обращение к текстовому файлу
        If Document.Base1.Recordset.EOF Then  ' Проверка конца файла
           Document.Base1.Recordset.MoveLast  ' Метод MoveLast - просмотр следующей записи
        End If
    End Sub

Sub Kn2_OnClick
          Document.Base1.Recordset.MovePrevious
       If Document.Base1.Recordset.BOF Then
          Document.Base1.Recordset.MoveFirst
       End If
    End Sub
</SCRIPT>
</HEAD>
<BODY>

<OBJECT ID="Base1" CLASSID="CLSID:333C7BC4-460F-11D0-BC04-0080C7055A83">
         <PARAM NAME="DataURL" VALUE="Dop_files\data.txt">
     </OBJECT>
 
    <INPUT ID="lngНомер" TYPE="TEXT" SIZE=2 DATASRC=#Base1 DATAFLD="Номер">Номер<BR>
    <INPUT ID="strФамилия" TYPE="TEXT" SIZE=44 DATASRC=#Base1 DATAFLD="Фамилия">Фамилия<BR>
    <INPUT ID="strЖительство" TYPE="TEXT" SIZE=44 DATASRC=#Base1 DATAFLD="Жительство">Место жительства<BR>
    <INPUT ID="strДолжность" TYPE="TEXT" SIZE=44 DATASRC=#Base1 DATAFLD="Должность">Должность<BR>
    <INPUT TYPE="BUTTON" NAME="Kn1" VALUE="Следующая - ->">
    <INPUT TYPE="BUTTON" NAME="Kn2" VALUE= "<- Предыдущая">

<div align="center"><a href="http://www.ucoz.ru/" title="Создать сайт бесплатно"><img style="margin:0;padding:0;border:0;" alt="Hosted by uCoz" src="http://s201.ucoz.net/img/cp/8.gif" width="80" height="15" title="Hosted by uCoz" /></a><br /></div>
</body>
</html>