IDC资讯中心
六、代码编写
做好了流程设计后，写代码就比较有条理了。让我们从简单的开始。在编写代码
之前，我们要先在数据库里输入一些记录，以便做测试。先加入一条调查问题，和几个
调查答案，并手工输入一些统计信息。
我们先来写显示调查表单的surveycode.asp 这个文件要在其它页面中被调用，所以我们写成js和vbs混用的方式。调用的时候可以把它放在某个表格中，用下面的语句：
＜script language=”javascript” src=”surveycode.asp?id=1″＞＜/script＞
按照上面的流程，在显示表单前，先要判断一下调查是否存在，是否在进行中。另外，在表单中要提交一个隐藏的参数，来表示调查的问题编号(id)，答案提交的时候，提交的是答案的编号vote_no
文件名 surveycode.asp
| ＜!–#include file=”inc.asp” –＞ ＜% id=request.querystring(“id”) if id＜＞”” then 如果有参数 opendb my 联接数据库 sql=”select * from survey where survey_id=”& id 查询语句 searchtable my,sql,rs 查询数据库 if not rs.eof then 如果有这个调查记录 question=rs(“survey_question”) 读出问题 surveytype=rs(“survey_type”) 读出答案类型 stime=rs(“survey_stime”) 读出开始时间 etime=rs(“survey_etime”) 读出结束时间 closetable rs 关闭表 if stime＜now() and etime＞now() then 如果调查正在进行中 下面输出调查表单 先输出表单和问题,表单提交到survey_vote.asp %＞ document.write(“＜form action=survey_vote.asp target=_blank method=post＞”); document.write(“＜table border=1 cellpadding=2 cellspacing=0 bordercolorligh=#000000”); document.write(” bordercolordark=#ffffff width=100% align=center＞＜tbody＞”); document.write(“＜tr＞＜td colspan=2 align=center＞＜b＞＜%=server.htmlencode(question)%＞＜/b＞＜/td＞＜/tr＞”); ＜% sql=”select vote_no,vote_answer from survey_vote where vote_id=”&id 查询答案的sql searchtable my,sql,rs 执行查询 if not rs.eof then 如果有答案，就输出 for i=1 to rs.recordcount %＞ document.write(“＜tr＞＜td align=right＞＜input name=res type=”); ＜% if surveytype then 判断类型，显示单选或者多选 %＞ document.write(“checkbox”); ＜%else%＞ document.write(“radio”); ＜%end if 下面这句输出答案的文字和提交的值(vote_no)%＞ document.write(” value=＜%=rs(“vote_no”)%＞＞＜/td＞＜td＞＜%=rs(“vote_answer”)%＞＜/td＞＜/tr＞”); ＜% rs.movenext next 下面几句输出一个隐藏的参数，传递问题编号(id) 并用一个js函数来定义点击查看后的链接 %＞ document.write(“＜tr＞＜td colspan=2 align=center＞＜input type=hidden name=id value=＜%=id%＞＞”); document.write(“＜input type=submit class=button value=投票＞ “); document.write(“＜input type=button class=button value=查看 onclick=jump(＜%=id%＞)＞”); document.write(“＜/td＞＜/tr＞＜/tbody＞＜/table＞＜/form＞”); function jump(id){ window.open(“survey_vote.asp?id=”+id,”survey”) } ＜% end if end if end if closetable rs closedb my end if %＞ |
在surveycode.asp完成后，我们实现上已经确定了以下几点：
1、在survey_vote.asp中，如果querystring参数id有值，则是查看结果；
2、在survey_vote.asp中，如果form参数id有值，则要先进行统计；
3、在survey_vote.asp中，提交来的form参数res是答案的编号vote_no;
七、统计结果
首先我们来完成与surveycode.asp最密切相关的显示统计结果survey_vote.asp文件。在上一篇的结尾，我们已经说明了在surveycode.asp中确定的一些参数。
统计结果 survey_vote.asp
| ＜!–#include file=”inc.asp” –＞ ＜html＞ ＜head＞ ＜title＞调查统计结果＜/title＞ ＜link rel=”stylesheet” href=”main.css” type=”text/css”＞ ＜/head＞ ＜body＞ ＜% 上一句先加入包含文件，引用函数。 id=request.querystring(“id”) 获取querystring参数id opendb my 连接数据库 if id=”” then 如果没有，则不是直接看结果 id=request.form(“id”) 获取form参数id if id＜＞”” then 如果有值，则是要先统计 surveycount() 调用统计子程序 end if end if if id＜＞”” then disp_survey() 不管是哪种，最后都显示结果 end if closedb my 关闭数据库 —–统计子程序—– —显示结果子程序— 定义sql语句，得到调查的问题 定义sql语句，得到所有的答案文本部份及投票数 |
在显示投票过程中，我们用session变量survey_ok来表示是否已经投过票。另外，这显示统计中，引用css文件来控制表格的样式，你们可以根据自己的要求自己加入。
