double arrow

Dim username, password


Sub button1_OnClick()

username=document.all.Edit1.value

password=document.all.Edit2.value

Set a=CreateObject("Scripting.FileSystemObject")

papka="d:\dostup\"

If Not (a.FolderExists(papka)) Then

A.CreateFolder(papka)

End if

user1=papka & "account.txt"

If Not(a.FileExists(user1)) Then

Set us=a.CreateTextFile(user1,True,False)

us.WriteLine("файл")

us.WriteLine("пустой")

End if

Set us=a.OpenTextFile(user1,1)

login=us.ReadLine

parol=us.ReadLine

Us.close

if username=login then

if password=parol then

MsgBox"Доступ разрешен ",0,"Идентификация"

Window.Open("d:\lab5\list3\model.html")

Else

MsgBox"Неверный пароль "

End if

Else

MsgBox"Неверное имя "

End if

'a.close

End sub

-->

</SCRIPT>

 

Сохранить документ как d:\lab5\list1\Index.html.

 

13. Подключим код для работы формы регстрации. Для этого необходимо в Блокноте или Notepad++ открыть исходный код страницы Registr.html и добавить следующий фрагмент скрипта в заголовок, то есть между тегами <head> и </head>:

<SCRIPT LANGUAGE="VBScript">

<!--Для работы с несовместимым броузерами

Dim parol,login

Dim a,papka,user1

Sub button_OnClick()

login=document.all.Edit1.value

parol=document.all.Edit2.value

Set a=CreateObject("Scripting.FileSystemObject")

papka="d:\dostup\"

If Not (a.FolderExists(papka)) Then

A.CreateFolder(papka)

End if

user1=papka & "account.txt"

Set us=a.CreateTextFile(user1,True)

Us.WriteLine(login)

Us.WriteLine(parol)

Us.close

MsgBox"Регистрация выполнена ",0,"Подтверждение регистрации"

'a.close

End sub

-->

</SCRIPT>

Сохранить документ как d:\lab5\list2\Registr.html.

14. Подключим код для работы демонстрационной модели кода Хэмминга.Для этого необходимо в Блокноте или Notepad++ открыть исходный код страницы Model.html и добавить следующий фрагмент скрипта в заголовок, то есть между тегами <head> и </head>:

<SCRIPT LANGUAGE="VBScript">

<!--Для работы с несовместимым броузерами

Dim proba 'переменная введенной строки

Dim n,i,j,a,b,h 'переменная счетчик

Dim nkod ' переменная кодированного массива

Dim kreal,ostatok,rasr,data1,sch,kontrol,poz,nomer,kolosh,k1

Dim isprav,ispravkontr,symbolkod 'переменная исправленных ошибок

Dim m 'переменная количества информационных символов

Dim k ' переменная количества контрольных символов

Dim onestring(),kodsymbol(),binarykod(),kodmassiv(),symbol() 'объявляем массивы

sub Button1_OnClick() 'кнопка "Обработать данные кодом Хэмминга"

document.all.Edit2.value="" 'очистка ячеек браузера от старой информации

document.all.Edit3.value=""

document.all.Edit4.value=""

document.all.Edit5.value=""

document.all.Edit6.value=""

document.all.Edit7.value=""

proba=document.all.Edit1.value 'сохраняем значение введенной строки

n=len(proba) 'длина введенной фразы

m=8 'размер информационного поля в битах

Redim onestring(n) ' создаем массив одиночных символов по введенной строке

Redim kodsymbol(n) ' создаем массив ASCII кодов символов

Redim binarykod(n,m) ' создаем массив двоичных ASCII кодов символов

for i=1 to n 'создаем массив с одиночными символами

onestring(i)=mid(proba,i,1)

document.all.Edit2.value=document.all.Edit2.value+CStr(onestring(i))

Next

for i=1 to n 'создаем массив ASCII кодов символов

kodsymbol(i)=asc(onestring(i))

Next

for i=1 to n 'создаем двоичный массив из массива ASCII кодов символов

for j=1 to m

binarykod(i,j)=kodsymbol(i) mod 2

kodsymbol(i)=kodsymbol(i)\2

Next

Next

k=0 'обнуляем переменную "количество контрольных бит"

do while (m+1)>(2^k-k) 'определяем количество контрольных бит

k=k+1

Loop

nkod=k+m 'определяем размер кодированного символа в двоичном системе


Сейчас читают про: