|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。在线 续上篇
后面咱们已完成了文件设计,并写了surveycode.asp的代码。如今咱们来完成
其它的文件。在完成这些文件的时分,别忘了后面写的法式流程,假如记不清,最好打印
一份出来对着看。
1、统计了局
起首咱们来完成与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 '封闭数据库
'-----统计子法式-----
sub surveycount()
if session("survey_ok")="" then '假如还没投票
no=request.form("res") '失掉谜底的编号
if no<>"" then
'界说SQL语句,让提交的谜底数目+1
sql="update survey_vote set vote_count=vote_count+1 where vote_no in (" & no &")"
my.execute sql
end if
session("survey_ok")="ok"
end if
end sub
'------------------
'---显示了局子法式---
sub disp_survey()
'界说SQL语句,失掉查询拜访的成绩
sql="select survey_question from survey where survey_id=" & id
searchtable my,sql,rs '履行查询
question=rs("survey_question") '把成绩存到question中
closetable rs '封闭表
'界说SQL语句,失掉谜底的数目总和
sql="select sum(vote_count) as total from survey_vote where vote_id="& id
searchtable my,sql,rs
total=rs("total")
closetable rs '封闭表
'界说SQL语句,失掉一切的谜底文本部分及投票数
sql="select vote_answer,vote_count from survey_vote where vote_id=" & id
searchtable my,sql,rs '履行查询
'上面用表格来输入统计表
%>
<table width="500" border="1" align="center" cellpadding="2" cellspacing="0"
bordercolorligh="#000000" bordercolordark="#ffffff">
<tr>
<td colspan="4" align="center"><b>查询拜访统计了局</b></td>
</tr>
<tr>
<td colspan="4"><b>查询拜访成绩:<%=question%></b></td>
</tr>
<tr >
<td width="150" align="center" height="20">谜底</td>
<td width="150" align="center" height="20">投票率</td>
<td width="100" align="center" height="20">比例</td>
<td width="100" align="center" height="20">票数</td>
</tr>
<%do while not rs.eof
if total=0 then
percent=0 '假如没人投票,则百分比为0
else
percent=int(rs("vote_count")/total*10000)/100 '盘算百分比
end if
%>
<tr>
<td width="150" align="center"><%=rs("vote_answer")%></td>
<td width="150" align="left">
<table border="0" width="<%=percent%>" bgcolor="#CCCC00" height="10">
<tr>
<td></td>
</tr>
</table>
</td>
<td width="100" align="center"><%=percent%>%</td>
<td width="100" align="center"><%=rs("vote_count")%></td>
</tr>
<%
rs.movenext
loop
%>
<tr>
<td colspan="4"> 至 <%=now()%> 止,共有 <%=total%> 张投票
<a href="javascript:window.close()">封闭窗口</a>
</td>
</tr>
</table>
<%
closetable rs '封闭表
end sub
'------------------
%>
</body>
</html>
在显示投票过程当中,咱们用session变量survey_ok来暗示是不是已投过票。别的,这显示
统计中,援用CSS文件来掌握表格的款式,你们可以依据本人的请求本人到场。
2、列出一切查询拜访的形态
如今咱们来完成survey.asp,它的次要义务是列出一切的查询拜访形态,包含:
1、查询拜访的成绩,链接到投票表单页面(直接写在本页中);
2、查询拜访的起启工夫;
3、查询拜访的停止工夫;
4、查询拜访的停止形态:未入手下手、停止中、已停止;
5、查询拜访的投票数;
6、查询拜访的类型,单选仍是多选;
7、别的给出一个链接检查投</p> 专业性的服务。有的ASP商提供垂直型的应用服务,针对某一特定行业提供应用服务。 |
|