Написание кода
Данный код реализует простой веб-сайт со страницей по умолчанию и меню, расположенным вверху страницы и содержащим три ссылки: Home, About Us и ссылку на страницу регистрации. Страница регистрации содержит форму, предназначенную для заполнения, которая передает информацию в базу данных для обеспечения ежемесячной отправки новостей. Данный сайт состоит из шести файлов (см. рис. 7.5).
Рис. 7.5. Перечень файлов в каталоге
Ниже приведен демонстрационный код каждого файла.
Листинг 7.1. Default.htm (html, txt)
Листинг 7.2. HomePage.htm (html, txt)
Листинг 7.3. SignUp.htm (html, txt)
Листинг 7.4. SignUpPost.asp (html, txt)
Листинг 7.5. Top.htm (html, txt)
Листинг 7.6. UnderConstruction.htm (html, txt)
Данный код применяется к функционирующему сайту. Данные для функционирующего и тестового сайтов одинаковы, за исключением имени таблиц базы данных и URL тестового сайта. Один набор этих файлов располагается в каталоге функционирующего сайта, а другой – в каталоге тестирования. Страница newsletter.htm представляет собой лишь новостное письмо, и с ней не связан какой-либо код, поэтому здесь она не приводится.
Листинг 7.3. SignUp.htm
<HTML> <HEAD> <TITLE> Server </TITLE> </HEAD> <BODY> <% ' Set up and open the database using the DSN
Set conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") conn.open "DSN=BeerBrewersDSN;" rs.open "BeerBrewersTable", conn, 2, 3
' Add a new record using all the fields in the form rs.addnew rs("FirstName") = request("FirstName") rs("LastName") = request("LastName") rs("Address") = request("Address") rs("City") = request("City") rs("State") = request("State") rs("Zip") = request("Zip") rs("Country") = request("Country") rs("Email") = request("Email")
' Update the records and close the connection rs.update rs.close conn.close
' Always close out the objects to eliminate memory leaks SET conn = Nothing SET rs = Nothing %>
Your information has been updated. You will receive the newsletter in 4-6 weeks
Thanks!
</BODY> </HTML>
Листинг 7.4. SignUpPost.asp
<html> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="100%" height=60 border="0" cellspacing="0" cellpadding="0"> <tr> <td valign="middle" align="center"> </td> <td valign="middle" align="center"> <p align="center"><a target="main" href="homepage.htm">Home</a></p> </td> <td valign="middle" align="center"> <p align="center"><a target="main" href="https://www.beer-brewers.com/signup.htm">Sign up for the newsletter</a></p> </td> <td valign="middle" align="center"> <p align="center"><a target="main" href="https://www.beer-brewers.com/NewsLetter.htm">Current Newsletter</a></p> </td> <td valign="middle" align="center"> <p align="center"><a target="main" href="UnderConstruction.htm">About Us</a></p> </td> </tr> </table> </body> </html>
Листинг 7.5. Top.htm
<HTML> <HEAD> <TITLE> Under Construction </TITLE> </HEAD> <BODY> This page is under construction. Please come back later. </BODY> </HTML>
Листинг 7.6. UnderConstruction.htm
Данный код применяется к функционирующему сайту. Данные для функционирующего и тестового сайтов одинаковы, за исключением имени таблиц базы данных и URL тестового сайта. Один набор этих файлов располагается в каталоге функционирующего сайта, а другой – в каталоге тестирования. Страница newsletter.htm представляет собой лишь новостное письмо, и с ней не связан какой-либо код, поэтому здесь она не приводится.
