📄 list_yewu.asp
字号:
<%
if request.cookies("flag")="" then
response.redirect "login.asp"
response.end
else
%>
<!--#include file="dbconn.asp"-->
<%
CurrentPage=Request.QueryString("pages")
if CurrentPage="" then
CurrentPage=1
end if
set rs=server.createobject("ADODB.recordset")
sql="select * from yewu where (static=0) order by [开始日期] desc"
'sql="select * from yewu order by [到期日期] "
rs.open sql,conn,1,1
%>
<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">
<form name="form1" method="post" action="search.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> <font color="#808080" style="font-size: 9pt">
<select name="classname"> <%set rs3=server.createobject("adodb.recordset")
sql3="select * from class order by id "
rs3.open sql3,conn,1,3
%> <%do while not rs3.eof%> <option value="<%=rs3("class")%>"><font color="#808080" style="font-size: 9pt"><%=rs3("class")%></font></option>
<%
rs3.movenext
loop
%> <%rs3.close
set rs3=nothing
%> </select> </font> <input type="submit" name="Submit" value="搜索"> </div></form><p>
<%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_yewu.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_yewu.asp?pages=<%=prevCurrentPage%>">[上一页<font face="Arial, Helvetica, sans-serif">]</font></a>
<a href="list_yewu.asp?pages=<%=nextCurrentPage%>">[下一页<font face="Arial, Helvetica, sans-serif">]</font></a>
<% elseif (CLng(CurrentPage) = RS.PageCount) and RS.PageCount<>1 then %> <a href="list_yewu.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="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" align="center">
<tr bgcolor="#CCCCCC"> <td width="226" height="28"> <div align="center"><b>企业名称</b></div></td><td width="75" height="28">
<div align="center"><b>业务分类</b></div></td><td width="190" height="28"> <div align="center"><b>具体内容</b></div></td><td width="93" height="28">
<div align="center"><b>开始日期</b></div></td><td width="106" 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="226" height="32"> <div align="left"><a href="list.asp?company=<%=rs("企业名称")%>"><%=rs("企业名称")%></a></div></td><td width="75" height="32">
<div align="center"><%=rs("项目")%></div></td><td width="190" height="32"> <div align="left"><%=rs("具体内容")%></div></td><td width="93" height="32">
<div align="center"><%=rs("开始日期")%></div></td><td width="106" height="32"> <div align="center"><%=rs("到期日期")%></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 + -