pshp0803 2014-12-25 02:18 采纳率: 0%
浏览 5214

asp,分页代码不能显示第二页问题

下面是源代码,高手给看下

<%
dim sql
dim yie
dim lxid
dim lx
dim bm
dim rsPic
lx=Request.QueryString("lx")
lxid=Request.QueryString("lxid")

if Request.QueryString("yie")=null or Request.QueryString("yie")="" then
    yie=1
else
    yie=cint(Request.QueryString("yie"))
end if

%>

var issj; issj=true; function MM_preloadImages() { //v3.0 var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array(); var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++) if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}} }
                                  <%
                   call getdhlm(lx,lxid,true)
                %>
                            </span></td>
                          </tr>
                      </table></td>
                    </tr>
                </table></td>
              </tr>
            </table></td>
          </tr>
        </table>              </td>
        </tr>
    </table>
      <table width="768" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td align="center" valign="top">

            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td height="8"></td>
              </tr>
            </table>
            <table width="99%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td align="center" valign="top">

                                    <table width="98%" border="0" cellspacing="0" cellpadding="0" id="tab1">
                  <tr>
                    <td height="47"><table width="98%" border="0" cellpadding="0" cellspacing="0">
                        <tr>
                          <td height="58" align="center" valign="top"><%
                ms=15
                dim lb
                if Request.QueryString("lx")="1" then
                   lb="E_typeid"
                end if
                if Request.QueryString("lx")="2" then
                    lb="E_bigclassid"
                end if
                if Request.QueryString("lx")="3" then
                    lb="E_smallclassid"
                end if
                set ldrs=Server.CreateObject("ADODB.Recordset")

                if yie=1 then
                    ldrs.open "select top "  & ms & " * from EC_News where  " & lb & "=" &  lxid & " order by UpdateTime desc ,NewsID desc",conn,3,1
                else
                    ldrs.open "select top "  & ms & " * from EC_News where  " & lb & "=" &  lxid & " and NewsID not in ( select top " & ((cint(yie)-1)*ms) & "  NewsID from EC_News where  " & lb & "=" &  id & " order by UpdateTime desc ,NewsID desc )  order by UpdateTime desc ,NewsID desc",conn,3,1
                end if
               if(ldrs.eof and ldrs.bof) then
            %>
                              <script language='JavaScript' type="text/javascript">
                issj=false;
                  </script>
                              <table width="100%" height="26" border="0" cellpadding="0" cellspacing="0" class="dh">
                                <tr>
                                  <td width="6%" align="center" valign="middle"><img src="xin/xximg/2.gif" /></td>
                                  <td width="94%" class="font2" align="left"><span class="black_link">暂时没有信息</span>........</td>
                                </tr>
                              </table>
                            <%
               else                
                  do while ldrs.eof=false
                     zz=ldrs.fields("Title") 
                     if(len(zz)>50) then
                        zz=mid(zz,1,50) & ".."
                     end if

            %>
                              <table width="100%" height="26" border="0" cellpadding="0" cellspacing="0" class="dh">
                                <tr>
                                  <td width="6%" align="center" valign="middle"><img src="xin/xximg/2.gif" /></td>
                                  <td width="94%" height="30" align="left" class="font4"><a class="font2" target="_blank" href="E_ReadNews.asp?NewsId=<%=ldrs.fields("NewsID")%>" title="<%=ldrs.fields("Title")%>"><font color="#000000"><%=zz%></font> </a> <%if lxid=54 or lxid=86 or lxid=87 then %><font class="hd"><%=" [" & month(ldrs("UpdateTime")) & "-" & day(ldrs("UpdateTime")) & "]"%></font><% end if %></td>
                                </tr>
                              </table>
                            <%
                    ldrs.movenext
                  loop
               end if
               ldrs.close
            %></td>
                        </tr>
                        <tr>
                          <td height="33" align="center" valign="middle"><table width="98%" border="0" cellspacing="0" cellpadding="0">
                              <tr>
                                <td>&nbsp;</td>
                              </tr>
                            </table>
                              <table width="96%" height="23" border="0" cellpadding="0" cellspacing="0">
                                <tr>
                                  <td align="center" valign="middle"><%
                ldrs.open "select count(*)as 数 from EC_News where " & lb & "=" &  lxid ,conn,3,1
                dim zs
                zs=ldrs("数")
                ldrs.close
                dim ys
                ys=((zs-1)/ms) +1 

                for i= 1 to ys
                    if i=yie then 
                      Response.Write("<a href=""lx_list.asp?lx=" & Request.QueryString("lx")  & "&lxid=" & lxid & "&yie=" & i & """ class=""ysab"">" & i & "</a>")
                     else
            %>

&lxid=<%=lxid%>&yie=<%=i%>" class="ysaa"><%=i%>
<%
end if
next
%>









<%

                    if Request.QueryString("lx")="1" then
                        set rsPic=Server.CreateObject("ADODB.Recordset")
                        rsPic.open sql,conn,1,1
                        do while not rsPic.eof
                %>

<%
rsPic.movenext
loop
rsPic.close
set rsPic=nothing
else
%>
<%
end if

                %>
                </td>
              </tr>
            </table></td>
        </tr>
      </table>
      </td>
  </tr>
</table></td>



<%
set ldrs=nothing
conn.close
set conn=nothing
%>

  • 写回答

3条回答 默认 最新

  • 微wx笑 Java领域优质创作者 2014-12-25 14:01
    关注

    还有人在用asp,已经好久没写asp了。你是用sql语句实现的分页?

    评论

报告相同问题?

悬赏问题

  • ¥15 seatunnel-web使用SQL组件时候后台报错,无法找到表格
  • ¥15 fpga自动售货机数码管(相关搜索:数字时钟)
  • ¥15 用前端向数据库插入数据,通过debug发现数据能走到后端,但是放行之后就会提示错误
  • ¥30 3天&7天&&15天&销量如何统计同一行
  • ¥30 帮我写一段可以读取LD2450数据并计算距离的Arduino代码
  • ¥15 飞机曲面部件如机翼,壁板等具体的孔位模型
  • ¥15 vs2019中数据导出问题
  • ¥20 云服务Linux系统TCP-MSS值修改?
  • ¥20 关于#单片机#的问题:项目:使用模拟iic与ov2640通讯环境:F407问题:读取的ID号总是0xff,自己调了调发现在读从机数据时,SDA线上并未有信号变化(语言-c语言)
  • ¥20 怎么在stm32门禁成品上增加查询记录功能