<!--#include file="conn.asp"-->
<%
dim rs,classid,pid
set rs=conn.execute("select top 1 id,name from data_Categorys where name='公司动态' ")
   if not rs.eof then
     pid=rs("id")
	 pname=rs("name")
   end if 
rs.close
set rs=nothing

classid=trim(request("classid"))
if classid="" then
  classid=pid
end if

  set rs=conn.execute("select top 1 name,title,keywords,Description from data_Categorys where name<>'' and id="&classid&" ")
   if not rs.eof then
     name_p=rs("name")
	 title_p=rs("name")
	 if rs("title")<>"" then
	 title_p=rs("title")
	 end if
	 keywords_p=rs("keywords")
	 Description_p=rs("Description")
   end if 
  rs.close
  set rs=nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title><%=title_p%>-<%=websitename%></title>
<%
if keywords_p<>"" then
response.write("<meta name=""keywords"" content="""&keywords_p&""" />" & vbcrlf)
end if
if Description_p<>"" then
response.write("<meta name=""Description"" content="""&Description_p&""" />" & vbcrlf)
end if
%><script src="inc/functions.js" type="text/javascript"></script>
<link href="images/style.css" rel="stylesheet" type="text/css" />
</head>
<body class="news">
<div id="page">
<!--#include file="top.asp"--> 
<div id="body">
     <div id="left">
<%
str=","&get_pids_c(classid)&","
set rs=conn.execute("select count(id) from data_Categorys where name<>'' and classid="&pid&" ")
if rs(0)>0 then
response.write("<div id=""Categoryslist"">" & vbcrlf)
response.write("<div class=""title""><span>"&pname&"</span></div>" & vbcrlf)
response.write("<div class=""content"" id=""TreeMenu2"">")
call site_Categorys_show(pid,str)
response.write("</div>" & vbcrlf)
response.write("<script type=""text/javascript"">" & vbcrlf)
response.write("<!--" & vbcrlf)
response.write("var MyTreeMenu2=new CNLTreeMenu(""TreeMenu2"",""li"");" & vbcrlf)
response.write("MyTreeMenu2.InitCss(""Opened"",""Closed"",""Child"",""images/s.gif"");" & vbcrlf)
response.write("-->" & vbcrlf)
response.write("</script>" & vbcrlf)
response.write("</div>")
end if
rs.close
set rs=nothing

'--------------------------------------显示目录
function site_Categorys_show(byval classid,byval str) 
dim rs,i,rs2
set rs=server.CreateObject("adodb.recordset")
rs.open "select id,name,classid from data_Categorys where name<>'' and classid="&cint(classid)&" order by orderby,id",conn,1,1
 if not rs.eof then
 response.write("<ul>"&vbcrlf)
 i=0
 while not rs.eof
  i=i+1
  set rs2=conn.execute("select count(id) from data_Categorys where name<>'' and classid="&cint(rs("id"))&" ")
  if rs2(0)>0 then
        if instr(str,","&rs("id")&",")>0 then
		response.Write("<li class=""Opened"">")
		else
		response.Write("<li>")
		end if
		response.Write("<h3><a href=""?classid="&rs("id")&""" >"&rs("name")&"</a></h3>")
        site_Categorys_show rs("id"),str
        response.write("</li>"&vbcrlf)
  else
  response.Write("<li class=""Child""><h3><a href=""?classid="&rs("id")&""" >"&rs("name")&"</a><h3></li>"&vbcrlf)
  end if
 rs.movenext
 wend
 response.write("</ul>"&vbcrlf)
 end if
 rs.close
 set rs=nothing
end function
%>
     <!--#include file="left.asp"-->
     </div>
<div id="right">
<div id="list_content">
             <div class="title"><span class="t"><span><h1><%=name_p%></h1></span></span></div>
             <%
  set rs=server.CreateObject("adodb.recordset")
  rs.open "select * from data_info where title<>'' and classid in("&get_sids_c(classid)&") order by updatetime desc,id desc",conn,1,2
  if not rs.eof  then
  PageSize=20
  rs.PageSize=PageSize
  recordcount=rs.recordcount
  pagecount=rs.pagecount
  '获得当前页码
  if request("page") = "" then
   page = 1
  else
  page = cint(request("page"))
  if page > pagecount then page=pagecount
  end if
  rs.AbsolutePage=page
 
  if rs.recordcount=1 then
   response.Write("<div class=""content"" >")
  if rs("img")<>"" then
    response.Write("<div align=""center"" style=""margin-bottom:10px;"">")
    response.Write("<img src="""&rs("img")&""" width="""&c_info_width&""" height="""&c_info_height&""" align=""middle""")
    response.Write(" onload=""ResizeImage(this, "&c_info_width&", "&c_info_height&");"" />")
    response.Write("</div>")
  end if
  response.Write(rs("content"))
  response.Write("</div>")
  else
   response.Write("<div class=""content"" >")
  response.Write(" <ul>")
  for i=1 to rs.PageSize
  
  response.Write("<li onMouseOver=""this.className='a';"" onMouseOut=""this.className=''"">")
     updatetime=rs("updatetime")
	 if updatetime<>"" then
	         response.Write("<span class=""time"">")
			 response.Write year(updatetime)&"-"&month(updatetime)&"-"&day(updatetime)
			 response.Write("</span>")
	 end if
		title=rs("title")
		response.Write("<h2><a href=""show.asp?id="&rs("id")&""" target=""_blank"">"&keyword_tag(title,keyword)&"</a></h2>")
  response.Write("</li>"&vbcrlf)
  rs.movenext
    if rs.eof then exit for
  next 
  response.Write("</ul>")
  
  response.Write("<div class=""page"">共"&recordcount&"条信息&nbsp;&nbsp;")
  call showpage_fun(pagecount,page,4)
  response.Write("</div>")
  
  response.Write("</div>")
  end if
  else
  response.Write("<div class=""content"" >无信息</div>")
  end if
   rs.close
 set rs=nothing
 %>
</div>
          </div>
<div class="clear"></div>
  </div>
  <!--#include file="bottom.asp"-->
</div>
</body>
</html>
