<!--#include file="Inc/conn.asp"-->
<!--#include file="Inc.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=gbk2312" />
<title><% =SiteTitle %> - <% =SiteTitle2 %></title>
<meta name="keywords" content="<% =Sitekeywords %>-powered by angelasp.com">
<meta name="description" content="<% =Sitedescription %>-powered by angelasp.com">
<script type="text/javascript" src="<% =SitePath %>js/jquery.min.js"></script>
<script type="text/javascript" src="<% =SitePath %>js/jquery.sgallery.js"></script>
<script type="text/javascript" src="<% =SitePath %>js/jquery.jcarousel.min.js"></script>
<script type="text/javascript" src="<% =SitePath %>js/index.js"></script>
<link href="<% =SitePath %>css/indexstyle.css" rel="stylesheet" type="text/css">
<link rel="shortcut icon" href="favicon.ico" />
</head>
<body>
<!--头部 start-->
<%=Head%>
<!--头部开始-->
<script type="text/javascript" src="<% =SitePath %>js/qq.js"></script>
<!--头部-->
<!--导航条 end-->
<!--gg头部 start-->
<div class="space10"></div>
<div class="layout">
<%Call ShowAD(15)%> 
</div>
	  <!--gg头部 end-->
<!--第一屏 start-->
<div class="layout clearfix mar20">
<div class="layoutLeft">
<!--新闻头条 start-->
<div class="focus">
<div class="FocusPic">
<div class="content" id="main-slide">
<div class="changeDiv">  

				<%
				set rs1=server.createobject("ADODB.Recordset")
				sql1="select Top 5 ID,Title,Images from "&tbname&"_Article where yn = 0 and IsFlash=1 and Images<>'' order by ID desc"
				rs1.open sql1,conn,1,1
				NoI=0
				If Not rs1.Eof Then
				do while not (rs1.eof or err)
				NoI=NoI+1
				%>
<a href="<%If html=1 then Response.Write("Article_List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("News/?"&rs1("ID")&".html") else:if html=3 then Response.Write("News/"&rs1("ID")&".html") End if%>" title="">
<img src="<%=rs1("Images")%>" alt="" width="560" height="345" /></a>
				<%
				rs1.movenext
				loop
				end if
				rs1.close
				set rs1=nothing
				%>	
</div>
</div>
</div>
</div>


<!--新闻头条 end-->
</div>
<div class="layoutRight">
<!--焦点图 start-->
<div class="headLine">


				<%
				set rs1=server.createobject("ADODB.Recordset")
				sql1="select Top 2 ID,Title,ArtDescription,Images from Angel_asp_Article where yn = 0 and IsImg=1 and Images<>'' order by ID desc"
				rs1.open sql1,conn,1,3
				If Not rs1.Eof Then
				do while not (rs1.eof or err)
				%>
<div class="hlNews">    
<h2><a href="<%=SitePath%><%If html=1 then Response.Write("Article_List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("News/?"&rs1("ID")&".html") else:if html=3 then Response.Write("News/"&rs1("ID")&".html") End if%>" title="<%=left(rs1("Title"),6)%>" target="_blank"><%=left(rs1("Title"),9)%></a></h2>    
<p><%=Left(rs1("ArtDescription"),42)%><A title="<%=left(rs1("Title"),6)%>" href="<%=SitePath%><%If html=1 then Response.Write("Article_List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("News/?"&rs1("ID")&".html") else:if html=3 then Response.Write("News/"&rs1("ID")&".html") End if%>" target=_blank><FONT color=red>详情</FONT></A></p>
</div>
				<%
				rs1.movenext
				loop
				else
				Response.Write("")
				end if
				rs1.close
				set rs1=nothing
				%>

<div class="hlList">
<ul class="newsList30">
<%
						set rs1=server.createobject("ADODB.Recordset")
						sql1="select Top 5 ID,Title from Angel_asp_Article where yn = 0 and IsHot=1 order by ID desc"
						rs1.open sql1,conn,1,3
						If Not rs1.Eof Then
						do while not (rs1.eof or err)
						%>
<li><a href="<%=SitePath%><%If html=1 then Response.Write("Article_List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("News/?"&rs1("ID")&".html") else:if html=3 then Response.Write("News/"&rs1("ID")&".html") End if%>" title="<%=left(rs1("Title"),13)%>" target="_blank"><%=left(rs1("Title"),13)%></a></li>

						<%
						rs1.movenext
						loop
						else
						Response.Write("")
						end if
						rs1.close
						set rs1=nothing
						%>



  
</ul>
</div>
</div>
<!--焦点图 end-->
</div>
<div class="layoutRight2">
<!--今日头条-->

<h2 class="clTitle" align="center"><a href=""><font color="#FF0000" size="+3">今日头条</font></a></h2>


<div class="clImgbox">



				<%
				set rs1=server.createobject("ADODB.Recordset")
				sql1="select Top 1 ID,Title,Images from Angel_asp_Article where ClassID=85 and yn = 0 and IsImg=1 and Images<>'' order by ID desc"
				rs1.open sql1,conn,1,3
				If Not rs1.Eof Then
				do while not (rs1.eof or err)
				%>
<a href="<%=SitePath%><%If html=1 then Response.Write("Article_List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("News/?"&rs1("ID")&".html") else:if html=3 then Response.Write("News/"&rs1("ID")&".html") End if%>" target="_blank"><img src="<%=rs1("Images")%>" /></a>
				<%
				rs1.movenext
				loop
				else
				Response.Write("")
				end if
				rs1.close
				set rs1=nothing
				%>





</div>

<ul class="newsList00">

<%
						set rs1=server.createobject("ADODB.Recordset")
						sql1="select Top 8 ID,Title from Angel_asp_Article where ClassID=85 and yn = 0 order by ID desc"
						rs1.open sql1,conn,1,3
						If Not rs1.Eof Then
						do while not (rs1.eof or err)
						%>
<li><a href="<%=SitePath%><%If html=1 then Response.Write("Article_List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("News/?"&rs1("ID")&".html") else:if html=3 then Response.Write("News/"&rs1("ID")&".html") End if%>" title="<%=left(rs1("Title"),21)%>" target="_blank"><%=left(rs1("Title"),21)%></a></li>
						<%
						rs1.movenext
						loop
						else
						Response.Write("")
						end if
						rs1.close
						set rs1=nothing
						%>
</ul>


<!--今日头条 end-->
</div>
</div>
<!--第一屏 end-->







<%
Call Shownewslist(2,6,1,2)




Function Shownewslist(trs,tds,numbers,typen)
dim rsn,sqln,tr,td,mhhi
set rsn = server.createobject("adodb.recordset")
If typen=1 Then 
sqln="select top "&trs*tds&" * from "&tbname&"_Class where TopID=0 order by num,ID"
Else 
sqln="select top "&trs*tds&" * from "&tbname&"_Class where id not in(select top "&numbers&" id from "&tbname&"_Class where TopID=0 order by num,ID) and TopID=0 order by num,ID"
End If 
  rsn.open sqln,conn,1,1
  if rsn.eof then
response.write "暂无导航"
  Else

mhhi=1
for tr=1 to trs

for td=1 to tds
%>




<!--新闻 start-->
<div class="channel clearfix mar20">
<!--频道大标题 start-->
<div class="bTitle STYLE1">
 <strong>
<font color="#FF0000">&nbsp;&nbsp;&nbsp;&nbsp;<%=Left(rsn("ClassName"),4)%></font></strong>
<div class="leftLink">
<%=Chinenren(rsn("ID"))%>	   
</div>
</div>
<!--频道大标题 end-->
<div class="channelBox">
<div class="channel960">
<div class="lArea">
<div class="lSide">
<%Call ChirenArticlelist(rsn("ID"),1)%>
<%Call ChirenArticlelist(rsn("ID"),2)%>





</div>

<div class="rSide">
<%Call ShowArticlelist(rsn("ID"),1,"images")%>
<!--要闻 start-->
<div class="ccBox">
<ul class="newsList26">
<%Call ShowArticlelist(rsn("ID"),10,"")%>
</ul>     
</div>
</div>
<!--要闻 end-->
</div>


<div class="rArea">
<%Call ChirenArticlelist(rsn("ID"),3)%>
<%Call ChirenArticlelist(rsn("ID"),4)%>
</div>
</div>
 </div>
</div>
<!--新闻 end-->
<div class="layout clearfix mar20"><%Call ShowAD(12)%></div>

<% If mhhi=1 Then %>

<div class="imgLib mar20">
<div class="layout">
<h2 class="libTitle"><a href="<%=SitePath%>Article_Class.asp?ID=83" target="_blank">读图片</a></h2>
<ul class="imgLiblist">
<%Call ShowImageslist(83)%>
</ul>
</div>
</div>

<%
End If 


      mhhi=mhhi+1

          rsn.movenext
          if rsn.eof then exit for
        Next 

  if rsn.eof then exit for
    Next 
  end if
rsn.close
set rsn=Nothing 
End Function 


Function Chinenren(Topid)
Dim stringText
set rs1=server.createobject("ADODB.Recordset")
sql1="select top 4 * from "&tbname&"_Class where TopID="&Topid&" order by num,ID"
rs1.open sql1,conn,1,1
If Not rs1.Eof Then
do while not (rs1.eof or err)
stringText=stringText&"<a href="""&SitePath&"Article_Class.asp?ID="&rs1("ID")&""" target=""_blank"">"&Left(rs1("ClassName"),4)&"</a>"
rs1.movenext
loop
else
stringText=""
end if
rs1.close
set rs1=Nothing		
Chinenren=stringText
End  Function 


Function ShowImageslist(ClassID)
				set rs1=server.createobject("ADODB.Recordset")
				sql1="select Top 8 ID,Title,Images from Angel_asp_Article where yn = 0 and IsImg=1 and Images<>'' and ClassID="&ClassID&" order by ID desc"
				rs1.open sql1,conn,1,3
				If Not rs1.Eof Then
				do while not (rs1.eof or err)
				%>
<li><a href="<%=SitePath%><%If html=1 then Response.Write("Article_List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("News/?"&rs1("ID")&".html") else:if html=3 then Response.Write("News/"&rs1("ID")&".html") End if%>" target="_blank"><img src="<%=rs1("Images")%>" /><p><%=rs1("Title")%></p></a></li>
				<%
				rs1.movenext
				loop
				else
				Response.Write("")
				end if
				rs1.close
				set rs1=nothing
End Function 










Function ShowArticlelist(ClassID,number,typeString)

				Dim i
				set rs1=server.createobject("ADODB.Recordset")
			If number=1 Then 
				sql1="select Top 1 ID,Title,Images from Angel_asp_Article where yn = 0 and IsImg=1 and Images<>'' and ClassID="&ClassID&" order by ID desc"
			Else 
				sql1="select Top 10 ID,Title,Images from Angel_asp_Article where yn = 0 and id not in(select Top 1 ID from Angel_asp_Article where yn = 0 and IsImg=1 and Images<>'' and ClassID="&ClassID&" order by ID desc) and IsImg=1 and Images<>'' and ClassID="&ClassID&" order by ID desc"
			End If 
				rs1.open sql1,conn,1,3
				If Not rs1.Eof Then
				do while not (rs1.eof or err)

If typeString="images" Then 
%>
<a href="<%=SitePath%><%If html=1 then Response.Write("Article_List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("News/?"&rs1("ID")&".html") else:if html=3 then Response.Write("News/"&rs1("ID")&".html") End if%>" target="_blank" class="channelImg"><img src="<%=rs1("Images")%>" width="283px"  height="211px" /><p><%=rs1("Title")%></p></a>
<%
else
%>
<li><a href="<%=SitePath%><%If html=1 then Response.Write("Article_List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("News/?"&rs1("ID")&".html") else:if html=3 then Response.Write("News/"&rs1("ID")&".html") End if%>" title="<%=rs1("Title")%>" target="_blank"><%=rs1("Title")%></a></li>
<%
End If 

                i=i+1
				rs1.movenext
				loop
				else
				Response.Write("")
				end if
				rs1.close
				set rs1=nothing
End Function 



Function ChirenArticlelist(Topid,number)
Dim it
it=1
set rs1=server.createobject("ADODB.Recordset")
sql1="select top 4 * from "&tbname&"_Class where TopID="&Topid&" order by ID "
rs1.open sql1,conn,1,1
If Not rs1.Eof Then
do while not (rs1.eof or err)

If number=1 And number=it Then 
%>
<div class="channelList">
<h2 class="clTitle"><a href="<%=SitePath%>Article_Class.asp?ID=<%=rs1("ID")%>" target="_blank"><%=Left(rs1("ClassName"),4)%></a></h2>
<%Call ShowArticleChi(rs1("ID"),1,"images")%>
<ul class="newsList30">
<%Call ShowArticleChi(rs1("ID"),2,"")%>
</ul>
</div>
<%
End If 

If number=2 And number=it Then 
%>
<div class="channelList mar15">
<h2 class="clTitle"><a href="<%=SitePath%>Article_Class.asp?ID=<%=rs1("ID")%>" target="_blank"><%=Left(rs1("ClassName"),4)%></a></h2>
<%Call ShowArticleChi(rs1("ID"),1,"images")%>
<ul class="newsList30">
<%Call ShowArticleChi(rs1("ID"),2,"")%>
</ul>
</div>
<%
End If 

If number=3 And number=it Then 
%>
<div class="channelList">
<h2 class="clTitle"><a href="<%=SitePath%>Article_Class.asp?ID=<%=rs1("ID")%>" target="_blank"><%=Left(rs1("ClassName"),4)%></a></h2>
<%Call ShowArticleChi(rs1("ID"),1,"images")%>
<ul class="newsList30">
<%Call ShowArticleChi(rs1("ID"),2,"")%>
</ul>
</div>
<%
End If 




If number=4 And number=it Then 
%>
<div class="channelList mar15">
<h2 class="clTitle"><a href="<%=SitePath%>Article_Class.asp?ID=<%=rs1("ID")%>" target="_blank"><%=Left(rs1("ClassName"),4)%></a></h2>
<%Call ShowArticleChi(rs1("ID"),1,"images")%>
<ul class="newsList30">
<%Call ShowArticleChi(rs1("ID"),2,"")%>
</ul>
</div>
<%
End If 


it=it+1

rs1.movenext
loop
else
end if
rs1.close
set rs1=Nothing		
End  Function 









Function ShowArticleChi(ClassID,number,typeString)
		
		set rs1sg=server.createobject("ADODB.Recordset")
		If number=1 Then 
		sql1sg="select Top 1 ID,Title,Images,ArtDescription from Angel_asp_Article where yn = 0 and IsImg=1 and Images<>'' and ClassID="&ClassID&" order by ID desc"
		Else 
		sql1sg="select Top 4 ID,Title,Images,ArtDescription from Angel_asp_Article where yn = 0 and id not in(select Top 1 ID from Angel_asp_Article where yn = 0 and IsImg=1 and Images<>'' and ClassID="&ClassID&" order by ID desc) and IsImg=1 and Images<>'' and ClassID="&ClassID&" order by ID desc"
		End If 
				rs1sg.open sql1sg,conn,1,1
				If Not rs1sg.Eof Then
				do while not (rs1sg.eof or err)

If typeString="images" Then 
%>
<div class="clImgbox">
<a href="<%=SitePath%><%If html=1 then Response.Write("Article_List.asp?ID="&rs1sg("ID")&"") else:if html=2 then Response.Write("News/?"&rs1sg("ID")&".html") else:if html=3 then Response.Write("News/"&rs1sg("ID")&".html") End if%>" target="_blank"><img src="<%=rs1sg("Images")%>"  /></a>
<div class="clTxt">
<h2><a href="<%=SitePath%><%If html=1 then Response.Write("Article_List.asp?ID="&rs1sg("ID")&"") else:if html=2 then Response.Write("News/?"&rs1sg("ID")&".html") else:if html=3 then Response.Write("News/"&rs1sg("ID")&".html") End if%>" target="_blank"><%=rs1sg("Title")%></a></h2>     
<p> <%=rs1sg("ArtDescription")%>...</p>
</div>
</div>
<%
else
%>
<li><a href="<%=SitePath%><%If html=1 then Response.Write("Article_List.asp?ID="&rs1sg("ID")&"") else:if html=2 then Response.Write("News/?"&rs1sg("ID")&".html") else:if html=3 then Response.Write("News/"&rs1sg("ID")&".html") End if%>" title="<%=rs1sg("Title")%>" target="_blank"><%=rs1sg("Title")%></a></li>
<%
End If 

         
				rs1sg.movenext
				loop
				else
			
				end if
				rs1sg.close
				set rs1sg=nothing
End Function 


%>

<!--新闻 end-->

<div class="layout">
<div class="footLink">
<div class="friendLink">
<h2 >友情链接</h2>
<%Call Link(0,0,0,1)%>
</div>
</div>
</div>
<script type="text/javascript"> 
$(function(){
	new slide("#main-slide","cur",560,345,1);//焦点图
})
</script>
<%=Copy%>
<!--页尾 end-->
<%if request.QueryString("action")="search" then
keyword = Server.UrlEncode(trim(request.Form("keyword")))
response.Redirect("Search.asp?KeyWord="&keyword)
end if%>
<!--#include file="Angelqq/qqshow.asp" -->
</body>
</html>