用ASP制作张扬个性的调查系统-ASP教程,ASP应用

＜ html ＞
＜ title ＞调查板测试＜ /title ＞
＜ head ＞
＜ !– start：定义新开的窗口– ＞
＜ script language=javascript ＞
＜ !–
var newwindow = null
function openwindow(htmurl)
{
if (! newwindow || newwindow.closed)
{
newwindow =
window.open(htmurl,”newwin”,”toolbar=no,resiza =no,scrollbars=no,width=400,height=280″);
}else
{
newwindow.focus();
}
}
//– ＞
＜ /script ＞
＜ !– end：定义新开的窗口– ＞
＜ /head ＞
＜ body ＞
＜ !– start：调查题目、选项　– ＞
＜ p ＞您认为21世纪最重要的是什么？＜ /p ＞
＜ form method=”post” action=”vote/select.asp” name=”research” language=”javascript”
onsubmit=”openwindow()” target=”newwin” ＞
＜ p align=”left” ＞
＜ br ＞
＜ input type=”radio” value=”1″ name=”options” ＞知识（知识就是力量）＜ br ＞
＜ input type=”radio” value=”2″ name=”options” ＞学历（学历社会没有终结）＜ br ＞
＜ input type=”radio” value=”3″ name=”options” ＞金钱（经济就是基础）＜ br ＞
＜ input type=”radio” value=”4″ name=”options” ＞爱情（永不进入坟墓的爱情）＜ br ＞
＜ input type=”radio” value=”5″ name=”options” ＞理想（天啦，理想是什么）＜ br ＞
＜ input type=”radio” value=”6″ name=”options” ＞民主意识（关心政治）＜ br ＞
＜ input type=”radio” value=”7″ name=”options” ＞科学思想（科教兴国）＜ br ＞
＜ input type=”submit” value=”提交” name=”voting” ＞
＜ input type=”button” value=”查看” name=”viewing” onclick=”openwindow(vote/viewresult.asp)” ＞
＜ /form ＞
＜ !– start：调查题目、选项　– ＞
＜ /body ＞
＜ /html ＞

＜ %

下面的if语句是通过验证selected是否为空来判断用户是否作了选择
if request.form(“options”) ＜ ＞empty then
% ＞

＜ %
下面的if语句是通过比较request的两个collection(servervariables和cookies)的值
来防止用户连续按提交而影响调查的结果
if not request.servervariables(“remote_addr”)=request.cookies(“ipaddress”) then
把访问客户的ip信息写入cookies
response.cookies(“ipaddress”)=request.servervariables(“remote_addr”)
% ＞
＜ %
建立连接（connection）对象，打开记录调查结果的数据库
set conn=server.createobject(“adodb.connection”)
conn.open “researchdb”
% ＞

＜ %
定义变量
dim rs
dim sql
dim selected
selected=request.form(“options”)
建立记录集合（recordset）对象，用方法open打开对象，同时修改对应的数据
set rs=server.createobject(“adodb.recordset”)
修改数据表ressearch中的数据，即对应的投票数增加1
sql=”update research set select”&selected&”=select”&selected&”+1 where id=1″
rs.open sql,conn,3,3
从内存中清除记录集合对象
set rs=nothing
关闭连接
conn.close
从内存中清除连接对象
set conn=nothing
连接到浏览调查结果的页面
response.redirect “viewresult.asp”
else
response.write “投票失败提示：您刚才已投了票，谢谢您的支持！”
end if
else
response.write “投票失败提示：您忘记选择了！”
end if
% ＞

＜ p align=”center” ＞已经有：＜ %=total% ＞人参加调查＜ br ＞＜ br ＞
【＜ a href=”javascript:window.close()” ＞关闭窗口＜ /a ＞】＜ /p ＞
＜ p ＞
＜ %
else
response.write “还没有人参与调查”
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
% ＞