<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Const dbdns = "./"
Const Htmldns = "./"
Const Base_Target = ""
Const ChannelID = 1
%>
<!--#include file="AppCode/Conn.asp"-->
<!--#include file="AppCode/fun/function.asp"-->
<!--#include file="inc/vbs.asp"-->
<!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=gb2312" />
<title><%=Application(SiteID & "_Ok3w_SiteTitle")%></title>
<meta name="keywords" content="<%=Application(SiteID & "_Ok3w_SiteKeyWords")%>">
<meta name="description" content="<%=Application(SiteID & "_Ok3w_SiteDescription")%>">
<link rel="stylesheet" type="text/css" href="themes/v1/style.css">
<script type="text/javascript" src="js/js.js"></script>
<script type="text/javascript" src="js/ads.js"></script>
</head>

<body>
<!--#include file="inc/head.asp"-->
<div class="w960 div_body1">
	<div class="left fl">
    	 	<div class="bd2 biankuang">
        	            <div class="nr_bk_02 box1">
                <UL>
      				<%Call Ok3w_Article_ImgFlash("",300,315)%>
                </UL>
            </div> 
        </div>        
    </div>
	<div class="mid fl biankuang">  
        <div class="nr_bk_03">
            <div class="bd1">
                <UL>
      				<%Call Ok3w_Article_IndexTop()%>
                </UL>                
            </div>
            <div class="bd2 box2">
      		  <UL>
      			<%Call Ok3w_Article_List("",7,20,False,False,True,2,False,"new","li")%>
              </UL>
            </div>       
        </div>    
	</div>
	<div class="right fr biankuang"> 
        <div class="style_01_ht">
		     <div class="style_01_nr">热点关注</div>
		</div>
        <div class="nr_bk_02 box3">
           <UL>
       		 <%Call Ok3w_Article_List("",11,15,False,False,False,0,False,"hot","li")%>       
            </UL>
        </div>   
    </div>     
    
</div>
<div class="div_pic_m biankuang">
    <div class="style_03_ht">
		 <div class="style_02_nr">图片报道</div>
	</div>
    <div class=imgList>
<%Call Ok3w_Article_ImgGD("",15,945,120,120,90,10,25)%>
	</div>
</div>
<%
Sql="select ID,SortName,gotoURL from Ok3w_Class where ChannelID=" & ChannelID & " and ParentID=0 and gotoURL='' order by OrderID"
Set oRs = Conn.Execute(Sql)
i = 0
m = 0
Do While Not oRs.Eof
i = i + 1
m = m + 1
If m = 1 Then
	Response.Write("<div class=""w960 div_body2"">")
End If
%>
   <div class="<%If i Mod 3 = 0 Then%>list biankuang fr<%Else%>list2 biankuang fl<%End If%>">
      <div class="style_02_ht">
		 <div class="style_03_nr"><%=oRs("SortName")%></div>
	  </div>
       <div class="summary">
            <%Call Ok3w_Article_IndexClassImg(oRs("ID"),1,100,80)%>
       </div>
       <div class="nr_bk_02 box2 summary_foot">
            <UL>
              <%Call Ok3w_Article_List(oRs("ID"),6,15,False,False,True,0,False,"new","li")%>
            </UL>
        </div>   
   </div>
<%
If m = 3 Then
	Response.Write("</div>" & vbCrLf)
	m = 0
End If
	oRs.MoveNext
Loop
oRs.Close
Set oRs = Nothing
%>
<div class="links_yl">
	 <div class="nr biankuang">
      <%Call  Ok3w_Site_Link(27,9,1,1)%><%Call  Ok3w_Site_Link(27,8,0,1)%>
     </div>
</div>
<!--#include file="inc/foot.asp"-->
</body>
</html>