<% fenlei=request.querystring("fenlei") if fenlei="" then fenlei=request("fenlei") end if id=request.querystring("id") if id="" then id=request("id") end if set rs2=server.createobject("adodb.recordset") if fenlei<>""then if fenlei=3 then sql="select top 5 * from news where id="&id&" and sclass=3" end if sql="select top 5 * from news where sclass="&fenlei&" and id="&id&"" else sql="select * from news where id="&id&"" end if rs2.open sql,conn,1,1 %>
首页 > 资讯中心 ><%if fenlei=1 then%> 企业新闻<%end if%><%if fenlei=2 then%> 行业新闻<%end if%>
<%=rs2("title")%>
<%=rs2("fabu")%>   发布日期 [<%=formatdatetime (rs2("time"),vbShortDate)%>] <%=rs2("content")%>
<% if fenlei=1 then sql1="select * from news where sclass=1 " Set rsm= Server.CreateObject("ADODB.Recordset") rsm.open sql1,conn,1,1 do while not rsm.eof if rsm("id") = rs2("id") then exit do end if rsm.movenext loop %><%rsm.moveprevious%> <%if rsm.bof then response.write "上一篇:没有上一篇了" else %>上一篇:"><%=rsm("title")%>   <% end if rsm.movenext rsm.movenext %>     <% if rsm.eof then response.write "下一篇:没有下一篇了" else %>下一篇:"><%=rsm("title")%>  <%end if%> <%rsm.close set rsm=nothing end if if fenlei=2 then sql1="select * from news where sclass=2 " Set rsm= Server.CreateObject("ADODB.Recordset") rsm.open sql1,conn,1,1 do while not rsm.eof if rsm("id") = rs2("id") then exit do end if rsm.movenext loop %><%rsm.moveprevious%> <%if rsm.bof then response.write "上一篇:没有上一篇了" else %>上一篇:"><%=rsm("title")%>   <% end if rsm.movenext %>     <% if rsm.eof then response.write "下一篇:没有下一篇了" else %>下一篇:"><%=rsm("title")%>  <%end if%> <%rsm.close set rsm=nothing end if if fenlei="" then sql1="select * from news " Set rsm= Server.CreateObject("ADODB.Recordset") rsm.open sql1,conn,1,1 do while not rsm.eof if rsm("id") = rs2("id") then exit do end if rsm.movenext loop %><%rsm.moveprevious%> <%if rsm.bof then response.write "上一篇:没有上一篇了" else %>上一篇:"><%=rsm("title")%>   <% end if rsm.movenext rsm.movenext %>     <% if rsm.eof then response.write "下一篇:没有下一篇了" else %>下一篇:"><%=rsm("title")%>:  <%end if%> <%rsm.close set rsm=nothing end if %> <% rs2.close set rs2=nothing %>