评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

asp信息查询系统(一)毕业论文网(6)

2013-06-23 01:03 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>

（科教范文网 fw.nseac.com编辑发布）

      <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'>&gt;&gt; 信息分页 "
    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(