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 'определяем размер кодированного символа в двоичном системе