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

Листинг 2. Код процедур tplSimple_ProcessTag и WebClass_Start()

Private Sub tplSimple_ProcessTag( ByVal TagName As String, _
                                 TagContents As String, SendTags As 
              Boolean)            
                                 ‘ динамическая замена тэгов
                                 Select Case TagName
                                 Case “WC@TAGTITLE”
                                      TagContents = Session(“Title”)
                                 Case “WC@TAGEMAIL”
                                      TagContents = “Email:<br>” & _
                                         “<input type=’text’” & _
                                         “ value=’” & Session(“Email”) 
              & “‘“ & _                        
                                         “ name=’Email’><br>”
                                 Case “WC@TAGNAME”
                                      TagContents = “Имя:<br>” & _
                                         “<input type=’text’” & _
                                         “ value=’” & Session(“Name”) 
              & “‘“ & _                         
                                         “ name=’Name’><br>”
                                 End Select
End Sub                          
                                      
Private Sub WebClass_Start()     
                                 Session(“Title”) = _
                                         “Введите свою информацию для
              регистрации:”
                                 ‘ Выводит исходный HTML-шаблон
                                 tplSimple.WriteTemplate
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
Популярные статьи
КомпьютерПресс использует