<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="inc/charsetasp.asp"-->
<!DOCTYPE HTML>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<!--#include file="core/Conn.asp"-->
<!--#include file="core/fun/fun.asp"-->
<!--#include file="core/fun/core.asp"-->
<!--#include file="core/class/tr_page.asp"-->
<!--#include file="skin/default/kp171014.asp"-->
<%'include此行代码供安装插件用勿删改%>
<%
if ishtml=2 then
funpath = "../"
else
funpath = "./"
end if
Const dbpath = "./"
Set ctr_page = New tr_page
id = tr_killstr(request.querystring("id"), 1, 8, 1, "", "", "", "", 2)
pageno = tr_killstr(request.querystring("pageno"), 1, 8, 1, "", "", "", "", 1)
dohtml = tr_killstr(request.querystring("dohtml"), 1, 8, 3, "", "", "", "", 1)
if dohtml<>1 then call jumphtml(id,pageno)
sql = "select tpagesize,colname,types,keywords,descriptions,queueid from tr_column where id="&id&" "
rs.Open sql, conn, 0, 1
If Not rs.EOF Then
  psize = rs("tpagesize")
  colname = rs("colname")
  types = rs("types")
  keywords = Rs("keywords")
  descriptions = Rs("descriptions")
  queueid = Rs("queueid")
else
response.write "<meta http-equiv=""Refresh"" content=""0; url="&funpath&""" />"&vbcrlf&"</head>"&vbcrlf&"</body>"&vbcrlf&"</html>"
response.End()
End If
rs.Close
rightinccolid=id

%>
<%'head此行代码供安装插件用勿删改%>
<!--#include file="inc/headtaginc.asp"-->
<title><%=colname%>_<%=application(siternd & "55trsitetitle")%></title>
<meta name="Keywords" content="<%=keywords%>">
<meta name="Description" content="<%=descriptions%>">
<base target="_blank">
<!--#include file="inc/phoneewmjs.asp"-->
<%'fjeiore09458dnblshjfhdbcj_功能卸载用勿删%>

<script src="<%=funpath%>js/zzsc170907.js"></script>
<%'fjeiore09458dnblshjfhdbcj_功能卸载用勿删%> 
<%'headend此行代码供安装插件用勿删改%> 
</head>
<body>
<!--#include file="inc/head.asp"-->
<div class="container trblock clearfix " id="trblock178888">
<div class=" col-lg-8 <%=colbs8%> trrow1199 trmarb1199 trlist trovh" id="trleft178888">
<div class="trlisttitle1 "><span class="trcrumbs">当前位置： <a href="<%=funpath%>">网站首页</a> &gt;
<%call tr_crumbs(id,20)%>
</span><span class="trmcrumbs">当前位置： <a href="<%=outputurl(id, "", "", ishtml)%>"><%=left(colname,10)%></a></span> </div>
<%if ishavesoncolnd(rightinccolid) then%>
<div class="trlistsoncol clearfix">
<%
response.write "<ul id=""navigation2"">" & vbCrLf
  sql = "select top 10 id,colname,jumpurl,queueid from tr_column where isnav=1 and isopen=1 and columnid="&id&" order by orderid asc , id desc "
  rs.Open sql, conn, 0, 1
  If Not rs.EOF Then
  spque=split(replace(queueid,",0,",","),",")
  ubque=ubound(spque)
  	stopac=false
    Do While Not rs.EOF
	if not stopac then
	for gh=ubque-1 to 1 step -1
	if instr(rs("queueid"),","&spque(gh)&",")>0 then
	trnavac="class=""trnavac"""
	stopac=true
	exit for
	else
	trnavac=""
	end if
	next
	end if
    tmpurl = outputurl(rs("id"), "", rs("jumpurl"), ishtml)
trishavesoncolnd=ishavesoncolnd(rs("id"))
if trishavesoncolnd then
response.write "<li onmouseover=""display1110(this)"" onmouseout=""hide1110(this)""> <a href="""&tmpurl&""" "&trnavac&">"&rs("colname")&"</a>" & vbCrLf
response.write "<ul>" & vbCrLf
  sql = "select top 30 id,colname,jumpurl,queueid from tr_column where isnav=1 and isopen=1 and columnid="&rs("id")&" order by orderid asc , id desc "
  set rsson1=server.createobject("adodb.recordset")
  rsson1.Open sql, conn, 0, 1
  If Not rsson1.EOF Then
  spque=split(replace(queueid,",0,",","),",")
  ubque=ubound(spque)
  	stopac=false
    Do While Not rsson1.EOF
	if not stopac then
	for gh=ubque-1 to 1 step -1
	if instr(rs("queueid"),","&spque(gh)&",")>0 then
	trnavac="class=""trnavac"""
	stopac=true
	exit for
	else
	trnavac=""
	end if
	next
	end if
      tmpurl = outputurl(rsson1("id"), "", rsson1("jumpurl"), ishtml)
response.write "<li><a href="""&tmpurl&""">"&rsson1("colname")&"</a></li>" & vbCrLf
	trnavac=""
      rsson1.movenext
    Loop
  End If
  rsson1.Close
set rsson1=nothing
response.write "</ul>" & vbCrLf
response.write "</li>" & vbCrLf
else
response.write "<li> <a href="""&tmpurl&""">"&rs("colname")&"</a>" & vbCrLf
response.write "</li>" & vbCrLf
end if
	trnavac=""
      rs.movenext
    Loop
  End If
  rs.Close
response.write "</ul>" & vbCrLf
%>
</div>
<%end if%>



<div class="publicnr clearfix">
<%'body1此行代码供安装插件用勿删改%>
<%call trwc_imgtextlisttop810518(id,5, 30, 150,true,true,true,4)%>

<%'call tr_articlecolumnnewyl(id, 5, 40, true, true, false, 1, "new",data_type)%>
<%'body5此行代码供安装插件用勿删改%>
<%if types =1 then%>
<%call trwc_imgtextlist810518(id, 30, 150,psize,pageno,true,true,true,4)%>
<%'call tr_articlelistyl1(id, psize, 40, true, true, false, 1, "new", pageno,data_type)%>
<%'body6此行代码供安装插件用勿删改%>
<%else%>
<%call trwc_imglist810518(id, 20,psize,pageno,colbs3)%>
<%'call tr_piclistnd(id,psize,169,169,12,1,"trimgul clearfix")%>
<%'body7此行代码供安装插件用勿删改%>
<%end if%>
</div>
<%'body2此行代码供安装插件用勿删改%>
</div>
<div class="col-lg-4 <%=colbs4%> trrow1199 trlistright" id="trlistright178888">
<%'body3此行代码供安装插件用勿删改%>
<!--#include file="inc/rightinc.asp"-->
<%'body4此行代码供安装插件用勿删改%>
</div>
</div>
<!--#include file="inc/bottomads.asp"-->
<!--#include file="inc/foot.asp"-->
</body>
</html>
<%call CloseConn()%>
