📄 list_caiwu.asp
字号:
<%
if request.cookies("flag")="" then
response.write "<script>top.location.href=""login.asp"";</script>"
response.end
else
%>
<!--#include file="dbconn.asp"-->
<html>
<head>
<title>财务记录</title>
<LINK href="css/style.css" type=text/css rel=stylesheet>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p align="center"> </p><form name="form1" method="post" action="search_yewu.asp">
<div align="center"><font color="#808080" style="font-size: 9pt"><font color="#000000">搜索：</font>
<input name="search" size="30" style="border: 1 solid #808080"> </font> <input type="submit" name="Submit" value="搜索">
</div></form><p align="center"> </p><p> <%
CurrentPage=Request.QueryString("pages")
if CurrentPage="" then
CurrentPage=1
end if
set rs=server.createobject("ADODB.recordset")
sql="select * from caiwu order by [开始日期] desc"
rs.open sql,conn,1,1
%> <%if not rs.eof then
rs.AbsolutePage=CurrentPage
prevCurrentPage=CurrentPage-1
nextCurrentPage=CurrentPage+1
%> 共有 <%=Rs.RecordCount%>条记录 </p><p align="right"><font size="2"> <% if CurrentPage <=1 and RS.PageCount<>1 then %>
上一页 </font> <font size="2"><a href="list_caiwu.asp?pages=<%=nextCurrentPage%>"><font face="Arial, Helvetica, sans-serif">
[</font>下一页<font face="Arial, Helvetica, sans-serif">]</font></a> <% elseif CurrentPage>1 and CLng(CurrentPage) < RS.PageCount then %>
<a href="list_caiwu.asp?pages=<%=prevCurrentPage%>">[上一页<font face="Arial, Helvetica, sans-serif">]</font></a>
<a href="list_caiwu.asp?pages=<%=nextCurrentPage%>">[下一页<font face="Arial, Helvetica, sans-serif">]</font></a>
<% elseif (CLng(CurrentPage) = RS.PageCount) and RS.PageCount<>1 then %> <a href="list_caiwu.asp?pages=<%=prevCurrentPage%>">[上一页<font face="Arial, Helvetica, sans-serif">]</font></a>
下一页 <% end if%> </font><font face="Arial, Helvetica, sans-serif" size="2">
</font><font size="2">页次：<%=CurrentPage%></font><font face="Arial, Helvetica, sans-serif" size="2">/<%=RS.PageCount%></font><font size="2">页</font><font face="Arial, Helvetica, sans-serif" size="2">
<%=Rs.PageSize%></font><font size="2">条记录</font><font face="Arial, Helvetica, sans-serif" size="2">/</font><font size="2">页</font></p>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr bgcolor="#CCCCCC"> <td width="39" height="28"> <div align="center"><b>编号</b></div></td><td width="59" height="28">
<div align="center"><b>合同号</b></div></td><td width="208" height="28"> <div align="center"><b>企业名称</b></div></td><td width="53" height="28">
<div align="center"><b><font color="#000000">经办人</font></b></div></td><td width="121" height="28">
<div align="center"><b>业务分类</b></div></td><td width="187" height="28"> <div align="center"><b>具体内容</b></div></td><td width="75" height="28">
<div align="center"><b>日期</b></div></td><td width="53" height="28"> <div align="center"><b>应收金额</b></div></td><td width="53" height="28">
<div align="center"><b>实收金额</b></div></td><td width="53" height="28"> <div align="center"><b>成本支出</b></div></td><td width="53" height="28">
<div align="center"><b>经办人1</b></div></td><td width="53" height="28"> <div align="center"><b>经办人2</b></div></td><td width="82" height="28">
<div align="center"><b>备注</b></div></td></tr> <%
NumRows=0
Num=1
do while not rs.eof and NumRows < rs.PageSize
%> <tr> <td width="39" height="32"> <div align="center"><font color="#0000FF"><b><font face="Arial, Helvetica, sans-serif"><%=rs("id")%></font></b></font></div></td><td width="59" height="32">
<div align="center"><%=rs("合同编号")%></div></td><td width="208" height="32"> <div align="left"> <a href="list.asp?company=<%=rs("企业名称")%>"><%=rs("企业名称")%></a></div></td><td width="53" height="32">
<div align="center"><%=rs("企业经办人")%></div></td><td width="121" height="32"> <div align="center"><%=rs("项目")%></div></td><td width="187" height="32">
<div align="left"> <%=rs("具体内容")%></div></td><td width="75" height="32"> <div align="center"><%=rs("开始日期")%></div></td><td width="53" height="32">
<div align="center"><%=rs("应收金额")%></div></td><td width="53" height="32"> <div align="center"><%=rs("实收金额")%></div></td><td width="53" height="32">
<div align="center"><%=rs("成本支出")%></div></td><td width="53" height="32"> <div align="center"><%=rs("经办人1")%></div></td><td width="53" height="32">
<div align="center"><%=rs("经办人2")%></div></td><td width="82" height="32"> <div align="center"><%=rs("memo")%></div></td></tr>
<%
rs.movenext
NumRows=NumRows+1
Num=Num+1
loop
%> <%rs.close
set rs=nothing
%> </table><%end if%>
</body>
</html>
<%end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -