<%
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")%>
<%=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
%>