📄 fee_detail.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="admin_dn.asp" -->
<%
if Trim(Request.QueryString("w"))="del" then
sql="delete from memo where userid='"&request("us")&"'"
conn.execute(sql)
%>
<script language="VBScript" type="text/VBScript">
msgbox "日志删除成功"
</script>
<%
end if
if Trim(Request.QueryString("w"))="del1" then
sql="delete from memo where id="&request("id")
conn.execute(sql)
%>
<script language="VBScript" type="text/VBScript">
msgbox "日志删除成功"
</script>
<%
end if
dim mo1(12),da1(31),mo2(12),da2(31)
if Trim(Request("w"))="search" then
if Trim(Request("select"))="dat" then
sql="select * from memo where dat=#"&request("search")&"# order by id desc"
end if
if Trim(Request("select"))="userid" then
sql="select * from memo where userid='"&request("search")&"' order by id desc"
end if
else
sql="select * from memo where dat=date() order by id desc"
end if
if Trim(Request("w"))="searchd" then
da3=Trim(Request.Form("year1"))&"-"&Trim(Request.Form("month1"))&"-"&Trim(Request.Form("day1"))
da4=Trim(Request.Form("year2"))&"-"&Trim(Request.Form("month2"))&"-"&Trim(Request.Form("day2"))
'Response.Write(da3)
'Response.Write(da4)
sql="select * from memo where dat between #"&da4&"# and #"&da3&"#"
'sql="select * from memo where dat between #2003-4-1# and #2003-5-1#"
end if
'Response.Write(sql)
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="image/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="5" topmargin="5">
<p align="left">财务日志管理</p>
<form name="form1" method="post" action="fee_detail.asp?w=search">
<table width="86%" height="24" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="15%">关键字：</td>
<td width="85%"><input name="search" type="text" id="search" size="15">
搜索类目：
<select name="select">
<option value="userid" selected>用户名</option>
<option value="dat">日期</option>
</select>
<font color="#FF0000">
<input type="submit" name="Submit" value="查询">
日期以 年-月-日</font></td>
</tr>
</table>
</form>
<form name="form2" method="post" action="fee_detail.asp?w=searchd">
<p align="center">按日期搜索：
<input name="year1" type="text" id="year1" value="<%=year(now)%>" size="4">
年
<select name="month1" id="month1">
<% for i= 1 to 12
if i=month(now)-1 then
mo1(i)="selected"
else
mo1(i)=""
end if
%>
<option value="<%= i%>" <%= mo1(i) %>><%= i %></option>
<% next %>
</select>
月
<select name="day1" id="day1">
<% for i= 1 to 31
if i=day(now) then
da1(i)="selected"
else
da1(i)=""
end if
%>
<option value="<%= i%>" <%= da1(i) %>><%= i %></option>
<% next %>
</select>
日 <font color="#FF0000">至</font>
<input name="year2" type="text" id="year2" value="<%=year(now)%>" size="4">
年
<select name="month2" id="month2">
<% for i= 1 to 12
if i=month(now) then
mo1(i)="selected"
else
mo1(i)=""
end if
%>
<option value="<%=i%>" <%= mo1(i) %>><%= i %></option>
<% next %>
</select>
月
<select name="day2" id="day2">
<% for i= 1 to 31
if i=day(now) then
da1(i)="selected"
else
da1(i)=""
end if
%>
<option value="<%= i%>" <%= da1(i) %>><%= i %></option>
<% next %>
</select>
日 <font color="#FF0000">
<input type="submit" name="Submit2" value="查询">
</font></p>
</form>
<p align="center"> </p>
<p align="center">－<a href="fee_all.asp">显示所有财务管日</a>－ -<a href="fee_detail.asp">显示今天财务日志</a>-</p>
<table width="100%" height="57" border="0" cellpadding="0" cellspacing="2">
<tr bgcolor="#D9D9D9">
<td width="9%" height="12"><div align="center"><font color="#990000">用 户 名</font></div></td>
<td width="13%"><div align="center"><font color="#990000">操 作</font></div></td>
<td width="31%" bgcolor="#D9D9D9"><div align="center"><font color="#990000">项 目</font></div></td>
<td width="6%"><div align="center"><font color="#990000">入 账</font></div></td>
<td width="8%"><div align="center"><font color="#990000">支 出</font></div></td>
<td width="7%"><div align="center"><font color="#993300">余 额</font></div></td>
<td width="18%"><div align="center"><font color="#990000">交易日期</font></div></td>
<td width="8%"> </td>
</tr>
<%
rs.open sql,conn,1,1
while not rs.eof
%>
<tr bgcolor="#FAFAFA">
<td height="21"><div align="center"><font color="#FF0000"><%= rs("userid") %></font></div></td>
<td><div align="center"><font color="#FF0000"><%= rs("log") %></font></div></td>
<td><div align="center"><font color="#FF0000"><%= rs("body") %></font></div></td>
<td><div align="center"><font color="#000066">
<% if rs("je")<0 then
Response.Write("/")
else
Response.Write(rs("je"))
end if%>
</font></div></td>
<td><div align="center"><font color="#000066">
<% if rs("je")>=0 then
Response.Write("/")
else
Response.Write(rs("je"))
end if%>
</font></div></td>
<td><div align="center"><font color="#000099"><%= rs("zje") %></font></div></td>
<td><div align="center"><font color="#FF0000"><%= rs("dat") %></font></div></td>
<td><div align="center"><a href="fee_detail.asp?w=del1&id=<%=rs("id")%>"><img src="image/4.jpg" width="16" height="16" border="0"></a></div></td>
</tr>
<%
rs.movenext
wend
rs.close %>
<tr bgcolor="#D9D9D9">
<td height="16" colspan="8"> </td>
</tr>
</table>
<p align="center"> </p>
<form name="form3" method="post" action="fee_detail.asp?w=del">
<div align="center">
<p><font color="#990000">删除用户财务记录</font> 请输入用户名：
<input name="us" type="text" id="us" size="10">
<input type="submit" name="Submit3" value="-确定删除-">
<font color="#FF0000">注：删除后将不可以恢复过来</font></p>
</div>
</form>
<p align="center"> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -