list.asp

matlab 在运筹学中的应用: 之线性规划例程

<!--#include file="conn.asp"-->
<%
exec="select * from test "
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
rs.PageSize=3
pagecount=rs.PageCount 
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page

%> <a href="add.htm" target="_self">add</a><br> 
<table width="748" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>del</td>
    <td>aa</td>
    <td>bb</td>
  </tr>
  <%for i=1 to rs.PageSize%> 
        <%if rs.EOF then 
        exit for
        end if%>
  <tr>
    <td><a href="del.asp?id=<%=rs("id")%>">del</a></td>
    <td><a href="modify.asp?id=<%=rs("id")%>" target="_self"><%=rs("aa")%></a></td>
    <td><%=rs("bb")%></td>
  </tr>
  <%rs.movenext
next
%><tr>
	<td colspan=3 align=right>
	<%if page=1 and not page=pagecount then%>
            <div align="right">第<%=page%>页&nbsp;&nbsp;<%for i=1 to pagecount%>
			<a   href="list.asp?page=<%=i%>"><%=i%></a>&nbsp;<%next%><a   href="list.asp?page=<%=page+1%>">下一页</a>&nbsp;&nbsp;</div>
             <%elseif page=pagecount and not page=1 then%>
            <div align="right">第<%=page%>页&nbsp;&nbsp;<%for i=1 to pagecount%>
			<a   href="list.asp?page=<%=i%>"><%=i%></a>&nbsp;<%next%><a   href="list.asp?page=<%=page-1%>">上一页</a>&nbsp;&nbsp;</div>
            <%elseif page<1 then%><div class="font" align="right"><font color=red>没有任何记录！</font></div>
            <%elseif page>pagecount then%><div class="font" align="right"><font color=red>没有任何记录！</font></div>
             <%elseif page=1 and page=pagecount then%>
            <%else%>
            <div align="right">第<%=page%>页&nbsp;&nbsp;<%for i=1 to pagecount%>
			<a   href="list.asp?page=<%=i%>"><%=i%></a>&nbsp;<%next%><a   href="list.asp?page=<%=page-1%>">上一页</a> 
              <a   href="list.asp?page=<%=page+1%>">下一页</a>&nbsp;&nbsp;</div>
            <%end if%>
	</td>
  </tr>	
</table>
<%

rs.close
set rs=nothing
conn.close
set conn=nothing
%>