out.asp

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

	While (NOT rst.EOF)
	Response.Write("<option value=" & rst("n_name") & ">")
	Response.Write(rst("n_name"))
	Response.Write("</option>")
	rst.MoveNext()
	Wend
	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=o'" 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="o_name" id="o_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="o_y" name="o_y" showName="衣/鞋/帽" required="true" size="40" maxlength="50" /></td>
</tr>
<tr>
  <td class="b1_1">主副食品</td>
  <td class="b1_1"><input type="text" id="o_s" name="o_s" showName="主副食品" required="true" size="40" maxlength="50" /></td>
</tr>
<tr>
  <td class="b1_1">房租房贷</td>
  <td class="b1_1"><input type="text" id="o_z" name="o_z" showName="房租房贷" required="true" size="40" maxlength="50" /></td>
</tr>
<tr>
  <td class="b1_1">路费旅游</td>
  <td class="b1_1"><input type="text" id="o_x" name="o_x" showName="路费旅游" required="true" size="40" maxlength="50" /></td>
</tr>
<tr>
  <td class="b1_1">水电话网</td>
  <td class="b1_1"><input type="text" id="o_sdhw" name="o_sdhw" showName="水电话网" required="true" size="40" maxlength="50" /></td>
</tr>
<tr>
  <td class="b1_1">车贷商贷</td>
  <td class="b1_1"><input type="text" id="o_dk" name="o_dk" showName="车贷商贷" required="true" size="40" maxlength="50" /></td>
</tr>
<tr>
  <td class="b1_1">日用化妆</td>
  <td class="b1_1"><input type="text" id="o_ry" name="o_ry" showName="日用化妆" required="true" size="40" maxlength="50" /></td>
</tr>
<tr>
  <td class="b1_1">其他支出</td>
  <td class="b1_1"><input type="text" id="o_qt" name="o_qt" showName="其他支出" required="true" size="40" maxlength="50" /></td>
</tr>
<tr>
  <td class="b1_1">本次记录备注</td>
  <td class="b1_1"><textarea id="o_bz" name="o_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 o_name,o_date,o_y,o_s,o_z,o_x,o_sdhw,o_dk,o_ry,o_sj,o_qt,o_bz
o_name=Request.Form("o_name")
o_date=now()
o_y=CCur(Request.Form("o_y"))
o_s=CCur(Request.Form("o_s"))
o_z=CCur(Request.Form("o_z"))
o_x=CCur(Request.Form("o_x"))
o_sdhw=CCur(Request.Form("o_sdhw"))
o_dk=CCur(Request.Form("o_dk"))
o_ry=CCur(Request.Form("o_ry"))
o_qt=CCur(Request.Form("o_qt"))
o_sj=CCur(o_y+o_s+o_z+o_x+o_sdhw+o_dk+o_ry+o_qt)
o_bz=Request.Form("o_bz")
set rs=db("select top 1 * from [{pre}out]",3)
rs.addnew
rs("o_name")=o_name
rs("o_date")=o_date
rs("o_y")=o_y
rs("o_s")=o_s
rs("o_z")=o_z
rs("o_x")=o_x
rs("o_sdhw")=o_sdhw
rs("o_dk")=o_dk
rs("o_ry")=o_ry
rs("o_qt")=o_qt
rs("o_sj")=o_sj
rs("o_bz")=o_bz
rs.update
Rs.Close
Call goerror("数据录入成功！","out.asp")
end sub
'--------单个删除-------------------------------------------------------------------------------------------------
sub del()
    Dim id,page
	page=request("page")
	id=request("id")
	Call db("delete from [{pre}out] where o_id="&id,0)
	Response.write"<script>alert(""删除成功！"");location.href=""out.asp?page="&page&""";</script>"
end sub
'--------编辑-------------------------------------------------------------------------------------------------
sub edit()
Dim id,page
page=request("page")
id=request("id")
set rs = db("select * from [{pre}out] where o_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="o_name" id="o_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("o_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="o_y" name="o_y" showName="衣/鞋/帽" required="true" size="40" maxlength="50" value="<%=rs("o_y")%>"/></td>
</tr>
<tr>
  <td class="b1_1">主副食品</td>
  <td class="b1_1"><input type="text" id="o_s" name="o_s" showName="主副食品" required="true" size="40" maxlength="50" value="<%=rs("o_s")%>"/></td>
</tr>
<tr>
  <td class="b1_1">房租房贷</td>
  <td class="b1_1"><input type="text" id="o_z" name="o_z" showName="房租房贷" required="true" size="40" maxlength="50" value="<%=rs("o_z")%>"/></td>
</tr>
<tr>
  <td class="b1_1">路费旅游</td>
  <td class="b1_1"><input type="text" id="o_x" name="o_x" showName="路费旅游" required="true" size="40" maxlength="50" value="<%=rs("o_x")%>"/></td>
</tr>
<tr>
  <td class="b1_1">水电话网</td>
  <td class="b1_1"><input type="text" id="o_sdhw" name="o_sdhw" showName="水电话网" required="true" size="40" maxlength="50" value="<%=rs("o_sdhw")%>"/></td>
</tr>
<tr>
  <td class="b1_1">车贷商贷</td>
  <td class="b1_1"><input type="text" id="o_dk" name="o_dk" showName="车贷商贷" required="true" size="40" maxlength="50" value="<%=rs("o_dk")%>"/></td>
</tr>
<tr>
  <td class="b1_1">日用化妆</td>
  <td class="b1_1"><input type="text" id="o_ry" name="o_ry" showName="日用化妆" required="true" size="40" maxlength="50" value="<%=rs("o_ry")%>"/></td>
</tr>
<tr>
  <td class="b1_1">其他支出</td>
  <td class="b1_1"><input type="text" id="o_qt" name="o_qt" showName="其他支出" required="true" size="40" maxlength="50" value="<%=rs("o_qt")%>"/></td>
</tr>
<tr>
  <td class="b1_1">本次记录备注</td>
  <td class="b1_1"><textarea id="o_bz" name="o_bz" rows="15" cols="60" ><%=rs("o_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 o_name,o_date,o_gwgz,o_gngz,o_ylbx1,o_ylbx2,o_zfgjj,o_sybx,o_nj,o_sds,o_jj,o_qt,o_sd,o_bz

id=request.Form("id")
page=request.Form("page")
o_name=Request.Form("o_name")
'o_date=now()
o_y=CCur(Request.Form("o_y"))
o_s=CCur(Request.Form("o_s"))
o_z=CCur(Request.Form("o_z"))
o_x=CCur(Request.Form("o_x"))
o_sdhw=CCur(Request.Form("o_sdhw"))
o_dk=CCur(Request.Form("o_dk"))
o_ry=CCur(Request.Form("o_ry"))
o_qt=CCur(Request.Form("o_qt"))
o_sj=CCur(o_y+o_s+o_z+o_x+o_sdhw+o_dk+o_ry+o_qt)
o_bz=Request.Form("o_bz")

set rs=db("select * from [{pre}out] where o_id="&id,3)
rs("o_name")=o_name
'rs("o_date")=o_date
rs("o_y")=o_y
rs("o_s")=o_s
rs("o_z")=o_z
rs("o_x")=o_x
rs("o_sdhw")=o_sdhw
rs("o_dk")=o_dk
rs("o_ry")=o_ry
rs("o_qt")=o_qt
rs("o_sj")=o_sj
rs("o_bz")=o_bz
rs.update
rs.close
Call goerror("数据修改成功！","out.asp?page="&page)
end sub
'--------批量删除-------------------------------------------------------------------------------------------------
Sub delAll

Dim id,o_name,page
id=Trim(Request("id"))
o_name=Request("o_name")
page=request("page")
If id="" Then
	  Response.Write("<script language=javascript>alert('请选择记录!');history.back(1);</script>")
	  Response.End
ElseIf Request("Del")="批量移动" Then
    If o_name="" then
	 Response.Write("<script language=javascript>alert('请选择家庭成员!');history.back(1);</script>")
	 Response.End
    End If
    call db("update [{pre}out] set [o_name] = '"&o_name&"' where [o_id] In(" & id & ")",0)
    Response.Write("<script>alert(""移动操作成功！"");location.href=""out.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}out] where o_id="&id,0)
	next
	Call goerror ("ID:"&id_Arr&",删除成功","1")
End If
End Sub
%>
</body>
</html>