网上调查系统的

该系统是由以下四个文件组成的:有HTML调查表单的m,实现调查功能的p,记录调查项目的t 和记录调查结果的t.其中t和t我们可以用NOTEPAD分别创建之，并传到程序目录下。文件 t中存的是要进行调查的项目，注意每个项目应占一行；而t则可以是一个什么内容也没有的空文件。

m的代码可以如如下所示：

html

head

titlesurvey/title

/head

body

form method=\"POST\" action=\"p\"

共收取差别电价加价电费６．５２亿元。差别电价政策实行以来 pinput type=\"radio\" value=\"0\" name=\"vote\"调查项目一/p

pinput type=\"radio\" name=\"vote\" value=\"1\"调查项目二/p

pinput type=\"radio\" name=\"vote\" value=\"2\"调查项目三/p

pinput type=\"radio\" name=\"vote\" value=\"3\"调查项目四/p

pinput type=\"radio\" name=\"vote\" value=\"4\"调查项目五/p

pinput type=\"hidden\" name=\"go\" value=\"1\"

pinput type=\"submit\" value=\"提交\" name=\"B1\"/p

a href=\"p?result=1\"查看结果/a

/form

/body

/html

注意文件t中的调查项目与上面的调查项目在个数和排列顺序必须保持一致，否则会出错或调查的结果不准确。同时为了将调查结果显示成条形图形式，应该准备若干种不同颜色的条形图片。如：f,f,f,f,f等.

以下是实现调查功能的p代码:

?

$data=\"t\";

$votes=\"t\";

$dataf=file($data); /*读出调查项目文件中的项目*/

$file_votes=fopen($votes, \"r\");

$line_votes=fgets($file_votes, 255); /*读出已经记录的调查结果*/

fclose($file_votes);

$single_vote=explode(\"|\", $line_votes); /* 并将数据按指定的字串切开,再将字串传回到数组变量中 */

if ($result!=1) /*如果已经接受了调查*/

{

$file_votes=file($votes, \"r\");

if ($REMOTE_ADDR == $file_votes[1]) /*检查是不是同一个人*/

{

echo \"centerfont color=red您已投过票了，谢谢您的参与！/font/center\";

exit;

}

/*如果IP不重复,则执行以下程序*/

$ficdest=fopen($votes, \"w\");

for ($i=0; $i=count($dataf)-1; $i++)

{

if ($i == $vote)

{ /*判断选择了哪个项目*/

$single_vote[$i]+=1;

}

fputs($ficdest, \"$single_vote[$i]|\"); /*将数据写回文件*/

}

fputs($ficdest, \" $REMOTE_ADDR\");/* //写入投票者IP*/

fclose($ficdest);

$result=1; /*投票成功*/

}

/*写入投票结果后并显示投票结果*/

if ($result==1)

{

echo \"table cellpadding=10\";

for ($i=0; $i=count($dataf)-1; $i++)

{

/*取得投票总数*/

$tot_votes+=$single_vote[$i];

}

for ($i=0; $i=count($dataf)-1; $i++)

{

$imag=strval($i).\".gif\";/*判断用哪种条形图片来显示统计结果*/

$stat[$i]=$single_vote[$i]/$tot_votes*100; /*计算百分比*/

$scla=$stat[$i]*5;/*条形图和放大倍数,这里是安百分数的5倍的相素的宽度来显示的*/

echo \"trtdlifont face=Verdana size=2\";

echo \"$dataf[$i]/font/tdtd align=leftfont face=Verdana size=2\";

echo \"img src=\"$imag\" height=20 width=$scla align=middlenbsp;\";/*输出条形码图*/

printf(\"%.1f\", \"$stat[$i]\");

echo \"%/font/tdtd align=centerfont face=Verdana size=2\";

/*输出本栏目投票数*/

echo \"$single_vote[$i]/font\";

echo \"/td/tr\";

}

echo \"/tablep\";

echo \"font face=Verdana size=2总投票数：$tot_votes /font\";

}

?

查看本文来源

郑州治白癜风专科医院
缓解痛经的方法有哪些
积食消化不良怎么办