Интернет решения от доктора Боба | страница 36

>  Name:

>  Comments: </code></p><p><code>>  <P></code></p><p><code>>  <INPUT TYPE=SUBMIT VALUE="Send Comments <b>to</b> Dr.Bob"></code></p><p><code>>  </FORM></code></p><p><code>>  </BODY></code></p><p><code>>  </HTML></code></p><p>Теперь консольное (Дельфи) приложение:</p><p><code>>  <b>program</b> CGI;</code></p><p><code>>  <i>{$I-}</i></code></p><p><code>>  <i>{$APPTYPE CONSOLE}</i></code></p><p><code>>  <b>uses</b></code></p><p><code>>    DrBobCGI;</code></p><p><code>>  <b>var</b></code></p><p><code>>    guest: Text;</code></p><p><code>>    Str: <b>String</b>;</code></p><p><code>>  <b>begin</b></code></p><p><code>>    Assign(guest,'guest'); // assuming that's the guestbook</code></p><p><code>>    Append(guest);</code></p><p><code>>    <b>if</b> IOResult <> 0 <b>then</b> // open new guestbook</code></p><p><code>>    <b>begin</b></code></p><p><code>>      Rewrite(guest);</code></p><p><code>>      writeln(guest,'<HTML');</code></p><p><code>>      writeln(guest,'<BODY')</code></p><p><code>>    <b>end</b>;</code></p><p><code>>    writeln(guest,'Date: ',DateTimeToStr(Now),'<BR');</code></p><p><code>>    writeln(guest,'Name: ',Value('name'),'<BR');</code></p><p><code>>    writeln(guest,'Comments: ',Value('comments'),'<HR');</code></p><p><code>>    reset(guest);</code></p><p><code>>    writeln('Content-type: text/html');</code></p><p><code>>    writeln;</code></p><p><code>>    <b>while not</b> eof(guest) <b>do</b> // now output guestbook itself</code></p><p><code>>    <b>begin</b></code></p><p><code>>      readln(guest,Str);</code></p><p><code>>      writeln(Str)</code></p><p><code>>    <b>end</b>;</code></p><p><code>>    close(guest);</code></p><p><code>>    writeln('</BODY');</code></p><p><code>>    writeln('</HTML')</code></p><p><code>>  <b>end</b>.</code></p><image href="#any2fbimgloader3"><p>Примечание, для того, что бы упростить, мы не используем базу данных для хранения комментариев. Иначе это потребовало установки BDE на web сервере.</p></div><div class="section"><div class="title h3"><p id="autbody_0_toc485042103">3.4.3. Детектор мертвых ссылок</p></div><p>Любой серьезный web сайт и его web мастер должны всегда следить за актуальность ссылок. И если обнаружится мертвая ссылка (например другой web сайт прекратил существование), но нет никаких оправданий для внутренних мертвых ссылок. И поэтому я написал простую программу, назвав ее HTMLINKS, которая может сканировать .HTM файлы на их присутствие на локальной машине. (что бы потом загрузить их на сервер). HTM файлы из текущего каталога и всех подкаталогов рекурсивно читаются и проверяются на тег <i>"<A HREF="</i> или <i>"<FRAME SRC="</i> . Если страница локальная, то есть без префикса "http://", то файл открывается с использованием относительно пути. Если страница не находится, то мы имеем внутреннюю мертвую ссылку, которая должна быть исправлена!!</p></div></div></div> <!-- Yandex.RTB R-A-5585048-7 --> <div id="yandex_rtb_R-A-5585048-7" class="rkl"><div class="rasporka"></div></div> <script> window.yaContextCb.push(()=>{ Ya.Context.AdvManager.render({ "blockId": "R-A-5585048-7", "renderTo": "yandex_rtb_R-A-5585048-7" }) }) </script> </section> <section> <nav class="bottom-nav clr text-center ignore-select"> <ul class="pagination"> <li class=""> <a class="page-link" rel="prev" href="/r/55084?p_=35">« </a> </li> <li class=""> <a class="page-link" href="/r/55084?p_=35">35</a> </li> <li class="active"> <span class="page-link">36</span> </li> <li class=""> <a class="page-link" href="/r/55084?p_=37">37</a> </li> <li class=""> <a class="page-link" rel="next" href="/r/55084?p_=37"> »</a> </li> </ul> </nav> <div class="text-center"> <label for="reader-pagination-page mt-1"> Перейти на страницу </label> <select name="page" class="js-reader-pagination__page-select" data-target-path="/r/55084" > <option value="1" >1</option> <option value="2" >2</option> <option value="3" >3</option> <option value="4" >4</option> <option value="5" >5</option> <option value="6" >6</option> <option value="7" >7</option> <option value="8" >8</option> <option value="9" >9</option> <option value="10" >10</option> <option value="11" >11</option> <option value="12" >12</option> <option value="13" >13</option> <option value="14" >14</option> <option value="15" >15</option> <option value="16" >16</option> <option value="17" >17</option> <option value="18" >18</option> <option value="19" >19</option> <option value="20" >20</option> <option value="21" >21</option> <option value="22" >22</option> <option value="23" >23</option> <option value="24" >24</option> <option value="25" >25</option> <option value="26" >26</option> <option value="27" >27</option> <option value="28" >28</option> <option value="29" >29</option> <option value="30" >30</option> <option value="31" >31</option> <option value="32" >32</option> <option value="33" >33</option> <option value="34" >34</option> <option value="35" >35</option> <option value="36" selected>36</option> <option value="37" >37</option> <option value="38" >38</option> <option value="39" >39</option> <option value="40" >40</option> <option value="41" >41</option> <option value="42" >42</option> <option value="43" >43</option> </select> </div> </section> </div> </main> </div> <div class="sect sect-popular sect-related ignore-select"> <div class="sect-header fx-row fx-middle"> <div class="sect-title fx-1"> <i class="fa fa-puzzle-piece"></i> Книги, похожие на Интернет решения от доктора Боба </div> </div> <div class="sect-content"> <div class="relbooks-block"> <div class="relbook-item"> <a class="top-in img-resp-vert" href="/b/39093" > <div class="top-desc fx-col fx-center anim"> <div class="top-title">FreeBSD - полезные советы - Сергей Супрунов</div> <div class="top-subtitle">Программирование</div> </div> <img class="book_image lazyload" title="Читать онлайн Интернет решения от доктора Боба - Боб Сворт" data-src="/build/no_cover.f2a76ebc.jpg" alt="Интернет решения от доктора Боба - Боб Сворт"> <i class="lazyload-spinner"></i> </a> </div> <div class="relbook-item"> <a class="top-in img-resp-vert" href="/b/87808" > <div class="top-desc fx-col fx-center anim"> <div class="top-title">Программирование — вторая грамотность - Андрей Петрович Ершов</div> <div class="top-subtitle">Программирование</div> </div> <img class="book_image lazyload" title="Читать онлайн Интернет решения от доктора Боба - Боб Сворт" data-src="/build/no_cover.f2a76ebc.jpg" alt="Интернет решения от доктора Боба - Боб Сворт"> <i class="lazyload-spinner"></i> </a> </div> <div class="relbook-item"> <a class="top-in img-resp-vert" href="/b/90261" > <div class="top-desc fx-col fx-center anim"> <div class="top-title">HTML 5, CSS 3 и Web 2.0. Разработка современных Web-сайтов - Владимир Александрович Дронов</div> <div class="top-subtitle">Программирование</div> </div> <img class="book_image lazyload" title="Читать онлайн Интернет решения от доктора Боба - Боб Сворт" data-src="/uploads/books/images/00/0031953e5ce50860c67707986ec95038aaaaee4a.jpg" alt="Интернет решения от доктора Боба - Боб Сворт"> <i class="lazyload-spinner"></i> </a> </div> <div class="relbook-item"> <a class="top-in img-resp-vert" href="/b/173494" > <div class="top-desc fx-col fx-center anim"> <div class="top-title">Java 7 - Ильдар Шаукатович Хабибуллин</div> <div class="top-subtitle">Программирование</div> </div> <img class="book_image lazyload" title="Читать онлайн Интернет решения от доктора Боба - Боб Сворт" data-src="/uploads/books/images/20/2050a8e21470920021257d5b288a75603595f9a4.jpg" alt="Интернет решения от доктора Боба - Боб Сворт"> <i class="lazyload-spinner"></i> </a> </div> </div> </div> </div> </article> </div> </div> </div> </main> <aside class="sidebar"> <div class="side-box search-wrap"> <form id="quicksearch" method="get" action="/p"> <div class="search-box"> <input id="story" name="text" minlength="3" placeholder="Поиск по сайту..." type="text" autocomplete="off"> <button type="submit" class="search-btn"><span class="fa fa-search"></span></button> </div> </form> </div> <ul class="side-box side-nav to-mob"> <li><a href="/books">Книги</a> <ul class="subcat"> <li><a href="/c/55">Боевики</a></li> <li><a href="/c/21">Военное</a></li> <li><a href="/c/6">Детская литература</a></li> <li><a href="/c/74">Классика</a></li> <li><a href="/c/50">ЛитРПГ</a></li> <li><a href="/c/36">Любовная фантастика</a></li> <li><a href="/c/4">Любовные романы</a></li> <li><a href="/c/47">Попаданцы</a></li> <li><a href="/c/35">Постапокалипсис</a></li> <li><a href="/c/5">Приключения</a></li> <li><a href="/c/63">Триллеры</a></li> <li><a href="/c/1">Фантастика</a></li> <li><a href="/c/31">Фэнтези</a></li> </ul> </li> </ul> </aside> </div> <footer class="footer"> <div class="footer-in wrap-center"> <div class="footer-one fx-row"> <div class="footer-col footer-col-desc"> <div class="footer-col-title title"> 2025 Литфонд | Читать книги онлайн </div> </div> <div class="footer-col"> <div class="footer-col-title title">Контакты</div> <ul class="footer-col-content"> <li>Для связи и правообладателям: <a href="mailto:libs.pbn@gmail.com">libs.pbn@gmail.com</a> </li> </ul> </div> </div> </div> </footer> </div> </div> <script src="/build/runtime.68aa92de.js" defer></script><script src="/build/site.38e640f9.js" defer></script> <!-- Yandex.Metrika counter --> <script type="text/javascript" > (function(m,e,t,r,i,k,a){m[i]=m[i]||function(){(m[i].a=m[i].a||[]).push(arguments)}; m[i].l=1*new Date(); for (var j = 0; j < document.scripts.length; j++) {if (document.scripts[j].src === r) { return; }} k=e.createElement(t),a=e.getElementsByTagName(t)[0],k.async=1,k.src=r,a.parentNode.insertBefore(k,a)}) (window, document, "script", "https://cdn.jsdelivr.net/npm/yandex-metrica-watch/tag.js", "ym"); ym(94963560, "init", { clickmap:true, trackLinks:true, accurateTrackBounce:true }); </script> <noscript><div><img src="https://mc.yandex.ru/watch/94963560" style="position:absolute; left:-9999px;" alt="" /></div></noscript> <!-- /Yandex.Metrika counter --> </body> </html>