查看完整版本: PHP网上调查系统

lily 2007-8-2 13:29

PHP网上调查系统

             <p><P><SPAN class=unnamed3><a href="http://www.phpchina.com/javascript:;" onClick="javascript:tagshow(event, 'PHP');" target="_self"><u><strong>PHP</strong></u></a>网上调查系统 <BR>&nbsp;&nbsp;&nbsp;这是一个简单的投票程序,对于刚学PHP和朋友来说是一个很不错的入门程序。在这里给大家介绍一下,希望能对朋友们有所帮助。 <BR>该系统是由以下四个文件组成的:有<a href="http://www.phpchina.com/javascript:;" onClick="javascript:tagshow(event, 'HTML');" target="_self"><u><strong>HTML</strong></u></a>调查表单的survey.htm,实现调查功能的survey.php,记录调查项目的data.txt和记录调查结果的survey.txt.其中data.txt和survey.txt我们可以用NOTEPAD分别创建之,并传到程序目录下。文件data.txt中存的是要进行调查的项目,注意每个项目应占一行;而survey.txt则可以是一个什么内容也没有的空文件。 <BR>Survey.htm的<a href="http://www.phpchina.com/javascript:;" onClick="javascript:tagshow(event, '%B4%FA%C2%EB');" target="_self"><u><strong>代码</strong></u></a>可以如如下所示: <BR>&lt;html&gt; <BR>&lt;head&gt; <BR>&lt;title&gt;survey&lt;/title&gt; <BR>&lt;/head&gt; <BR>&lt;body&gt; <BR>&lt;form method="POST" action="survey.php"&gt; <BR>&nbsp;&nbsp;&lt;p&gt;&lt;input type="radio" value="0" name="vote"&gt;调查项目一&lt;/p&gt; <BR>&nbsp;&nbsp;&lt;p&gt;&lt;input type="radio" name="vote" value="1"&gt;调查项目二&lt;/p&gt; <BR>&nbsp;&nbsp;&lt;p&gt;&lt;input type="radio" name="vote" value="2"&gt;调查项目三&lt;/p&gt; <BR>&nbsp;&nbsp;&lt;p&gt;&lt;input type="radio" name="vote" value="3"&gt;调查项目四&lt;/p&gt; <BR>&nbsp;&nbsp;&lt;p&gt;&lt;input type="radio" name="vote" value="4"&gt;调查项目五&lt;/p&gt; <BR>&nbsp;&nbsp;&lt;p&gt;&lt;input type="hidden" name="go"&nbsp;&nbsp;value="1"&gt; <BR>&nbsp;&nbsp;&lt;p&gt;&lt;input type="submit" value="提交" name="B1"&gt;&lt;/p&gt; <BR>&nbsp;&nbsp;&lt;a href="http://www.phpchina.com/survey.php?result=1"&gt;查看结果&lt;/a&gt; <BR>&lt;/form&gt; <BR>&lt;/body&gt; <BR>&lt;/html&gt; <BR>注意文件data.txt中的调查项目与上面的调查项目在个数和排列顺序必须保持一致,否则会出错或调查的结果不准确。同时为了将调查结果显示成条形图形式,应该准备若干种不同颜色的条形图片。如:0.gif,1.gif,2.gif,3.gif,4.gif等. <BR>以下是实现调查功能的survey.php代码: <BR>&lt;? <BR>&nbsp;&nbsp;&nbsp;&nbsp;$data="data.txt"; <BR>&nbsp;&nbsp;&nbsp;&nbsp;$votes="survey.txt"; <BR>&nbsp;&nbsp;&nbsp;&nbsp;$dataf=file($data);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;/*读出调查项目文件中的项目*/ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$file_votes=fopen($votes, "r"); <BR>&nbsp;&nbsp;$line_votes=fgets($file_votes, 255);&nbsp;&nbsp;/*读出已经记录的调查结果*/ <BR>&nbsp;&nbsp;fclose($file_votes); <BR>&nbsp;&nbsp;$single_vote=explode("|", $line_votes); /* 并将数据按指定的字串切开,再将字串传回到数组变量中&nbsp;&nbsp;*/ <BR>&nbsp;&nbsp;&nbsp;if ($result!=1)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;/*如果已经接受了调查*/ <BR>&nbsp;&nbsp;&nbsp;{ <BR>&nbsp;&nbsp;&nbsp;&nbsp;$file_votes=file($votes, "r"); <BR>&nbsp;&nbsp;&nbsp;&nbsp;if ($REMOTE_ADDR == $file_votes[1])&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;/*检查是不是同一个人*/ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;echo "&lt;center&gt;&lt;font color=red&gt;您已投过票了,谢谢您的参与!&lt;/font&gt;&lt;/center&gt;"; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;exit; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} <BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;/*如果IP不重复,则执行以下程序*/ <BR>&nbsp;&nbsp;&nbsp;&nbsp;$ficdest=fopen($votes, "w"); <BR>&nbsp;&nbsp;&nbsp;&nbsp;for ($i=0; $i&lt;=count($dataf)-1; $i++) <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if ($i == $vote) <BR>&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;/*判断选择了哪个项目*/ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$single_vote[$i]+=1; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fputs($ficdest, "$single_vote[$i]|"); /*将数据写回文件*/ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fputs($ficdest, "\n$REMOTE_ADDR");/* //写入投票者IP*/ <BR>&nbsp;&nbsp;&nbsp;&nbsp;fclose($ficdest); <BR>&nbsp;&nbsp;&nbsp;&nbsp;$result=1; /*投票成功*/ <BR>&nbsp;&nbsp;} <BR><BR>&nbsp;&nbsp;/*写入投票结果后并显示投票结果*/ <BR>&nbsp;&nbsp;if ($result==1) <BR>&nbsp;&nbsp;{ <BR>&nbsp;&nbsp;&nbsp;echo "&lt;table cellpadding=10&gt;"; <BR>&nbsp;&nbsp;&nbsp;for ($i=0; $i&lt;=count($dataf)-1; $i++) <BR>&nbsp;&nbsp;&nbsp;&nbsp;{ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;/*取得投票总数*/ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$tot_votes+=$single_vote[$i]; <BR>&nbsp;&nbsp;&nbsp;&nbsp;} <BR>&nbsp;&nbsp;&nbsp;for ($i=0; $i&lt;=count($dataf)-1; $i++) <BR>&nbsp;&nbsp;&nbsp;&nbsp;{ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$imag=strval($i).".gif";/*判断用哪种条形图片来显示统计结果*/ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$stat[$i]=$single_vote[$i]/$tot_votes*100;&nbsp;&nbsp;/*计算百分比*/ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$scla=$stat[$i]*5;/*条形图和放大倍数,这里是安百分数的5倍的相素的宽度来显示的*/ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;echo "&lt;tr&gt;&lt;td&gt;&lt;li&gt;&lt;font face=Verdana size=2&gt;"; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;echo "$dataf[$i]&lt;/font&gt;&lt;/td&gt;&lt;td align=left&gt;&lt;font face=Verdana size=2&gt;"; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;echo "&lt;img src=http://www.phpchina.com/\"$imag\" height=20 width=$scla align=middle&gt;&amp;nbsp;";/*输出条形码图*/ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;printf("%.1f", "$stat[$i]"); <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;echo "%&lt;/font&gt;&lt;/td&gt;&lt;td align=center&gt;&lt;font face=Verdana size=2&gt;"; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;/*输出本栏目投票数*/ <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;echo "$single_vote[$i]&lt;/font&gt;"; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;echo "&lt;/td&gt;&lt;/tr&gt;"; <BR>&nbsp;&nbsp;&nbsp;} <BR>&nbsp;&nbsp;&nbsp;echo "&lt;/table&gt;&lt;p&gt;"; <BR>&nbsp;&nbsp;&nbsp;echo "&lt;font face=Verdana size=2&gt;总投票数:$tot_votes &lt;/font&gt;"; <BR>} <BR>?&gt; <BR>说明: <BR>&nbsp;&nbsp;&nbsp;在这里为了防止一人多投是采用记录最近的一位投票者的IP的<a href="http://www.phpchina.com/javascript:;" onClick="javascript:tagshow(event, '%B7%BD%B7%A8');" target="_self"><u><strong>方法</strong></u></a>来实现的,而最近的一位投票的IP地址是WEB客户机在对服务器发出请求时存储在环境变量REMOTE_ADDR中的. <BR>我也是一个初学者,关于这篇文章可能有许多错误和不当之处欢迎各位提出宝贵的意见和建议。谢谢! <BR></SPAN></P></p>     <center><input type="image" onclick=copyToClipBoard() src="http://www.phpchina.com/images/phpcn_book_bu_tj.gif" border="0"></center>
页: [1]
查看完整版本: PHP网上调查系统
PageRank