📄 vote_list.asp
字号:
<!--#include file="../global/inc/CheckSession.asp"-->
<!--#include file="../global/inc/global.inc.asp"-->
<!--#include file="../global/inc/inc_page3.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>神马</title>
<style type="text/css">
<!--
body {
background-color: #fd7029;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
<link href="../style.css" rel="stylesheet" type="text/css">
<Script Language="JavaScript" src="../global/script/AdminFunc.js"></script>
</head>
<body>
<table width="98%" height="750" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" style="border-collapse: collapse">
<tr>
<td valign="top"><table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="bborder">[ <a href="vote_add.asp">添加投票</a> ] [ <a href="vote_list.asp">投票列表</a> ]</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><form name="form1" method="post" action="function_Vote.asp">
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="e0e0e0">
<tr align="center" bgcolor="#F9F9F7">
<td><input type="hidden" name="action" value="Vote_EditDel">
操作</td>
<td> 是否显示</td>
<td>标题</td>
<td>选项条目</td>
<td>发起时间</td>
<td>总票数</td>
<td>编辑</td>
</tr>
<%
dim StrSql,rs,thisurl
thisurl = "vote_list.asp?"
Set rs=Server.CreateObject("Adodb.RecordSet")
StrSql = "Select * From Sm_Vote Order by VoteId desc"
oConn_Start
rs.open StrSql,oConn,1,1
if rs.eof then
response.Write("<tr><td align=center colspan=6>还没有任何信息</td></tr>")
else
pgsz=15 '设定每页显示记录数
count=rs.recordcount
RS.PageSize = Cint(PgSz)
Total=INT(count / PgSz * -1)*-1
PageNo=Request("pageno")
if PageNo="" Then
PageNo = 1
end if
if PageNo < 1 Then
PageNo = 1
end if
RS.AbsolutePage = PageNo
rec=0
while not rs.eof and rec<pgsz
VoteId = Rs("VoteId")
Title = Rs("Title")
Addtime = Rs("DateCreated")
Isdisplay = Rs("ValidFlag")
Tempsql = "Select count(DetailId) as countid,sum(TotalCount) as countsum From sm_VoteDetail Where VoteId="&VoteId
Set TempRs=oConn.execute(TempSql)
countid=TempRs(0)
countsum=TempRs(1)
Set Temprs=nothing
%>
<tr align="center" bgcolor="#F7F7F7">
<td width="6%" class="T01"><input name="selAnnounce" type="checkbox" value="<%=VoteId%>"></td>
<td width="13%" class="T02"><select name="ValidFlag<%=VoteId%>" id="ValidFlag<%=VoteId%>">
<option value="1"<%if Isdisplay=1 then response.write " Selected"%>>是</option>
<option value="0"<%if Isdisplay=0 then response.write " Selected"%>>否</option>
</select></td>
<td width="31%" class="T03"><input name="Title<%=VoteId%>" value="<%=Title%>" type="text" class="input" size="30"></td>
<td width="20%" class="T04"><%=countid%></td>
<td width="13%" class="T05"><%=Addtime%></td>
<td width="9%" class="T06"><%=Countsum%></td>
<td width="8%" class="T07"><a href="vote_edit.asp?VoteId=<%=VoteId%>">[编辑]</a></td>
</tr>
<%
rec=rec+1
rs.movenext
wend
End if
Rs.Close
Set Rs = Nothing
oConn_Close
%>
<tr align="center" bgcolor="#F7F7F7">
<td colspan="7" class="tablebutbk"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="26%"><input name=chkall type=checkbox value=on onclick=CheckAll(this.form)>
全选
<input name="act" type="submit" class="button" value="删 除" onClick="{if(confirm('您确定执行的操作吗?')){this.document.form1.submit();return true;}return false;}">
<input name="act" type="submit" class="button" value="修 改" onClick="{if(confirm('您确定执行的操作吗?')){this.document.form1.submit();return true;}return false;}"> </td>
<td width="74%" align="right"></td>
</tr><%=list_total(count,pageno,pgsz,total,thisurl)%>
</table></td>
</tr>
</table>
</form></td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -