<% id = Cint(replace(trim(Request("id")),"'","")) if id = "" then response.Write errorBack("ERROR","") response.End() end if set rs=server.CreateObject("ADODB.RECORDSET") SQL="select a.*,b.classname from news a left join newsclass b on a.classid=b.id where a.id= " & id rs.open SQL,conn,1,1 if rs.EOF then response.Write errorBack("ERROR","") response.End() else titlename = rs("Title") classid = rs("classid") classname = rs("classname") content = rs("Content") memo = rs("memo") hits = rs("hits") updatetime = rs("updatetime") xgss = rs("xgss") end if rs.close set rs = nothing function thenext newrs=server.CreateObject("adodb.recordset") sql="select top 1 * from news where UpdateTime<#"& UpdateTime &"# order by UpdateTime desc " set newrs=conn.execute(sql) if newrs.eof then 'response.Write("上一篇:") 'response.Write("没有了") else a2=newrs("ID") response.Write("上一篇:") response.Write"" if len(newrs("title"))>80 then response.write(left(newrs("title"),80)&"...") else response.write(newrs("title")) end if response.Write "" end if newrs.close set newrs = nothing end function %> <% '定义一个thehead函数来找出下一篇的ID,如果当前记录已经是**前面的一条记录,则输出文字“没有了” function thehead headrs=server.CreateObject("adodb.recordset") sql="select top 1 * from news where UpdateTime>#"& UpdateTime &"# order by UpdateTime " set headrs=conn.execute(sql) if headrs.eof then 'response.Write("下一篇:") 'response.Write("没有了") else a0=headrs("ID") response.Write("下一篇:") response.Write"" if len(headrs("title"))>80 then response.write(left(headrs("title"),80)&"...") else response.write(headrs("title")) end if response.Write "" end if headrs.close set headrs = nothing end function %> <% sitetitle = titlename & "-" & con_comname sitekeyword = xgss sitedesc = memo %>

产品分类

联系我们

联 系 人:  周经理
手    机:  13455808198
邮    箱:  1196152762@qq.com
Q Q:  1196152762
网    址:  www.hongfengzuanji.com
地    址:  泰安市新泰市新兴路中段

新闻详细

您现在的位置:首页 > 新闻动态 <% if classname <>"" then %> > 行业新闻<% end if %>
<% news_Detail %> <% show_xiangguan xgss %>

热线:13455808198