?? count_payer.asp
字號(hào):
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/CountPayer.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.selpayer.value == ""){
alert("請(qǐng)輸入報(bào)銷人名稱!");
theForm.selpayer.focus();
return (false);
}else{
if (theForm.nian.value == ""){
alert("請(qǐng)輸入你要統(tǒng)計(jì)的年份!");
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="selpayer" id="selpayer">
<option value="">請(qǐng)選擇報(bào)銷人</option>
<%
Dim rs
Set rs = Conn.Execute("Select distinct Payer From [Payer]")
Do While Not rs.Eof
Response.Write "<option value='"& rs(0) &"'> " & rs(0) & "</option>"
rs.MoveNext
Loop
rs.Close
Set rs=Nothing
%>
</select>
<SELECT name="nian">
<option value="">請(qǐng)選擇年份</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=" 點(diǎn) 擊 統(tǒng) 計(jì) "> <%=Request.Form("selpayer")%>
<font color="#ff0000"><%=Request.Form("nian")%></font> 個(gè)人統(tǒng)計(jì)表</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>正在統(tǒng)計(jì)，請(qǐng)稍后...<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='導(dǎo)出到Excel2000' name=out_excel>
--- <SPAN style="CURSOR: hand" onclick=show(1);>幫助</SPAN></p>
</CENTER>
<DIV id=show2 style="DISPLAY: none" disabled align=center;>如果點(diǎn)擊"導(dǎo)出到Excel"按扭沒反應(yīng),請(qǐng)檢查瀏覽器"Internet選項(xiàng)"
--> "安全" --> "Internet安全級(jí)別"和"本地Internet安全級(jí)別"是否設(shè)為"低". </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>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -