ASP版上一篇下一篇代码

1. <%
   
2. 
   
3. 
   
4. Sub The_Next()
   
5. Dim rstArticle,strSQL
   
6. Dim ID_New      
   
7.    
   
8.         strSQL="select top 1 id,typeid,title from article where id>"&intID&" order by id"               
   
9.                   
   
10.        Set rstArticle=conn.Execute(strSQL)
    
11.             if rstArticle.eof then
    
12.                Response.Write " <p class='tt'>下一篇：<a href='javascript:'>没有了</a></p>"
    
13.             else
    
14.                ID_New=rstArticle(0)
    
15.                Response.Write " <p class='tt'>下一篇：<a href='?pid=53&tid="&rstArticle(1)&"&id="&ID_New&"'>"&rstArticle(2)&"</a></p>"
    
16.             end if
    
17. end Sub
    
18. 
    
19. Sub The_Previous()
    
20. Dim rstArticle,strSQL
    
21. Dim ID_New        
    
22.         strSQL="select top 1 id,typeid,title from article where id<"&intID&" order by id"
    
23.                   Set rstArticle=conn.Execute(strSQL)               
    
24.                    if rstArticle.eof then
    
25.                Print " <p class='tt'>上一篇：<a href='javascript:'>没有了</a></p>"
    
26.             else
    
27.                ID_New=rstArticle("id")
    
28.                           
    
29.                Print  " <p class='tt'>上一篇：<a href='?pid=53&tid="&rstArticle(1)&"&id="&ID_New&"'>"&rstArticle(2)&"</a></p>"
    
30.             end if
    
31.                        
    
32.                 rstArticle.Close()
    
33.        Set rstArticle=Nothing
    
34.                                   
    
35. end Sub
    
36. 
    
37. 
    
38. 
    
39. %>

复制代码