新闻内容页【上一页】【下一页】

 

<%

Dim pid1
pid1=cstr(request("id"))

%>

 

 = = = = = = = = =

 

<div class="pageUpDown">
上一篇：<%=Getpre()%><br />下一篇：<%=Getnext()%>
</div>

 

 = = = = = == = =

 

 

 

 

<%
function Getpre
sql="select top 1 * from Howia_news where id>"&pid1&" order by id"
set rs=conn.execute(sql)
    if rs.eof or rs.bof then
        response.Write("没有新闻了")
    else
        pid2=rs("id")
        response.Write("<a href='newsview.asp?id="&pid2&"'>"&rs("newsname")&"</a>")
    endif
end function 

function Getnext
sql="select top 1 * from Howia_news where id<"&pid1&" order by id desc"
set rs=conn.execute(sql)
    if rs.eof then
        response.Write("没有新闻了")
    else
        pid3=rs("id")
        response.Write("<a href='newsview.asp?id="&pid3&"'>"&rs("newsname")&"</a>")
    endif
end function
%>