ASP+VML+DB实现投票统计项目

       几个月前我看到过一位网友lshdic写的一篇用JS+VML的《使用 Vml 制作立体柱状投票统计图的完整程序》。
       我觉得这个方法非常不错，可以不使用图片就生成统计图，现在就让我们一起来用ASP实现这个程序。

      准备工作：用ACCESS建立一个MDB数据库,名为vote.mdb，并且在数据库中建立如下两个表：

然后建立我们按照ASP开发的惯例建立连接数据库的文件conn.asp
<%
'conn.asp
Set co***Server.CreateObject("AD***.Connection")
co***Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Se***r.MapPath("vote.mdb")
%>

显示投票项目的列表，因为我们要制作的是一个多项目的投票系统vote_list.asp





..***ages/main.css" rel="stylesheet" type="text/css">

<%
set rs***nn.execute("select * from votetitle order by voteid desc")
%>

 
   
 
  <%do while not rs.eof%>
 
   
 
  <%r***ovenext ;
loop 
rs.close
set rs=nothing%>

所有投票列表

编号：<%=rs("voteid")%>  vo***asp?voteid=<%=rs("voteid")%>" target="_blank"><%=rs("votetitle")%>       (<%=rs("time")%>)

投票显示页面vo***show.asp
<%if request("voteid")="" then
re***nse.write "参数没有指定。"
re***nse.End()
end if%>






..***ages/main.css" rel="stylesheet" type="text/css">

<%
dim voteid
voteid=request("voteid")
set rs***nn.execute("select count from vote,votetitle where vo***itle.voteid="&voteid&" and vo***voteid=votetitle.voteid order by id")
iii=0
do while not rs.eof
ii=ii+1
if ii=1 then
ceocio=trim(rs("count"))
ceocio1=trim("array1["&iii&"]")
else
ceocio=trim(ceocio&","&rs("count"))
ceocio1=trim(ceocio1&"+array1["&iii&"]")
end if
iii=iii+1
rs***venext ;
loop 
rs.close
set rs=nothing
're***nse.write ii
're***nse.write ceocio1
%>

<%
voteid=request("voteid")
set rs***nn.execute("select * from vote,votetitle where vo***itle.voteid="&voteid&" and vo***voteid=votetitle.voteid order by id")
%>

 
   
 
  <%do while not rs.eof
dim i
i=i+1%>
 
   
 
  <%r***ovenext ;
loop 
rs.close
set rs=nothing%>
 
   
 

关于：<%=rs("votetitle")%>的调查结果：       共有<%=rs("total")%>人参与调查       (<%=rs("time")%>到<%=date%>)

选项<%=i%>：<%=rs("title")%>     <%=rs("count")%>人

查看过往投票

vo***asp?voteid=<%=request("voteid")%>">投票本项目

vote.asp

<%if request("voteid")="" then
set rs***nn.execute("select top 1 voteid from votetitle order by voteid desc")
voteid=rs("voteid")
rs.close
set rs=nothing
else
voteid=request("voteid")
end if%>




st***.css" rel="stylesheet" type="text/css">

<%
if request("action")="vote" then
     '加上","&request("voteid")","为了不使id为1的投票和id为11的投票混遐
     if instr(re***st.cookies("vote"),","&request("voteid")&",")=0 then
     else
        re***nse.write "你已经投过票了"
        re***nse.end
     end if
sql="update [vote] set count=count+1 where id="&request("votevalue")
co***execute(sql)
sql="update [votetitle] set total=total+1 where voteid="&request("voteid")
co***execute(sql)
'写入cookies有效期
Re***nse.Cookies("vote").Expires=Date+1
'将已经投票的选项全部记录在cookies，用,号隔开。
Re***nse.Cookies("vote")=","&Re***st.Cookies("vote")&","&Request("voteid")&","
voteid=request("voteid")
'转向基本
re***nse.redirect "vo***show.asp?voteid="&voteid
end if
%>
<%
'dim voteid
'voteid=request("voteid")
set rs***nn.execute("select * from vote,votetitle where vo***itle.voteid="&voteid&" and vo***voteid=votetitle.voteid order by id")
%>

 
   
  vo***asp?action=vote&voteid=<%=voteid%>">
<%do while not rs.eof
dim i
i=i+1%>
 
   
 
<%r***ovenext ;
loop 
rs.close
set rs=nothing%>
 
     
 

调查：<%=rs("votetitle")%>(<%=rs("time")%>)

" <%if i=1 then%>checked<%end if%>>         <%=rs("title")%>

<%if instr(re***st.cookies("vote"),","&voteid&",")=0 then%>                 <%else%>   您已经投过票了         <%end if%>

查看过往投票

vo***show.asp?voteid=<%=voteid%>">查看本投票的结果

后台管理页面admin_vote_list.asp

<%'添加管理员权限在这里，这里为了大家应用方便，我没有加验证就直接允许进入%>




st***.css" rel="stylesheet" type="text/css">

<%
'删除模块
dim action
action=request("action")
if action="del" then
            Dim StrSQL1,StrSQL2
            StrSQL1="delete from vote where voteid="&request("voteid")
            co***Execute StrSQL1
            StrSQL2="delete from votetitle where voteid="&request("voteid")
            co***Execute StrSQL2
   re***nse.Redirect "?"
end if
'修改模块
'/////////////////////
'修改表单
if action="add" then
%>

 
   
 
 
   
 
 
   
 

添加新的投票

请输入这个投票所需要的选项个数。

<%for i1=2 to 10%>           <%=i1%>   <%next%>

<%
end if
if action="add1" then
num=request("num")
%>

 
   
 
 
   
 
 
   
 

添加新的投票

请输入这个投票所需要的详细信息。

投票名称                   <%for i2=1 to num%>         选项<%=i2%>         <%next%>         ">

<%end if
if action="add2" then
Set rs***rver.CreateObject("AD***.Recordset")
sql="SELECT * FROM votetitle"
rs.Open sql,conn,1,3
rs***dnew
rs("votetitle")=request("votetitle")
rs("time")=date()
rs***date
rs.Close
set rs***nn.execute("select top 1 voteid from votetitle order by voteid desc")
voteid=rs("voteid")
rs.close
set rs=nothing
'//////////////
'/////////////循环
num=request("num")
for i3=1 to num
Set rs***rver.CreateObject("AD***.Recordset")
sql="SELECT * FROM vote"
rs.Open sql,conn,1,3
rs***dnew
rs("title")=request(i3)
rs("voteid")=voteid
rs***date
rs.Close
next
'////////////循环结束
Set rs=Nothing
re***nse.Write "hr***admin_vote_list.asp>成功添加，请返回"
end if
'修改表单结束
'////////////////////
'修改执行代码
'修改执行代码结束
%>

<%if action="" then
set rs***nn.execute("select * from votetitle order by voteid desc")
%>

 
   
 
  <%do while not rs.eof%>
 
   
   
 
  <%r***ovenext ;
loop 
rs.close
set rs=nothing%>
 
   
 

所有投票列表
编号：<%=rs("voteid")%>  vo***asp?voteid=<%=rs("voteid")%>" target="_blank"><%=rs("votetitle")%>       (<%=rs("time")%>)	【">删除】
【添加一个新的投票调查项目】

<%end if%>

最后显示效果如下：