ASP上一页 下一页代码

happyxp

产品展示：
<table width="100%" border="0" cellspacing="0" cellpadding="0">
                              <tr>
                                <td><%qid=request.QueryString("id")
         'response.write qid
         set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select top 1 * from xld_product where pro_id="& qid-1 &""
'response.Write(sql1)
rs1.open sql1,conn,1,1
if rs1.eof and rs1.bof then
%>
                                    <div align="center">&nbsp;上一个：暂时没有</div>
                                  <%else%>
                                    <div align="center">&nbsp;上一个：<a title="<%=rs1("pro_title")%>" href="zp_view.asp?id=<%=rs1("Pro_id")%>"><%=rs1("pro_title")%></a></div>
                                  <%end if%></td>
                                <td><%
set rs2=Server.CreateObject("ADODB.Recordset")
sql2="select top 1 * from xld_product where pro_id>"& qid &" order by pro_id asc"
'response.Write(sql2)
rs2.open sql2,conn,1,1
if rs2.eof and rs2.bof then

% W7 d, H$ f0 N) T3 o

%>
                                    <div align="center">&nbsp;&nbsp;下一个：暂时没有</div>
                                  <%else%>
                                    <div align="center">&nbsp;&nbsp;下一个：<a title="<%=rs2("pro_title")%>" href="zp_view.asp?id=<%=rs2("pro_id")%>"><%=rs2("pro_title")%></a></div>
                                  <%end if%></td>
                              </tr>
                            </table>

, l) H" F) a* |. O

新闻页面：
<table width="100%" border="0" cellspacing="0" cellpadding="0">
                              <tr>
                                <td><%qid=request.QueryString("id")
        
         'response.Write(hddido)
set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select * from xld_news where news_id="& qid-1 &""
rs1.open sql1,conn,1,1
if rs1.eof and rs1.bof then
%>
                                    <div align="center">&nbsp;上一篇文章：暂时没有</div>
                                  <%else%>
                                    <div align="center">&nbsp;上一篇文章：<a title="<%=rs1("news_title")%>" href="view.asp?id=<%=rs1("news_id")%>"><%=rs1("news_title")%></a></div>
                                  <%end if%></td>
                                <td><%
set rs2=Server.CreateObject("ADODB.Recordset")
sql2="select * from xld_news where news_id>"&qid&""
rs2.open sql2,conn,1,1
if rs2.eof and rs2.bof then
%>
                                    <div align="center">&nbsp;&nbsp;下一篇文章：暂时没有</div>
                                  <%else%>
                                    <div align="center">&nbsp;&nbsp;下一篇文章：<a title="<%=rs2("news_title")%>" href="view.asp?id=<%=rs2("news_id")%>"><%=rs2("news_title")%></a></div>
                                  <%end if%></td>
                              </tr>
                            </table>

hldxu6gu

好。。。。支持一下

hldlko22

ssssssssssssssssssss

shandi0755

ssssssssssssssssssss

hldtkklu

3333333333333333