in.asp

家庭理财系统方便您与家人管理财产

	rst.Close()
	%> 
    </select>
    &nbsp;
    <input type="submit" value="批量移动" name="Del" id="Del">
    <input type="submit" value="批量删除" name="Del" id="Del">
    <input type='button' class="sub" onClick="window.location.href='o_excel.asp?mysql=<%=Server.URLEncode(mysql)%>&mytype=i'" value="批量导出Excel" name="Del" id="Del">
    </td>
  </tr>
  <tr><td bgcolor="f7f7f7" colspan="16">
  <div id="page"><ul style="text-align:left;"><%Call showpage(rs.recordcount,rs.PageSize,true,false,"条记录")%></ul></div></td>
  </tr>
</table>
</form>
<% 
Else
response.write "还没有任何纪录！"
End If
rs.close
end sub
'--------新建-------------------------------------------------------------------------------------------------
sub add()

%> 
<table width="95%" border="0"  align=center cellpadding="3" cellspacing="2" bgcolor="#FFFFFF" class="admintable">
<form onsubmit="return CheckForm(this)" action="?action=savenew" name="myform" method=post>
<tr> 
    <td colspan="2" align=left class="admintitle">添加收入记录</td></tr>
<tr> 
<td width="20%" class="b1_1">选择家庭成员：</td>
<td class="b1_1"><select name="i_name" id="i_name" showName="家庭成员" required="true" >
        <%
	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>&nbsp;<span class="note">必选</span></td>
</tr>
<tr>
  <td class="b1_1">岗位工资</td>
  <td class="b1_1"><input type="text" id="i_gwgz" name="i_gwgz" showName="岗位工资" required="true" size="40" maxlength="50" /></td>
</tr>
<tr>
  <td class="b1_1">工龄工资</td>
  <td class="b1_1"><input type="text" id="i_gngz" name="i_gngz" showName="工龄工资" required="true" size="40" maxlength="50" /></td>
</tr>
<tr>
  <td class="b1_1">养老保险</td>
  <td class="b1_1"><input type="text" id="i_ylbx1" name="i_ylbx1" showName="养老保险" required="true" size="40" maxlength="50" /></td>
</tr>
<tr>
  <td class="b1_1">医疗保险</td>
  <td class="b1_1"><input type="text" id="i_ylbx2" name="i_ylbx2" showName="医疗保险" required="true" size="40" maxlength="50" /></td>
</tr>
<tr>
  <td class="b1_1">住房公积金</td>
  <td class="b1_1"><input type="text" id="i_zfgjj" name="i_zfgjj" showName="住房公积金" required="true" size="40" maxlength="50" /></td>
</tr>
<tr>
  <td class="b1_1">失业保险</td>
  <td class="b1_1"><input type="text" id="i_sybx" name="i_sybx" showName="失业保险" required="true" size="40" maxlength="50" /></td>
</tr>
<tr>
  <td class="b1_1">年金</td>
  <td class="b1_1"><input type="text" id="i_nj" name="i_nj" showName="年金" required="true" size="40" maxlength="50" /></td>
</tr>
<tr>
  <td class="b1_1">个人所得税</td>
  <td class="b1_1"><input type="text" id="i_sds" name="i_sds" showName="个人所得税" required="true" size="40" maxlength="50" /></td>
</tr>
<tr>
  <td class="b1_1">奖金/加班</td>
  <td class="b1_1"><input type="text" id="i_jj" name="i_jj" showName="奖金/加班" required="true" size="40" maxlength="50" /></td>
</tr>
<tr>
  <td class="b1_1">其他收入</td>
  <td class="b1_1"><input type="text" id="i_qt" name="i_qt" showName="其他收入" required="true" size="40" maxlength="50" /></td>
</tr>
<tr>
  <td class="b1_1">本次记录备注</td>
  <td class="b1_1"><textarea id="i_bz" name="i_bz" rows="15" cols="60" ></textarea></td>
</tr>
<tr> 
<td class="b1_1"></td>
<td class="b1_1"><input type="submit" name="Submit" value="添 加"></td>
</tr>
</form>
</table>
<%
end sub
'--------保存新建-------------------------------------------------------------------------------------------------
sub savenew()
Dim i_name,i_date,i_gwgz,i_gngz,i_ylbx1,i_ylbx2,i_zfgjj,i_sybx,i_nj,i_sds,i_jj,i_qt,i_sd,i_bz
i_name=Request.Form("i_name")
i_date=now()
i_gwgz=CCur(Request.Form("i_gwgz"))
i_gngz=CCur(Request.Form("i_gngz"))
i_ylbx1=CCur(Request.Form("i_ylbx1"))
i_ylbx2=CCur(Request.Form("i_ylbx2"))
i_zfgjj=CCur(Request.Form("i_zfgjj"))
i_sybx=CCur(Request.Form("i_sybx"))
i_nj=CCur(Request.Form("i_nj"))
i_sds=CCur(Request.Form("i_sds"))
i_jj=CCur(Request.Form("i_jj"))
i_qt=CCur(Request.Form("i_qt"))
i_sd=CCur(i_gwgz+i_gngz-i_ylbx1-i_ylbx2-i_zfgjj-i_sybx-i_nj-i_sds+i_jj+i_qt)
i_bz=Request.Form("i_bz")
set rs=db("select top 1 * from [{pre}in]",3)
rs.addnew
rs("i_name")=i_name
rs("i_date")=i_date
rs("i_gwgz")=i_gwgz
rs("i_gngz")=i_gngz
rs("i_ylbx1")=i_ylbx1
rs("i_ylbx2")=i_ylbx2
rs("i_zfgjj")=i_zfgjj
rs("i_nj")=i_nj
rs("i_sds")=i_sds
rs("i_jj")=i_jj
rs("i_qt")=i_qt
rs("i_sd")=i_sd
rs("i_bz")=i_bz
rs.update
Rs.Close
Call goerror("数据录入成功！","in.asp")
end sub
'--------单个删除-------------------------------------------------------------------------------------------------
sub del()
    Dim id,page
	page=request("page")
	id=request("id")
	Call db("delete from [{pre}in] where i_id="&id,0)
	Response.write"<script>alert(""删除成功！"");location.href=""in.asp?page="&page&""";</script>"
end sub
'--------编辑-------------------------------------------------------------------------------------------------
sub edit()
Dim id,page
page=request("page")
id=request("id")
set rs = db("select * from [{pre}in] where i_id="&id,2)
%>
<table width="95%" border="0"  align=center cellpadding="3" cellspacing="2" bgcolor="#FFFFFF" class="admintable">
<form onsubmit="return CheckForm(this)" action="?action=savedit" name="myform" method=post>
<tr> 
    <td colspan="2" align=left class="admintitle">修改收入记录</td></tr>
<tr> 
<td width="20%" class="b1_1">选择家庭成员：</td>
<td class="b1_1"><select name="i_name" id="i_name" showName="家庭成员" required="true" >
        <%
	dim rsn
	Set rsn = db("SELECT * FROM [{pre}name]",2)
	While (NOT rsn.EOF)
	Response.Write("<option value="  & rsn("n_name") & "")
		If rs("i_name")=rsn("n_name") then
			Response.Write(" selected" )
		End If
	Response.Write(">" & rsn("n_name") & "")
	Response.Write("</option>" )
	rsn.MoveNext()
	Wend
	rsn.Close()
	%>
        </select>&nbsp;<span class="note">必选</span></td>
</tr>
<tr>
  <td class="b1_1">岗位工资</td>
  <td class="b1_1"><input type="text" id="i_gwgz" name="i_gwgz" showName="岗位工资" required="true" size="40" maxlength="50" value="<%=rs("i_gwgz")%>"/></td>
</tr>
<tr>
  <td class="b1_1">工龄工资</td>
  <td class="b1_1"><input type="text" id="i_gngz" name="i_gngz" showName="工龄工资" required="true" size="40" maxlength="50" value="<%=rs("i_gngz")%>"/></td>
</tr>
<tr>
  <td class="b1_1">养老保险</td>
  <td class="b1_1"><input type="text" id="i_ylbx1" name="i_ylbx1" showName="养老保险" required="true" size="40" maxlength="50" value="<%=rs("i_ylbx1")%>"/></td>
</tr>
<tr>
  <td class="b1_1">医疗保险</td>
  <td class="b1_1"><input type="text" id="i_ylbx2" name="i_ylbx2" showName="医疗保险" required="true" size="40" maxlength="50" value="<%=rs("i_ylbx2")%>"/></td>
</tr>
<tr>
  <td class="b1_1">住房公积金</td>
  <td class="b1_1"><input type="text" id="i_zfgjj" name="i_zfgjj" showName="住房公积金" required="true" size="40" maxlength="50" value="<%=rs("i_zfgjj")%>"/></td>
</tr>
<tr>
  <td class="b1_1">失业保险</td>
  <td class="b1_1"><input type="text" id="i_sybx" name="i_sybx" showName="失业保险" required="true" size="40" maxlength="50" value="<%=rs("i_sybx")%>"/></td>
</tr>
<tr>
  <td class="b1_1">年金</td>
  <td class="b1_1"><input type="text" id="i_nj" name="i_nj" showName="年金" required="true" size="40" maxlength="50" value="<%=rs("i_nj")%>"/></td>
</tr>
<tr>
  <td class="b1_1">个人所得税</td>
  <td class="b1_1"><input type="text" id="i_sds" name="i_sds" showName="个人所得税" required="true" size="40" maxlength="50" value="<%=rs("i_sds")%>"/></td>
</tr>
<tr>
  <td class="b1_1">奖金/加班</td>
  <td class="b1_1"><input type="text" id="i_jj" name="i_jj" showName="奖金/加班" required="true" size="40" maxlength="50" value="<%=rs("i_jj")%>"/></td>
</tr>
<tr>
  <td class="b1_1">其他收入</td>
  <td class="b1_1"><input type="text" id="i_qt" name="i_qt" showName="其他收入" required="true" size="40" maxlength="50" value="<%=rs("i_qt")%>"/></td>
</tr>
<tr>
  <td class="b1_1">本次记录备注</td>
  <td class="b1_1"><textarea id="i_bz" name="i_bz" rows="15" cols="60" ><%=rs("i_bz")%></textarea></td>
</tr>
<tr> 
<td class="b1_1"></td>
<td class="b1_1">
<input type="hidden" id="id" name="id" value="<%=id%>"/>
<input type="hidden" id="page" name="page" value="<%=page%>"/>
<input type="submit" name="Submit" value="修 改"></td>
</tr>
</form>
</table>
<%
end sub
'--------保存编辑-------------------------------------------------------------------------------------------------
sub savedit()

dim id,page
Dim i_name,i_date,i_gwgz,i_gngz,i_ylbx1,i_ylbx2,i_zfgjj,i_sybx,i_nj,i_sds,i_jj,i_qt,i_sd,i_bz

id=request.Form("id")
page=request.Form("page")
i_name=Request.Form("i_name")
'i_date=now()
i_gwgz=CCur(Request.Form("i_gwgz"))
i_gngz=CCur(Request.Form("i_gngz"))
i_ylbx1=CCur(Request.Form("i_ylbx1"))
i_ylbx2=CCur(Request.Form("i_ylbx2"))
i_zfgjj=CCur(Request.Form("i_zfgjj"))
i_sybx=CCur(Request.Form("i_sybx"))
i_nj=CCur(Request.Form("i_nj"))
i_sds=CCur(Request.Form("i_sds"))
i_jj=CCur(Request.Form("i_jj"))
i_qt=CCur(Request.Form("i_qt"))
i_sd=CCur(i_gwgz+i_gngz-i_ylbx1-i_ylbx2-i_zfgjj-i_sybx-i_nj-i_sds+i_jj+i_qt)
i_bz=Request.Form("i_bz")

set rs=db("select * from [{pre}in] where i_id="&id,3)
rs("i_name")=i_name
'rs("i_date")=i_date
rs("i_gwgz")=i_gwgz
rs("i_gngz")=i_gngz
rs("i_ylbx1")=i_ylbx1
rs("i_ylbx2")=i_ylbx2
rs("i_zfgjj")=i_zfgjj
rs("i_nj")=i_nj
rs("i_sds")=i_sds
rs("i_jj")=i_jj
rs("i_qt")=i_qt
rs("i_sd")=i_sd
rs("i_bz")=i_bz
rs.update
rs.close
Call goerror("数据修改成功！","in.asp?page="&page)
end sub
'--------批量删除-------------------------------------------------------------------------------------------------
Sub delAll

Dim id,I_name,page
id=Trim(Request("id"))
I_name=Request("I_name")
page=request("page")
If id="" Then
	  Response.Write("<script language=javascript>alert('请选择记录!');history.back(1);</script>")
	  Response.End
ElseIf Request("Del")="批量移动" Then
    If I_name="" then
	 Response.Write("<script language=javascript>alert('请选择家庭成员!');history.back(1);</script>")
	 Response.End
    End If
    call db("update [{pre}in] set [I_name] = '"&I_name&"' where [I_id] In(" & id & ")",0)
    Response.Write("<script>alert(""移动操作成功！"");location.href=""in.asp?page="&page&""";</script>")
ElseIf Request("Del")="批量删除" Then
    Dim id_Arr,id_lis,rsp
	id_Arr=request("id")
	id_lis=Split(id_Arr,",")
	For Each id IN id_lis
	      Call db("delete from [{pre}in] where I_id="&id,0)
	next
	Call goerror ("ID:"&id_Arr&",删除成功","1")
End If
End Sub
%>
</body>
</html>