📄 in.asp
字号:
<!--#include file="Inc/const.asp"-->
<!--#include file="cookies.asp"-->
<%
response.expires = 0
response.expiresabsolute = now() - 1
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.cachecontrol = "no-cache"
%><html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equtv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equtv="pragma" CONTENT="no-cache">
<meta http-equtv="Cache-Control" CONTENT="no-cache, must-revalidate">
<meta http-equtv="expires" CONTENT="0">
<title>雷诺家庭财务管理系统HomeIO2.0</title>
<link href="images/Admin_css.css" type=text/css rel=stylesheet>
<script src="js/admin.js"></script>
<script language="javascript" type="text/javascript" src="js/calendar.js"></script>
<script language="javascript" type="text/javascript" src="js/Check.js"></script>
</head>
<body>
<script language=javascript>
function checkform(){}
function popnew(url,title,width,height){
var w = 1024;
var h = 768;
if (document.all || document.layers){
w = screen.availWidth;
h = screen.availHeight;
}
var leftPos = (w/2-width/2);
var topPos = (h/2.3-height/2.3);
window.open(url,title,"width="+width+",height="+height+",top="+topPos+",left="+leftPos+",scrollbars=no,resizable=no,status=no")}
</script>
<table width="95%" border="0" cellspacing="2" cellpadding="3" align=center class="admintable" style="margin-bottom:5px;">
<tr><form name="form1" method="get" action="in.asp">
<td height="25" bgcolor="f7f7f7">快速查找：
<SELECT onChange="javascript:window.open(this.options[this.selectedIndex].value,'main')" size="1" name="s">
<OPTION value="" selected>-=请选择=-</OPTION>
<OPTION value="?s=all">所有记录</OPTION>
<OPTION value="?s=bz">有备注的记录</OPTION>
<OPTION value="?s=jj">有奖金的记录</OPTION>
<OPTION value="?s=qt">有其他收入的记录</OPTION>
<OPTION value="?s=sds">有个人所得税的记录</OPTION>
</SELECT> </td>
<td align="center" bgcolor="f7f7f7">
<input name="keyword" type="text" id="keyword" value="<%=request("keyword")%>">
<input type="submit" name="Submit2" value="备注搜索">
<input onClick="window.location.href='?hits=1'" type='button' class="sub" name='Submit2' value='按收入高低排序' />
</form></td>
<td align="right" bgcolor="f7f7f7">按家庭成员显示：
<select name="i_name" id="i_name" onChange="javascript:window.open(this.options[this.selectedIndex].value,'main')">
<%
Set rs = db("SELECT * FROM [{pre}name]",2)
While (NOT rs.EOF)
Response.Write("<option value=" & """?i_name=" & Server.URLEncode(rs("n_name")) & """" & "")
If request("i_name")=rs("n_name") then
Response.Write(" selected" )
End If
Response.Write(">" & rs("n_name") & "")
Response.Write("</option>" )
rs.MoveNext()
Wend
rs.Close()
%>
</select></td>
</tr>
</table>
<table width="95%" border="0" cellspacing="2" cellpadding="3" align=center class="admintable" style="margin-bottom:5px;">
<tr><form name="form2" method="get" action="in.asp">
<td height="25" bgcolor="f7f7f7">按成员的年度/月度统计：
<select name="i_name1" id="i_name1">
<OPTION value="" selected>-=请选择成员=-</OPTION>
<%
Set rs = db("SELECT * FROM [{pre}name]",2)
While (NOT rs.EOF)
Response.Write("<option value=" & rs("n_name") & "")
Response.Write(">" & rs("n_name") & "")
Response.Write("</option>" )
rs.MoveNext()
Wend
rs.Close()
%>
</select>
<SELECT size="1" name="y">
<OPTION value="" selected>-=请选择年度=-</OPTION>
<%
Dim ii
For ii=1990 To 2050
%>
<option value="<%=ii%>"><%=ii%>年</option>
<%next%>
</SELECT>
<SELECT size="1" name="m">
<OPTION value="" selected>-=请选择月度=-</OPTION>
<%
For ii=1 To 12
%>
<option value="<%=ii%>"><%=ii%>月</option>
<%next%>
</SELECT>
<input type="submit" value="统计"/></td>
</form>
<td align="center" bgcolor="f7f7f7">
<span class="note">年度必选，月度可选，成员可选。</span>
</td>
</tr>
</table>
<%
Dim page,i
if request("action") = "add" then
call add()
elseif request("action")="edit" then
call edit()
elseif request("action")="savenew" then
call savenew()
elseif request("action")="savedit" then
call savedit()
elseif request("action")="del" then
call del()
elseif request("action")="delAll" then
call delAll()
else
call List()
end if
sub List()
%>
<form name="myform" method="POST" action="in.asp?action=delAll">
<table width="95%" border="0" align=center cellpadding="3" cellspacing="1" bgcolor="#F2F9E8" class="admintable">
<tr>
<td colspan="16" align=left class="admintitle">家庭收入列表 [<a href="?action=add">添加</a>]</td></tr>
<tr bgcolor="#f1f3f5" style="font-weight:bold;">
<td height="30" align="center" class="ButtonList"> </td>
<td align="center" class="ButtonList">成员名称</td>
<td align="center" class="ButtonList">记录时间</td>
<td align="center" class="ButtonList">岗位工资</td>
<td align="center" class="ButtonList">工龄工资</td>
<td align="center" class="ButtonList">养老保险</td>
<td align="center" class="ButtonList">医疗保险</td>
<td align="center" class="ButtonList">住房公积金</td>
<td align="center" class="ButtonList">失业保险</td>
<td align="center" class="ButtonList">年金</td>
<td align="center" class="ButtonList">个人所得税</td>
<td align="center" class="ButtonList">奖金/加班</td>
<td align="center" class="ButtonList">其他收入</td>
<td align="center" class="ButtonList">实得收入</td>
<td align="center" class="ButtonList">备注</td>
<td align="center" class="ButtonList">操作</td>
</tr>
<%
Dim Hits,s,y,m,i_name,i_name1,keyword,mysql
dim count_sd,count_gwgz,count_gngz,count_ylbx1,count_ylbx2,count_zfgjj,count_sybx,count_nj,count_sds,count_jj,count_qt
count_sd=0
count_gwgz=0
count_gngz=0
count_ylbx1=0
count_ylbx2=0
count_zfgjj=0
count_sybx=0
count_nj=0
count_sds=0
count_jj=0
count_qt=0
Hits=request("hits")
s=Request("s")
y=Request("y")
m=Request("m")
i_name=request("i_name")
i_name1=request("i_name1")
keyword=request("keyword")
mysql="select * from [{pre}in]"
if s="bz" then
mysql=mysql&" Where i_bz<>''"
elseif s="jj" then
mysql=mysql&" Where i_jj<>0"
elseif s="qt" then
mysql=mysql&" Where i_qt<>0"
elseif s="sds" then
mysql=mysql&" Where i_sds<>0"
elseif i_name<>"" then
mysql=mysql&" Where i_name='"&i_name&"'"
elseif keyword<>"" then
mysql=mysql&" Where i_bz like '%"&keyword&"%'"
End if
if y<>"" and m<>"" then
mysql=mysql&" Where year(i_date)="&y&" and month(i_date)="&m&" "
elseif y<>"" then
mysql=mysql&" Where year(i_date)="&y&" "
end if
if i_name1<>"" then
mysql=mysql&" and i_name='"&i_name1&"'"
end if
mysql=mysql&" order by "
If Hits=1 then
mysql=mysql&"i_sd desc"
Else
mysql=mysql&"i_date desc"
End if
set rs=db(mysql,2)
if Not rs.eof then
%>
<%
page=request.querystring("page") 'page值为接受值
rs.PageSize = 50 '每页显示记录数
if Not IsEmpty(page) then '如果page已经初始化...
if Not IsNumeric(page) then '判断page值是否为数字
page=1
else
page = cint(page) '接收page并化为数字型赋给page变量
end if
if page > rs.recordcount then '如果接收的页数大于总页数
rs.AbsolutePage = rs.recordcount '设置当前显示页等于最后页
elseif page <= 0 then '如果page小于等于0
rs.AbsolutePage = 1 '设置当前显示页等于第一页
else
rs.AbsolutePage = page '如果大于零,显示当前页等于接收的页数
end if
else
rs.AbsolutePage=1
end if
page = rs.AbsolutePage
%>
<% For i = 1 to rs.PageSize '利用for next 循环依次读出当前页的记录
if rs.EOF then
Exit For
end If
%>
<!--循环-->
<tr bgcolor="#ffffff" onMouseOver="this.style.backgroundColor='#EAFCD5';" onMouseOut="this.style.backgroundColor='';this.style.color=''">
<td height="25" align="CENTER"><input type="checkbox" value="<%=rs("i_id")%>" name="id" onClick="unselectall(this.form)" style="border:0;"></td>
<td height="25"><a href="?i_name=<%=rs("i_name")%>"><%=rs("i_name")%></a></td>
<td height="25" align="center"><%=rs("i_date")%></td>
<td height="25" align="center"><%=rs("i_gwgz")%></td>
<td height="25" align="center"><%=rs("i_gngz")%></td>
<td height="25" align="center"><%=rs("i_ylbx1")%></td>
<td height="25" align="center"><%=rs("i_ylbx2")%></td>
<td height="25" align="center"><%=rs("i_zfgjj")%></td>
<td height="25" align="center"><%=rs("i_sybx")%></td>
<td height="25" align="center"><%=rs("i_nj")%></td>
<td height="25" align="center"><%=rs("i_sds")%></td>
<td height="25" align="center"><%=rs("i_jj")%></td>
<td height="25" align="center"><%=rs("i_qt")%></td>
<td height="25" align="center"><%=rs("i_sd")%></td>
<td height="25" align="center"><%=rs("i_bz")%></td>
<td align="center"><a href="?action=edit&id=<%=rs("i_id")%>&page=<%=page%>">编辑</a>|<a href="?action=del&id=<%=rs("i_id")%>&page=<%=page%>">删除</a></td>
</tr>
<%
count_sd=count_sd+rs("i_sd")
count_gwgz=count_gwgz+rs("i_gwgz")
count_gngz=count_gngz+rs("i_gngz")
count_ylbx1=count_ylbx1+rs("i_ylbx1")
count_ylbx2=count_ylbx2+rs("i_ylbx2")
count_zfgjj=count_zfgjj+rs("i_zfgjj")
count_sybx=count_sybx+rs("i_sybx")
count_nj=count_nj+rs("i_nj")
count_sds=count_sds+rs("i_sds")
count_jj=count_jj+rs("i_jj")
count_qt=count_qt+rs("i_qt")
rs.movenext
next
%>
<tr style="font-weight:bold;">
<td height="30" align="center" bgcolor="#CAF2FF" colspan=2>合计</td>
<td align="center" bgcolor="#CAF2FF"></td>
<td align="center" bgcolor="#CAF2FF"><%=count_gwgz%></td>
<td align="center" bgcolor="#CAF2FF"><%=count_gngz%></td>
<td align="center" bgcolor="#CAF2FF"><%=count_ylbx1%></td>
<td align="center" bgcolor="#CAF2FF"><%=count_ylbx2%></td>
<td align="center" bgcolor="#CAF2FF"><%=count_zfgjj%></td>
<td align="center" bgcolor="#CAF2FF"><%=count_sybx%></td>
<td align="center" bgcolor="#CAF2FF"><%=count_nj%></td>
<td align="center" bgcolor="#CAF2FF"><%=count_sds%></td>
<td align="center" bgcolor="#CAF2FF"><%=count_jj%></td>
<td align="center" bgcolor="#CAF2FF"><%=count_qt%></td>
<td align="center" bgcolor="#CAF2FF"><%=count_sd%></td>
<td align="center" bgcolor="#CAF2FF"></td>
<td align="center" bgcolor="#CAF2FF"></td>
</tr>
<tr>
<td align="center" bgcolor="f7f7f7"><input name="Action" type="hidden" value="Del"><input name="chkAll" type="checkbox" id="chkAll" onClick=CheckAll(this.form) value="checkbox" style="border:0"></td>
<td colspan="15" bgcolor="f7f7f7"><font color=red>移动到：</font>
<select id="I_name" name="I_name">
<%
Dim rst
Set rst = db("SELECT * FROM [{pre}name]",2)
While (NOT rst.EOF)
Response.Write("<option value=" & rst("n_name") & ">")
Response.Write(rst("n_name"))
Response.Write("</option>")
rst.MoveNext()
Wend
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -