批量复制数据(2)

日期：2020-05-13 栏目：程序人生浏览：次

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000"  >
<table width=700 border="0" cellspacing="0" cellpadding="0"  align="center"><%
   const MaxPerPage=100
   dim totalPut
   dim CurrentPage
   dim TotalPages
   dim i,j
   if not isempty(request("page")) then
      currentPage=cint(request("page"))
   else
      currentPage=1
   end if
%>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select  *  from Special inner join view on Special.name =view.name and Special.NClass=view.NClass",conn,1,1
  if rs.eof and rs.bof then
       response.write "<p align=center class=font>暂无软件</p>"
   else
   totalPut=rs.recordcount
      totalPut=rs.recordcount
      if currentpage<1 then
          currentpage=1
      end if
      if (currentpage-1)*MaxPerPage>totalput then
    if (totalPut mod MaxPerPage)=0 then
      currentpage= totalPut MaxPerPage
    else
       currentpage= totalPut MaxPerPage + 1
    end if
      end if
       if currentPage=1 then
            showContent
            showpage totalput,MaxPerPage,"l.asp"
       else
          if (currentPage-1)*MaxPerPage<totalPut then
            rs.move  (currentPage-1)*MaxPerPage
            dim bookmark
            bookmark=rs.bookmark

内容版权声明：除非注明，否则皆为本站原创文章。

转载注明出处：http://www.heiqu.com/2905.html