<% pid=0 set rs=server.CreateObject("adodb.recordset") if request("partid")<>"" then pid=request("partid") sql="select * from Industry_sort where upid="&request("partid")&" order by paixu asc" else sql="select * from Industry_sort where Upid=0 order by paixu asc" end if rs.open sql,conn,1,1 j=1 do while not rs.eof if cint(rs("id"))=cint(pid) then %> <% else %> <% end if j=j+1 rs.movenext loop rs.close set rs=nothing %>
<%if tname<>"" then%><%=tname%> <%else%>新闻资讯 <%end if%>
&smallid=<%=rs("id")%>"><%=rs("Sortname")%>
&smallid=<%=rs("id")%>"><%=rs("Sortname")%>
最新更新
<% set rs=server.CreateObject("adodb.recordset") sql="select top 9 * from news where ttype="&request("partid")&" or ttype in (select id from Industry_sort where Upid="&request("partid")&") order by tui desc,addtime desc" rs.open sql,conn,1,1 p=1 do while not rs.eof times=split(rs("addtime")," ") %>·&partid=4&smallid=<%=rs("ttype")%>" target="_blank"><%=left(rs("t_name"),16)%><%if i<9 then%>
<%end if%> <% p=p+1 rs.movenext loop rs.close set rs=nothing %>
本类热门
<% set rs=server.CreateObject("adodb.recordset") sql="select top 9 * from news where ttype="&request("partid")&" or ttype in (select id from Industry_sort where Upid="&request("partid")&") order by times desc,addtime desc" rs.open sql,conn,1,1 p=1 do while not rs.eof times=split(rs("addtime")," ") %>·&partid=4&smallid=<%=rs("ttype")%>" target="_blank"><%=left(rs("t_name"),16)%><%if i<9 then%>
<%end if%> <% p=p+1 rs.movenext loop rs.close set rs=nothing %>
<%if tname<>"" then%><%=tname%> <%else%>新闻资讯 <%end if%>
<% set rs=server.CreateObject("adodb.recordset") if request("partid")<>"" then sql="select * from Industry_sort where upid="&request("partid")&" order by paixu asc" else sql="select * from Industry_sort where Upid=0 order by paixu asc" end if rs.open sql,conn,1,1 j=1 do while not rs.eof %> <% if j mod 2=1 then response.Write "" end if if j mod 2=0 then response.Write "" end if j=j+1 rs.movenext loop rs.close set rs=nothing %>
<%=rs("Sortname")%>
<% set trs=server.CreateObject("adodb.recordset") sql="select top 10 * from news where ttype in ("&rs("id")&") order by tui desc,addtime desc" trs.open sql,conn,1,1 p=1 if trs.eof then response.Write " " end if do while not trs.eof times=split(trs("addtime")," ") %>·&partid=<%=rs("upid")%>&smallid=<%=trs("ttype")%>" target="_blank"><%=left(trs("t_name"),27)%><%if i<10 then%>
<%end if%> <% p=p+1 trs.movenext loop trs.close set trs=nothing %>