happyxp · 发表于 2010-1-8 19:24:30

产品展示：
<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"> 上一个：暂时没有</div>
                                  <%else%>
                                    <div align="center"> 上一个：<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

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

新闻页面：
<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"> 上一篇文章：暂时没有</div>
                                  <%else%>
                                    <div align="center"> 上一篇文章：<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">  下一篇文章：暂时没有</div>
                                  <%else%>
                                    <div align="center">  下一篇文章：<a title="<%=rs2("news_title")%>" href="view.asp?id=<%=rs2("news_id")%>"><%=rs2("news_title")%></a></div>
                                  <%end if%></td>
                              </tr>
                            </table>

hldxu6gu · 发表于 2010-1-28 20:40:00

好。。。。支持一下

hldlko22 · 发表于 2010-3-12 01:53:45

ssssssssssssssssssss

shandi0755 · 发表于 2010-3-25 10:00:52

ssssssssssssssssssss

hldtkklu · 发表于 2010-3-26 18:22:37

3333333333333333

ASP上一页 下一页代码

ASP上一页下一页代码