📄 count_year.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/Count.asp"-->
<HTML>
<HEAD>
<TITLE>管理中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="Image/style.css" type=text/css rel=stylesheet>
<BODY text="#000000">
<SCRIPT language=javascript>
function Chk(theForm)
{
if (theForm.nian.value == ""){
alert("请输入你要统计的年份!");
theForm.nian.focus();
return (false);
}else{
updated.style.display = '';
}
}
</SCRIPT>
<DIV id=overDiv style="Z-INDEX: 1; POSITION: absolute"></DIV>
<SCRIPT language=JavaScript src="Is/overlib.js"></SCRIPT>
<TABLE cellSpacing=1 cellPadding=0 width="98%" align=center border=0 class="tableBorder">
<TBODY>
<TR>
<FORM name="Form1" action="?action=go" method="post" onSubmit="return Chk(this);">
<th align=middle colSpan=6 height=22>
<SELECT name="nian">
<option value="">--请选择--</option>
<%
Dim rsr
Set rsr = Conn.Execute("Select distinct year(Time) From [PayList]")
Do While Not rsr.Eof
Response.Write "<option value='"& rsr(0) &"'> " & rsr(0) & "</option>"
rsr.MoveNext
Loop
rsr.Close
Set rsr=Nothing
%>
</SELECT>
<input type="submit" name="Submit" value=" 点 击 统 计 ">
<font color="#ff0000"><%=Request.Form("nian")%></font> 年度统计表</th>
</FORM>
</TR>
<TR>
<td align=middle colSpan=6>
<DIV id="updated" style="DISPLAY: none" align="center">
<table width="100%" border="0" align="center" cellpadding="4" cellspacing="4">
<tr>
<td height="50">
<div align="center"><b>正在统计，请稍后...<b> <img height="15" alt="Laoding..." src="Image/loading.gif" width="150"></b></b></div></td>
</tr>
</table>
</DIV>
<%
If Request.QueryString("action") = "go" Then
Call CountPay
End if
%>
</td>
</TR>
</TBODY>
</TABLE>
<DIV id=data align=center></TABLE></TR></TABLE>
<CENTER>
<p><INPUT onclick="javascript:location.href='Excel/toexcel.asp'" type=button value='导出到Excel2000' name=out_excel>
--- <SPAN style="CURSOR: hand" onclick=show(1);>帮助</SPAN></p>
</CENTER>
<DIV id=show2 style="DISPLAY: none" disabled align=center;>如果点击"导出到Excel"按扭没反应,请检查浏览器"Internet选项"
--> "安全" --> "Internet安全级别"和"本地Internet安全级别"是否设为"低". </DIV>
</DIV>
<SCRIPT language=javascript>
function show(id)
{//菜单隐藏
if(id == '1'){
show2.style.display = '';
show2.disabled = '';
} else {
show2.style.display = 'none';
show2.disabled = 'true';
}
}
</SCRIPT>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -