/* advote.asp
建一个表research 表中有selectea,selecteb,selectec,selected四个属性列(可追加)
*/
<%
if not Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress") then
response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
%>
<!--#include file="conndb.asp"--> /* 连接数据库的文件 */
<%
dim rs
dim sql
dim selected
selected=request.form("options")
set rs=server.createobject("adodb.recordset")
sql="update research set select"&selected&"=select"&selected&"+1"
rs.open sql,conn,3,3
set rs=nothing
conn.close
set conn=nothing
response.redirect "index.htm" /* 返回投票页面 */
else
Response.write "您已经投过票了!"
end if
%>
/* 察看投票结果 result.asp
pic/ 目录下 bar.gif 用于显示投票比例柱型图 ( 可自己作,其实就是个方块!)
*/
<!--#include file="articleconn.asp"-->
<%
dim rs
dim sql
dim selecta
dim selectb
dim selectc
dim selectd
dim total
set rs=server.createobject("adodb.recordset")
sql="select * from research"
rs.open sql,conn,1,1
if not rs.eof then
total=rs("selecta")+rs("selectb")+rs("selectc")+rs("selectd")
selecta=(rs("selecta")/total)*100
selectb=(rs("selectb")/total)*100
selectc=(rs("selectc")/total)*100
selectd=(rs("selectd")/total)*100
%>
<style type="text/css">
<!--
.p1 { font-family: "宋体"; font-size: 9pt}
-->
</style>
定义一个表,字段1:题号 字段2:选择人数
访问者进行选择的时候,返回一个Num变量(Integer),例如选择了题目1,Num就等于1
SqlStr="Update Table1 Set 选择人数=选择人数+1 Where 题号=" & Num
然后执行这条SQL语句就行了。
如果想要弄得更加专业一点,可以多设计几个字段,让这个数据库可以重复的使用,做一个专业的调查表。