Visual Basic 6.0 упрощает разработку для Web. Часть 1. Создание первого Web-приложения

Листинг 3. Код процедур tplSimple_RegisterMe()

Private Sub tplSimple_RegisterMe()
     Dim rs As ADODB.Recordset, Connect As String
     ‘ имя базы данных и тип доступа
     Connect = “DBQ=c:\register.mdb;Driver={Microsoft Access 
Driver (*.mdb)}” 
     
     If Len(Request.Form(“Email”)) = 0 Then
          Session(“Title”) = _
               “Пожалуйста, введите свой Email адрес!”
          Session(“Email”) = “”
          Session(“Name”) = “”
     Else ‘ введен адрес E-mail
          Session(“Email”) = Request.Form(“Email”)
          Session(“Name”) = Request.Form(“Name”)
          Set rs = New ADODB.Recordset
          rs.Open “Users”, Connect, _
               adOpenDynamic, adLockOptimistic
          If Not rs.EOF Then _
               rs.Find “Email=’” & (Session(“Email”)) & “‘“
          If rs.EOF Then
               rs.AddNew
               rs!Email = Session(“Email”)
               rs!Name = Session(“Name”)
               rs.Update
              Session(“Title”) = “Вот, что Вы ввели!”
          Else
              Session(“Email”) = rs!Email
              Session(“Name”) = rs!Name
              Session(“Title”) = _
                  “Запись с таким адресом уже существует!”
          End If
     End If
     ‘ формирование новой ASP-страницы
     tplSimple.WriteTemplate
     If Not rs Is Nothing Then rs.Close
End Sub

Возврат

Наш канал на Youtube

1999 1 2 3 4 5 6 7 8 9 10 11 12
2000 1 2 3 4 5 6 7 8 9 10 11 12
2001 1 2 3 4 5 6 7 8 9 10 11 12
2002 1 2 3 4 5 6 7 8 9 10 11 12
2003 1 2 3 4 5 6 7 8 9 10 11 12
2004 1 2 3 4 5 6 7 8 9 10 11 12
2005 1 2 3 4 5 6 7 8 9 10 11 12
2006 1 2 3 4 5 6 7 8 9 10 11 12
2007 1 2 3 4 5 6 7 8 9 10 11 12
2008 1 2 3 4 5 6 7 8 9 10 11 12
2009 1 2 3 4 5 6 7 8 9 10 11 12
2010 1 2 3 4 5 6 7 8 9 10 11 12
2011 1 2 3 4 5 6 7 8 9 10 11 12
2012 1 2 3 4 5 6 7 8 9 10 11 12
2013 1 2 3 4 5 6 7 8 9 10 11 12
Популярные статьи
КомпьютерПресс использует