<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% '****************************************************** 'Depiction:ShowPrev 'Param:CiassID 类别ID号 ' id 当前文章ID号 'Returns:返回上一篇文章的链接 '****************************************************** Sub ShowPrev(ClassID,id) sqltemp = "Select top 1 * from news Where id > "& id &" And ClassID = "& ClassID &" order by id asc" Set rstemp = Conn.Execute(sqltemp) If Not rstemp.Eof Then Response.Write ""&rstemp("title")&"" Else Response.Write "已经是最前一篇了" End If rstemp.Close Set rstemp = Nothing End Sub '****************************************************** 'Depiction:ShowNext 'Param:CiassID 类别ID号 ' id 当前文章ID号 'Returns:返回下一篇文章的链接 '****************************************************** Sub ShowNext(ClassID,id) sqltemp = "Select top 1 * from news Where id < "& id &" And ClassID = "& ClassID &" order by id desc" Set rstemp = Conn.Execute(sqltemp) If Not rstemp.Eof Then Response.Write ""&rstemp("title")&"" Else Response.Write "已经是最后一篇了" End If rstemp.Close Set rstemp = Nothing End Sub %> <% dim id : id=CheckID(request("id")) if id="" then errAlert "参数错误","" end if set rsnews=conn.execute("select * from news where id="&id&"") if rsnews.eof then errAlert "参数错误","" else %> <%=rsnews("Title")&"-"&webName %> " /> " />

新闻中心

<%=rsnews("Title")%>

时间:<%=FormatDate(rsnews("times"),4)%> 【 字体: 】【打印此页】 
<%=rsnews("Content")%>
<% classid=rsnews("classid") response.Write("上一条:") call ShowPrev(ClassID,id) response.Write("
下一条:") call ShowNext(ClassID,id) %>
<% end if rsnews.close set rsnews=nothing %>