<%@ Language=VBScript %> Вход в систему тестирования <% If Not Request.Form("Message") = "True" Then 'Данные еще не введены, следует вывести форму. %>

Введите новый пароль. Его длина не должна превышать 10 символов (иначе он будет обрезан)

Новый пароль:
Еще раз:

 

<% Else 'Выше кнопка HIDDEN устанавливает значение переменной Message в True. 'Данные введены в форму. 'Получение данных из формы. Они будут помещены в базу данных. dim strPass1, strPass2, strCommand strPass1 = Request.Form("password1") strPass2 = Request.Form("password2") if strPass1<>strPass2 Then Response.Write("

Допущена ошибка при наборе. Пароли не совпадают. Повторите ввод еще раз.

") %>
<% else ConnectionString = "DSN=tests;DBQ=C:\InetPub\wwwroot\sources\zonna\test.mdb;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;providerName=System.Data.Odbc" Set objConn = server.createobject("ADODB.Connection") objConn.Open(ConnectionString) 'начало цикла выборки записей из БД и сверки пароля '--------------------------------------------------------------------------------------- ch = session("stud") strQuery = "SELECT * FROM passwords" strQuery = strQuery & " WHERE id_stud=" & ch 'Response.Write("

"& ch&"

") Set objRS = objConn.Execute(strQuery) '------------------------------------------------------------------------------------- 'On Error Resume Next strCommand = "UPDATE passwords SET password= '"& strPass1 & "' WHERE id_stud= " & cint(ch) & " ; " objConn.Execute strCommand 'ошибка Response.Write("

Пароль успешно изменен.

") 'Закрытие подключения. objConn.Close %> <% end if end if %>