📄 votetype.asp
字号:
<!--#include file="include/config.asp"-->
<!-- #include file="include/conn.asp" -->
<html>
<head>
<title><%response.write web_var(web_config,1)%> - 调查列表</title>
<meta name="Description" content="『随缘吧』">
<meta name="keywords" content="最全的整站系统,最好的整站程序,asp,技术,『随缘吧』,网络">
<meta name="author" content="『随缘吧』">
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<link rel=stylesheet href="images/joekoe.css" type=text/css>
</head>
<body leftmargin=0 topmargin=0>
<body topmargin=0 leftmargin=0 bgcolor=<%
dim ttt,vid
vid=trim(request.querystring("vid"))
response.write web_var(web_color,1)
ttt=web_var(web_config,7)
if ttt<>"" then
response.write " background='images/"&ttt&".gif'"
end if
%>>
<center><table border=0 width='100%' height='100%' cellspacing=0 cellpadding=0>
<tr><td width='100%' height='100%' align=center>
<table border=0 width='100%' height='100%' cellspacing=0 cellpadding=0>
<tr><td width=20 height=16><img src='images/vote/vote_r1_c1.gif' width=20 height=16 border=0></td><td background='images/vote/vote_r1_c2.gif'></td><td width=16><img src='images/vote/vote_r1_c6.gif' width=16 height=16 border=0></td></tr>
<tr><td background='images/vote/vote_r2_c1.gif' valign=bottom><img src='images/vote/vote_r4_c1.gif' width=20 border=0 height=8></td><td bgcolor=#ffffff align=center>
<%
if not(isnumeric(vid)) then
call vote_error()
else
select case action
case "save"
call vote_save()
case else
call vote_view()
end select
end if
call close_conn()
%>
</td><td background='images/vote/vote_r2_c6.gif'></td></tr>
<tr><td height=16 background='images/vote/vote_r5_c4.gif' colspan=2><a href="javascript:window.close();"><img src='images/vote/vote_r5_c1.gif' width=84 height=18 border=0></a></td><td width=16><img src='images/vote/vote_r5_c6.gif' width=16 height=18 border=0></td></tr>
</table>
</td></tr></table></center>
</body>
</html>
<%
sub vote_save()
dim go_tim,vvid:go_tim=web_var(web_num,5)
if trim(request.cookies("joekoe_online")("vote_vid"))="v"&vid then
%><font class=red_2>您已经投过一票！不可以重复多投……</font><br><br>
<a href='votetype.asp?type=view&vid=<%response.write vid%>'>查看投票结果</a><br><br>
<font class=gray>（系统将在 <font class=red><%response.write go_tim%></font> 秒钟后自动进入）</font><br><br>
<meta http-equiv='refresh' content='<%response.write go_tim%>; url=votetype.asp?type=view&vid=<%response.write vid%>'>
<% exit sub
end if
sql="select id from vote where vid="&vid
set rs=conn.execute(sql)
if rs.eof and rs.bof then
rs.close:set rs=nothing
call vote_error():exit sub
end if
rs.close:set rs=nothing
dim vote_id,ddim,j:j=0
vote_id=trim(request.form("vote_id"))
vote_id=replace(vote_id," ","")
if len(vote_id)<1 then call vote_error():exit sub
ddim=split(vote_id,",")
for i=0 to ubound(ddim)
if isnumeric(ddim(i)) then
sql="update vote set counter=counter+1 where vid="&vid&" and vtype<>0 and id="&ddim(i)
conn.execute(sql)
j=j+1
end if
next
erase ddim
if j=0 then call vote_error():exit sub
response.cookies("joekoe_online")("vote_vid")="v"&vid
call cookies_yes()
%>！！！<font class=red>谢谢你的支持与参与</font>！！！<br><br>
<a href='votetype.asp?type=view&vid=<%response.write vid%>'>查看投票结果</a><br><br>
<font class=gray>（系统将在 <font class=red><%response.write go_tim%></font> 秒钟后自动进入）</font><br><br>
<meta http-equiv='refresh' content='<%response.write go_tim%>; url=votetype.asp?type=view&vid=<%response.write vid%>'>
<%
end sub
sub vote_view()
dim rssum,dimc,dimn,num,t
rssum=0:num=0
set rs=server.createobject("adodb.recordset")
sql="select id,vname,counter from vote where vid="&vid&" order by id"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rs.close:set rs=nothing
call vote_error():exit sub
end if
rssum=int(rs.recordcount)
rssum=rssum-1
redim dimc(rssum),dimn(rssum)
for i=0 to rssum
if rs.eof then exit for
dimc(i)=rs("counter")
dimn(i)=rs("vname")
num=dimc(i)+num
rs.movenext
next
rs.close:set rs=nothing
%>
<table border=0 width='96%' cellpadding=0 cellspacing=2 align=center>
<tr><td align=center colspan=3 class=red_3 height=20><b><%response.write code_html(dimn(0),1,0)%></b></td></tr>
<tr><td align=center colspan=3 class=gray>目前共有 <font class=blue><%response.write num%></font> 人参与了投票</td></tr>
<tr>
<td></td>
<td></td>
<td width='15%'></td>
</tr>
<%
for i=1 to rssum
if int(dimc(i))=0 then
t="0%"
else
t=FormatPercent(dimc(i)/num,1)
end if
%>
<tr>
<td height=18><%response.write i%>、<%response.write code_html(dimn(i),1,0)%> <font class=gray>(<font class=blue><%response.write dimc(i)%></font>)</font></td>
<td align=right><img src='images/vote/bar.gif' width=<%response.write dimc(i)%> height=10></td>
<td align=right><%response.write t%></td>
</tr>
<% next %>
</table>
<%
erase dimc:erase dimn
end sub
sub vote_error()
%>
<font class=red>您可能没有选择相关的择票选项！</font><br><br><font class=red_2>或进行非法的提交了投票数据！</font>
<br><br>
<%
response.write closer
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -