⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 day6_2.html

📁 《Perl CGI 6天入门》
💻 HTML
字号:
🔍 
<html>
<!-- #BeginTemplate "/Templates/backend.dwt" -->

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">

<!--

a:link {  color: blue; text-decoration: none}

a:visited {  color: purple; text-decoration: none}

a:hover {  color: #CC0033; text-decoration: underline}

.smallfont {  font-family: "宋体"; font-size: 9pt; line-height: 12pt}

-->

</style>
<!-- #BeginEditable "doctitle" -->
<title>CGI入门教程</title>
<!-- #EndEditable -->
</head>

<body topmargin="1" leftmargin="2">

<p><!-- #BeginEditable "content" --> </p>

<p><span class="smallfont"><b>CGI入门教程</b><br>
<font color="#FF0000">第一页</font> <a href="day6_1.html">设置口令</a><br>
<font color="#FF0000">第二页</font> 计数器</span></p>

<p><span class="smallfont">[<a href="day1_1.html">第1天</a>][<a href="day2_1.html">第2天</a>][<a
href="day3_1.html">第3天</a>][<a href="day4_1.html">第4天</a>][<a href="day5_1.html">第5天</a>][第6天][<a
href="../perl.htm">返回</a>]</span></p>

<p><span class="smallfont"><b>第二页：计数器</b></span></p>

<p><span class="smallfont">下面是一个简单的计数器程序：</span></p>

<p><span class="smallfont">#******** BEGIN BODY ******** <br>
open (GETCOUNT,&quot;&lt;count.log&quot;);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
#open count log for input <br>
$counter=&lt;GETCOUNT&gt;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
#assign contents of file to $counter <br>
close (GETCOUNT);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
#close access to file </span></p>

<p><span class="smallfont">$counter++;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; #increase $counter by 1. <br>
print &quot;$counter hits&quot;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
#print number of hits to users screen </span></p>

<p><span class="smallfont">open (PUTCOUNT,&quot;&gt;count.log&quot;);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
#open count log for output <br>
print PUTCOUNT ($counter);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
#replace old counter value with new one <br>
close PUTCOUNT;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
# close access to file </span></p>

<p><span class="smallfont">#******** END BODY ********* </span></p>

<p><span class="smallfont">如果用SUBMIT按钮，当前页将消失，出现程序的输出页。为了在当前页上显示点击数，需要有一个页面转载时执行的程序，然后把结果潜入相同页面上。这种方法叫做Server 
Side Include(SSI)。</span></p>

<p><span class="smallfont">注意：不是所有的web服务器都支持SSI。有些只在页面文件以&quot;.shtml&quot;或&quot;.html-ssi&quot;结束才起作用，有些由于安全原因完全屏蔽了这种功能。</span></p>

<p><span class="smallfont">下面是代码的工作过程：</span>

<ul>
  <li><span class="smallfont">把上面的代码拷贝到一个新的'template.txt'文件中，命名为count.cgi。</span></li>
  <li><span class="smallfont">建立一个包含起始点击数的文件，命名为count.log。</span></li>
  <li><span class="smallfont">新建一个HTML页面。</span></li>
  <li><span class="smallfont">插入&lt;!--#exec cgi=&quot;count.cgi&quot;--&gt;。</span></li>
  <li><span class="smallfont">把上面3个文件上传到服务器上。</span></li>
  <li><span class="smallfont">Telnet到perltour文件夹中，敲入chmod a+rx count.cgi。</span></li>
  <li><span class="smallfont">浏览这个页面，重载几次，可以看到数字的增加。</span></li>
</ul>

<p><span class="smallfont">如果不起作用，直接浏览count.cgi看它是否工作。一旦CGI起作用，把页面文件重命名为.shtml扩展名。</span></p>
</body>
<!-- #EndTemplate -->
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -