📄 name.asp
字号:
<!--#include file="Inc/const.asp"-->
<!--#include file="cookies.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>雷诺家庭财务管理系统HomeIO2.0</title>
<link href="images/Admin_css.css" type=text/css rel=stylesheet>
</head>
<body>
<%
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()
else
call List()
end if
sub List()
Dim Sqlp,Rsp,TempStr
%>
<table border="0" cellspacing="2" cellpadding="3" align="center" class="admintable">
<tr>
<td colspan="6" align=left class="admintitle">家庭成员列表 [<a href="?action=add">添加</a>]</td>
</tr>
<tr align="center">
<td class="ButtonList">家庭成员名称</td>
<td class="ButtonList">操 作</td>
</tr>
<%
Set rs = db("SELECT * FROM [{pre}name]",2)
While (NOT rs.EOF)
%>
<tr bgcolor="#f1f3f5" onMouseOver="this.style.backgroundColor='#EAFCD5';this.style.color='red'" onMouseOut="this.style.backgroundColor='';this.style.color=''">
<td height="25" class="tdleft"><B><%=rs("n_Name")%></B></td>
<td align="center"><a href="in.asp?i_name=<%=rs("n_Name")%>">[TA的收入]</a> | <a href="out.asp?o_name=<%=rs("n_Name")%>">[TA的支出]</a> | <a href="?action=edit&id=<%=rs("n_id")%>">编辑</a> | <a href="?action=del&id=<%=rs("n_id")%>&n_name=<%=rs("n_Name")%>" onClick="JavaScript:return confirm('删除家庭成员同时会TA的所有收入支出记录！确定？')">删除</a></td>
</tr>
<%
rs.MoveNext()
Wend
rs.Close()
%>
</table>
<%
end sub
sub add()
%>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="2" bgcolor="#FFFFFF" class="admintable">
<tr>
<td colspan="5" class="admintitle">添加家庭成员</th></tr>
<form action="?action=savenew" method=post>
<tr>
<td width="20%" class=b1_1>家庭成员名称</td>
<td colspan=4 class=b1_1><input type="text" name="n_name" size="30"></td>
</tr>
<tr>
<td width="20%" class=b1_1></td>
<td class=b1_1 colspan=4><input type="submit" name="Submit" value="添 加"></td>
</tr></form>
</table>
<%
end sub
sub del()
Dim id,n_name
id=request("id")
n_name=request("n_name")
Call db("delete from [{pre}in] where i_name='"&n_name&"'",0)
Call db("delete from [{pre}out] where o_name='"&n_name&"'",0)
Call db("delete from [{pre}name] where n_id="&id,0)
Response.write"<script>alert(""删除成员成功！"");location.href=""name.asp"";</script>"
end sub
sub savenew()
Dim n_name
if trim(request.form("n_name"))="" then
Response.write"<script>alert(""请填写成员名称！"");location.href=""?action=add"";</script>"
Response.End
end if
n_name=trim(request.form("n_name"))
set rs = db("select * from [{pre}name] where [n_Name]='"& n_name &"'",3)
if rs.eof and rs.bof then
rs.AddNew
rs("n_name") =n_name
rs.update
Response.write"<script>alert(""恭喜,添加成功！"");location.href=""name.asp"";</script>"
else
Response.write"<script>alert(""添加失败，该成员已经存在！"");location.href=""name.asp"";</script>"
end if
rs.close
end sub
sub edit()
Dim id
id=request("id")
set rs = db("select * from [{pre}name] where n_id="&id,2)
%>
<table width="95%" border="0" align=center cellpadding="3" cellspacing="2" bgcolor="#FFFFFF" class="admintable">
<form action="?action=savedit" method=post>
<tr>
<td colspan="5" class="admintitle">修改家庭成员</td>
</tr>
<tr>
<td width="20%" class="b1_1">家庭成员名称</td>
<td colspan=4 class=b1_1><input type="text" name="n_Name" size="30" value="<%=rs("n_Name")%>"></td>
</tr>
<tr>
<td width="20%" class="b1_1"></td>
<td class=b1_1 colspan=4><input name="id" type="hidden" value="<%=rs("n_ID")%>"><input type="submit" name="Submit" value="提 交"></td>
</tr>
</form>
</table>
<%
rs.close
end sub
sub savedit()
Dim id,n_Name
id=request.form("id")
n_Name=request.form("n_Name")
set rs = db("select * from [{pre}name] where n_ID="&id,3)
if not(rs.eof and rs.bof) then
rs("n_Name") =n_Name
rs.update
Response.write"<script>alert(""恭喜,修改成功！"");location.href=""name.asp"";</script>"
else
Response.write"<script>alert(""修改错误！"");location.href=""name.asp"";</script>"
end if
rs.close
end sub
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -