📄 surveystatis.asp
字号:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<!--#include file="../Include/Config.asp"-->
<%
'----------------------------------------------------------
'页面功能:问卷统计。
'最后修改时间：2007-12-04 19时2分
'作者：legal http://www.ilegal.cn
'备注：
'----------------------------------------------------------
%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" href="../Css/Admin.css" type="text/css" />
</head>
<body>
<div id="SuveyAdmin">
<table width="100%" align="center" cellpadding="0" cellspacing="0" id="SurveyAdmin" class="table">
<%
dim Survey_id,sql,order_by,way,page_size,rscount,item_count,page_num,page_now,i
Survey_id=request.QueryString("Survey_id")
order_by=request.QueryString("order_by")
way=request.QueryString("way")
order_by="Survey_creatDate"
way="desc"
page_size=10
set rscount=conn.execute("select count(*) as item_count from [Survey]")
item_count=rscount("item_count")
rscount.close
page_num=item_count\page_size
sql="select * from [Survey] order by "&order_by&" "&way&""
rs.open sql,conn,1,3
if not rs.eof then
rs.pagesize=page_size
page_now=1
if trim(request.QueryString("page"))<>"" then
page_now=cint(trim(request.QueryString("page")))
end if
if page_now>rs.pagecount or page_now<0 then
page_now=1
end if
rs.absolutepage=page_now
%>
<tr>
<th>问卷名称</th>
<th>发起者</th>
<th>操作</th>
</tr>
<%
i=1
while not rs.eof and i<page_size+1
%>
<tr>
<td>
<a class=blue href="SurveyStatisCont.asp?Survey_id=<%=rs("Survey_id")%>" target="_blank"><%=rs("Survey_name")%></a></td>
<td><%=rs("Survey_author")%></td>
<td><a href="Survey_Show.asp?Survey_id=<%=rs("Survey_id")%>" target="_blank">预览问卷</a>
<a class=blue href="SurveyStatisCont.asp?Survey_id=<%=rs("Survey_id")%>" target="_blank">查看统计</a>
<a href="#"onclick="javascript:if (confirm('确定要将结果清零 ?')) href='ClearStatis.asp?Survey_id=<%=rs("Survey_id")%>';else return;">结果清零</a> <a href="UserDatum.asp?Survey_id=<%=rs("Survey_id")%>">查看单个用户</a> <a href="ToExcel.asp?Survey_id=<%=rs("Survey_id")%>">导出Excel</a></td>
</tr>
<%
rs.movenext
i=i+1
wend
%>
<tr>
<td colspan="3" align="right">
<div id="bottom_pagebox" style="padding-right:15px;">
当前第<%=page_now%>页
<%if page_now=1 then%>首页
<%else%><a href="SurveyStatis.asp?page=1">首页</a>
<%end if%>
<%if page_now>1 and rs.pagecount>1 then%>
<a href="SurveyStatis.asp?page=<%=page_now-1%>">上一页</a>
<%else%>上一页
<%end if%>
<%if page_now<rs.pagecount then%>
<a href="SurveyStatis.asp?page=<%=page_now+1%>">下一页</a>
<%else%>下一页
<%end if%>
<%if page_now<>rs.pagecount then%>
<a href="SurveyStatis.asp?page=<%=rs.pagecount%>">尾页</a>
<%else%>尾页
<%end if%>
共<%=rs.pagecount%>页/<%=item_count%>篇</div></td>
</tr>
<%else%>
<tr>
<td colspan="3">暂时没有问卷，请<a href="SurveyAdd.asp">添加</a></td>
</tr>
<%
end if
rs.close
%>
</table>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -