<!--#include file="include/conn.asp"-->
<!--#include file="menu.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=UTF-8" />
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7" />
<meta http-equiv="X-UA-Compatible" content="IE=7" />
<title><%=sWeb("WebTitle")%>_<%=sWeb("WebUrl")%></title>
<meta name="keywords" content="<%=sWeb("WebKeyWord")%>" />
<meta name="description" content="<%=sWeb("WebDescription")%>" />
<meta name="author" content="<%=sWeb("WebAuthor")%>" />
<meta name="copyright" content="<%=sWeb("WebCopyright")%>" />
<meta content="all" name="robots" />
<link rel="shortcut icon" href="favicon.ico" />
<link type="text/css" href="/css/global.css" rel="stylesheet" />
<link type="text/css" href="/css/style.css" rel="stylesheet" />
<script src="/JavaScript/jquery-1.8.3.js" type="text/javascript"></script>
<script src="/JavaScript/picindex.js" type="text/javascript"></script>
<script src="/JavaScript/picmouse.js" type="text/javascript"></script>
<script src="/JavaScript/jquery.lazyload.js" type="text/javascript"></script>
<script src="/JavaScript/flexslider.js" type="text/javascript"></script>
<script language="JavaScript" type="text/javascript">
$(function(){ 
  $("img").lazyload({ 
       effect : "fadeIn" 
  }); 
}); 
</script>
<script type="text/javascript">
	var browser = {
		versions: function () {
			var u = navigator.userAgent, app = navigator.appVersion;
			return {//移动终端浏览器版本信息
				mobile: (!!u.match(/AppleWebKit.*Mobile/) || !!u.match(/Windows Phone/) || !!u.match(/Android/) || !!u.match(/MQQBrowser/)) && !u.match(/iPad/)//是否为移动终端
			};
		}()
	}
	if (browser.versions.mobile) {
		window.location.href = "/wap/";
	}
</script>

</head>
<body onload="document.getElementById('classMenu').style.display = 'block';">
<%Call Tophhh()%>
<%Call TopMenu()%>
<div id="LstBannIndex">
	<div id="Slidebox">
		<!--flash begin-->
			<div id="flashBg" style="background-color: #3f5666;">
				<div id="flashLine">
					<div id="flash">
						<%
						Dim Ccolor
						Set oRs = oConn.Execute("SELECT Id,Bimg,Burl,Btxt FROM [Lstbanner] where Btitle='幻灯片' ORDER BY Id ASC")
						If Not oRs.EOF Then Ccolor= oRs.GetRows
						Set oRs = Nothing
						%>
						<%If Isarray(Ccolor) Then%>
						<%For i=0 To Ubound(Ccolor,2)%>
						<a name="<%=Ccolor(3,i)%>" <%If i=0 Then%>style="display: block;"<%Else%>style="display: none;"<%End If%> id="flash<%=i+1%>" href="<%=Ccolor(2,i)%>" target="_blank"><img src="<%=Ccolor(1,i)%>" width="1200" height="400"></a>
						<%Next
						End If%>
						<div class="flash_bar">
							<div class="dq"  id="f1" onClick="changeflash(1)"></div>
							<div class="no"  id="f2" onClick="changeflash(2)"></div>
							<div class="no"  id="f3" onClick="changeflash(3)"></div>
							<div class="no"  id="f4" onClick="changeflash(4)"></div>
						</div>
					</div>
				</div>
			</div>
		<!--flash end-->
	</div>
</div>
<div class="clear top5"></div>
<%If Isarray(Chome) Then%>
<%For i=0 To Ubound(Chome,2)%>
<div id="LstDefaultbg">
	<div id="LstDefault">
		<div id="ld200">
			<div class="fl ldh40 ldhbg<%=i+1%>"><%=Chome(1,i)%></div>
			<div class="fl ldh440">
				<ul><%=Lstroad7hot(Chome(0,i))%></ul>
				<em><a href=<%=Chome(3,i)%>><img width="190" height="110" src="<%=Chome(2,i)%>"></a></em>
			</div>
		</div>
		<div id="ld798">
			<div class="fl ld798r"><%=IndexSmall(Chome(0,i))%></div>
			<div class="fl ld798bottom">
				<ul><%=Lstroad6pic(Chome(0,i))%></ul>
			</div>
		</div>
	</div>
</div>
<div class="clear top5"></div>
<%Next
End If%>

<div id="lstlinkss" class="top5"><%=BANNERSS(22)%></div>
<div class="clear top5"></div>
<div id="deaCont5">
<%If Isarray(Cnews) Then%>
<%For i=0 To Ubound(Cnews,2)%>
	<div class="deaCont5Left">
		<div class="fl dea5all">
			<div class="stitle"><div class="fl">&nbsp;&nbsp;&nbsp;<%=Cnews(1,i)%></div><a href="Lstalone.asp?TT=<%=Cnews(0,i)%>"><div class="fr f12 hand">更多>>&nbsp;&nbsp;</div></a></div>
			<ul><%=LstNewslst(Cnews(0,i),10)%></ul>
		</div>
	</div>
<%Next
End If%>
</div>

<div class="clear"></div>
<div id="lstlinkss"><%=BANNERSS(23)%></div>
<div class="clear top5"></div>
<div id="lstlinkss">
	<div class="stitle"><div class="mores"></div></div>
	<ul>
		<%
		Dim sLinksp
		Set oRs = oConn.Execute("SELECT Id,LinkTitle,LinkUrl,LinkTxt FROM [LstLink] order by Id desc")
		If Not oRs.EOF Then sLinksp= oRs.GetRows
		Set oRs = Nothing
		%>
		<%if Isarray(sLinksp) Then%>
		<%for i=0 to UBound(sLinksp,2)%>
		<li><a alt="<%=sLinksp(3,i)%>" target="_blank" href="<%=sLinksp(2,i)%>"><%=sLinksp(1,i)%></a></li>
		<%Next 
		End if%>
		<li><a href="LstLinks.Asp">更多链接>></a></li>
		
	</ul>
</div>
<div class="clear top5"></div>
<%Call ShowEnd()%>
</body>
</html>


