% 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("é?ò??a:") 'response.Write("??óDá?") else a2=newrs("ID") response.Write("é?ò??a:") 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 %> <% '?¨ò?ò???theheado?êyà'?ò3???ò??a??ID??è?1??±?°????ò??-ê?**?°????ò?ì????????òê?3???×??°??óDá??± 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("??ò??a:") 'response.Write("??óDá?") else a0=headrs("ID") response.Write("??ò??a:") 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澳门123696con丶123696-澳门123696con393444-393444cm开奖结果澳门-2021奥门今天开码结果626965