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

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

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

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

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







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

 
   
 
  <%do while not rs.eof%>
 
   
 
  <%rs.movenext 
loop 
rs.close
set rs=nothing%>

所有投票列表

编号：<%=rs("voteid")%>&nbsp; " target="_blank"><%=rs("votetitle")%>       (<%=rs("time")%>)

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








<%
dim voteid
voteid=request("voteid")
set rs=conn.execute("select count from vote,votetitle where votetitle.voteid="&voteid&" and vote.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.movenext 
loop 
rs.close
set rs=nothing
'response.write ii
'response.write ceocio1
%>

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

 
   
 
  <%do while not rs.eof
dim i
i=i+1%>
 
   
 
  <%rs.movenext 
loop 
rs.close
set rs=nothing%>
 
   
 

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

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

查看过往投票

">投票本项目

vote.asp

<%if request("voteid")="" then
set rs=conn.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%>

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

 
   
 
<%do while not rs.eof
dim i
i=i+1%>
 
   
 
<%rs.movenext 
loop 
rs.close
set rs=nothing%>
 
     
 

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

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

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

查看过往投票

查看本投票的结果

后台管理页面admin_vote_list.asp

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

<%
'删除模块
dim action
action=request("action")
if action="del" then
            Dim StrSQL1,StrSQL2
            StrSQL1="delete from vote where voteid="&request("voteid")
            conn.Execute StrSQL1
            StrSQL2="delete from votetitle where voteid="&request("voteid")
            conn.Execute StrSQL2
   response.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=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM votetitle"
rs.Open sql,conn,1,3
rs.Addnew
rs("votetitle")=request("votetitle")
rs("time")=date()
rs.Update
rs.Close
set rs=conn.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=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM vote"
rs.Open sql,conn,1,3
rs.Addnew
rs("title")=request(i3)
rs("voteid")=voteid
rs.Update
rs.Close
next
'////////////循环结束
Set rs=Nothing
response.Write "成功添加，请返回"
end if
'修改表单结束
'////////////////////
'修改执行代码
'修改执行代码结束
%>

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

 
   
 
  <%do while not rs.eof%>
 
   
   
 
  <%rs.movenext 
loop 
rs.close
set rs=nothing%>
 
   
 

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

<%end if%>

最后显示效果如下：