asp信息查询系统(六)

asp信息查询系统(六) bsp;        <td width="14%" align="center"><strong>修改</strong></td>
          <td width="14%" align="center"><strong>删除</strong></td>
        </tr>
        <%do while not rs.eof%>
        <tr>
          <td width="12%" height="7">
            <p align="center"><%=rs("articleid")%>
          </td>
          <td width="13%" height="7">
            <div align="center"><%=rs("type")%></div>
          </td>
          <td width="47%" height="7"><a href="viewarticle.asp?id=<%=rs("articleid")%>"><%=rs("title")%></a></td>
          <td width="14%" align="center" height="7"><a    href="edit.asp?id=<%=rs("articleid")%>">修改</a></td>
          <td width="14%" align="center" height="7"><a    href="delete.asp?id=<%=rs("articleid")%>">删除</a></td>
        </tr>
        <% i=i+1
       if i>=MaxPerPage then exit do
       rs.movenext
    loop
    %>
      </table>
      <p><%
   end sub

   sub showpages()
          dim n
    if (totalPut mod MaxPerPage)=0 then
       n= totalPut \ MaxPerPage
    else
       n= totalPut \ MaxPerPage + 1
    end if
    if n=1 then
        response.write "<p align='left'><a href=add.asp>添加信息</a>"
      response.write "</p>"
        exit sub
       end if

    dim k
    response.write "<p align='left'>>> 信息分页 "
    for k=1 to n
        if k=currentPage then
           response.write "[<b>"+Cstr(k)+"</b>] "
     else
        response.write "[<b>"+"<a href='manage.asp?page="+cstr(

首页上一页 3 4 5 6 7 8 9 下一页尾页 6/17/17

asp信息查询系统(六)由免费论文网（www.jaoyuw.com）会员上传。