<% news_id=trim(request("id")) sql="select * from news where id="&news_id Set rs = Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 title=rs("title") pubdate=rs("pubdate") comment=rs("comment") puber=rs("puber") hits=rs("hits") classid=rs("classid") rs.close() set rs=nothing %> <%=title%> <%=website_name%>

栏目导航

<%=title%>



发布日期:<%=pubdate%> 查看:
<%=comment%>

<% '上一篇文章 set rs=conn.execute("select top 1 id,title from news Where id<"&news_id&" Order By id desc") if rs.bof then response.write "上一篇文章:已经是第一篇了" else %> 上一篇文章:"><%=rs("title")%> <% set rs=nothing %> <%end if%>

<% '下一篇文章 set rs=conn.execute("select top 1 id,title from news Where id>"&news_id&" Order By ID asc") if rs.eof then response.write "下一篇文章:已经是最后一篇了" else %> 下一篇文章:"><%=rs("title")%> <% set rs=nothing %> <%end if%>