📄 poll.asp
字号:
<%
Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
if not IsArray(Session("info")) then Response.Redirect "err1.asp?kind=01"
info=Session("info")
if InStr(Application("maninfo"),"," & info(0) & ",")<>0 then Response.Redirect "manyou.asp"
pollinfo=Application("pollinfo")
gradeinfo=Application("gradeinfo")
%>
<!--#INCLUDE FILE="config.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>投票中心</title>
<style>
<!--
a:active { font-size: 10pt; color:<%=zzbird_chattext%> ;TEXT-DECORATION: none}
a:link { font-size: 10pt; color:<%=zzbird_chattext%> ;TEXT-DECORATION: none}
a:visited { font-size: 10pt; color:<%=zzbird_chattext%> ;TEXT-DECORATION: none}
a { font-size: 10pt; color:<%=zzbird_chattext%> ;TEXT-DECORATION: none}
body{SCROLLBAR-HIGHLIGHT-COLOR: buttonface;
SCROLLBAR-SHADOW-COLOR: buttonface;
SCROLLBAR-3DLIGHT-COLOR: buttonhighlight;
SCROLLBAR-TRACK-COLOR: #eeeeee;
SCROLLBAR-DARKSHADOW-COLOR: buttonshadow;
font-size: 9pt; color: <%=zzbird_chattext%> }
.but { border-style: ridge; border-width: 1; background-color:
<%=zzbird_butbg%> ;color: <%=zzbird_buttext%>;CURSOR: hand; }
table { font-size: 10pt }
-->
</style>
<Script>
var mypoll;
var mycount;
var mydis;
var allcount;
var nowcount;
var pollman;
function del(v)
{
if(confirm("确定要删除该投票主题吗？此操作是不可恢复的！"))
{location.href="poll_delete.asp?id=" + v;}
}
</Script>
</head>
<body bgcolor="<%=zzbird_chatbg%>" <%if zzbird_chatbgpic<>"" then%>background="<%=zzbird_chatbgpic%>"<%end if%> text="<%=zzbird_chattext%>" topmargin="6" leftmargin="6">
<div align="center" class="bird">投票中心</div>
<hr><a href="poll_add.asp">添加新投票</a><div align="center" class="bird">
<br>
<%
If Ubound(pollinfo)=0 Then
Response.Write "当前没有任何投票活动<br>"
Else
For i = 1 To Ubound(pollinfo)
%>
<Script Language="JavaScript">
mypoll = "<%=pollinfo(i,7)%>";
mycount = "<%=pollinfo(i,8)%>";
<%if gradeinfo(info(1),28)=true then Response.Write "pollman=" & chr(34) & pollinfo(i,3) & chr(34) & ";pollmans=pollman.split('|');"%>
mydis = "<%=pollinfo(i,6)%>";
allcount = 0;
polllist = mypoll.split("|");
countlist = mycount.split("|");
dislist = mydis.split("|");
for(i in countlist)
{allcount = allcount + parseInt(countlist[i]);}
</Script>
<form method="post" action="poll_select.asp" name="poll">
<input type="hidden" name="id" value="<%=i%>">
<br>投票主题:<%=pollinfo(i,1)%> <%if gradeinfo(info(1),28)=true then%>（<a href="javascript:del(<%=i%>)">删除</a>）<%end if%><br>
已经有<b>
<Script Language="JavaScript">
document.write(allcount);
</Script>
</b>人参加了投票<br>（发起者: <%=pollinfo(i,2)%> / 限制: <%=pollinfo(i,4)%> 级 - <%=pollinfo(i,5)%> 级 / 回避名单<select size="1" name="D1" style="font-size: 9pt">
<option>----------</option>
<Script Language="JavaScript">
for(i in dislist)
{
document.write("<option>" + dislist[i] + "</option>");
}
</Script>
</select> / <%=pollinfo(i,9)%>）
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#EAEAEA" width="90%" id="AutoNumber1">
<tr>
<td width="7%" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">
选择</td>
<td width="40%" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">
投票选项</td>
<td width="33%" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">
投票结果</td>
<td width="20%" bgcolor="#EAEAEA" bordercolor="<%=zzbird_chatbg%>" style="color: <%=zzbird_chatbg%>">
投票名单</td>
</tr>
<Script Language="JavaScript">
for(i in polllist)
{
if(allcount==0)
{nowcount = 0;}
else
{nowcount = Math.round(parseInt(countlist[i])/allcount*100);}
document.writeln("<tr><td width='7%'><input type='radio' name='v' value='" + i + "'></td>");
document.writeln("<td width='40%'>" + polllist[i] + "</td>");
document.writeln("<td width='33%'><img border='0' src='images/bar" + (i % 6) + ".gif' width='" + nowcount + "' height='10'>" + countlist[i] + "票(" + nowcount + "%)");
<%if gradeinfo(info(1),28)=true then%>
document.write("</td><td width='20%'><select><option>----------</option>");
pollmans[i]=pollmans[i].substring(1,pollmans[i].length-1);
mans=pollmans[i].split(",");
for(j in mans)
{
document.write("<option>" + mans[j] + "</option>");
}
document.writeln("</select></td></tr>");
<%else%>
document.writeln("</td><td width='20%'>(保密)</td></tr>");
<%end if%>
}
</Script>
<tr>
<td width="100%" colspan="4" align="center">
<input type="submit" value=" 投 票 " name="B1" class="but">
<input type="reset" value=" 重 选 " name="B2" class="but"></td>
</tr>
</table>
</form><br>
<%
Next
End IF
%>
<br><input type="button" value="关闭窗口" class="but" onclick="window.close()"></div>
<div align="center"> </div>
<div align="right"><a href="http://aspxer.com/go.aspx?action=nowchat" target="_blank"><font style="font-size:8.5pt" color="#EAEAEA">NowChat 2.2 - Powered by 喳喳鸟</font></a></div>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -