<!--#include file="inc/conn.asp"-->
<!--#include file="inc/inc.asp"-->

<html>
<head>
<title><%=title%>-首页-<%=web%></title>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body topmargin="0" leftmargin="0">
<%call t()%><div style="margin-bottom:4px;margin-top:0px;"><table width="980" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><%=ad6%></td>
  </tr>
</table></div>
<table width="980" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#D2D2D2">
  <tr>
    <td width="214"  valign="top" background="img/leftbg.jpg" bgcolor="#DFDFDF" style="border-style:none"><table width="214" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="8"></td>
        </tr>
      </table><table width="214" border="0" cellpadding="0" cellspacing="0" background="img/lefttitle1.jpg" >
        <tr>
          <td height="30" class="lefttd"><div style="margin-left:40px;">都市114</div></td>
        </tr>
      </table>
      <table width="214" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="128" background="img/lefttitle1bg.jpg" valign="top"><div id="marquees">
        <%set rs1=server.createobject("adodb.recordset")
sql="select top 7 * from jle_dushi114 order by id desc"
rs1.open sql,conn,1,1
do while not rs1.eof
%>
        <div id="articleline"><div id="titlebox1"><%=rs1("114name")%>:<%=rs1("114tel")%></div></div>
        <%
rs1.movenext
loop
%>
        <%
rs1=close
set rs1=nothing
%>
      </div>
      <script language="JavaScript">
marqueesHeight=170;
stopscroll=false;
with(marquees){
  style.width=0;
  style.height=marqueesHeight;
  style.overflowX="visible";
  style.overflowY="hidden";
  noWrap=true;
  onmouseover=new Function("stopscroll=true");
  onmouseout=new Function("stopscroll=false");
}
document.write('<div id="templayer" style="position:absolute;z-index:1;visibility:hidden"></div>');

preTop=0; currentTop=0; 

function init(){
  templayer.innerHTML="";
  while(templayer.offsetHeight<marqueesHeight){
    templayer.innerHTML+=marquees.innerHTML;
  }
  marquees.innerHTML=templayer.innerHTML+templayer.innerHTML;
  setInterval("scrollUp()",50);
}
document.body.onload=init;

function scrollUp(){
  if(stopscroll==true) return;
  preTop=marquees.scrollTop;
  marquees.scrollTop+=1;
  if(preTop==marquees.scrollTop){
    marquees.scrollTop=templayer.offsetHeight-marqueesHeight;
    marquees.scrollTop+=1;
  }
}
</script></td>
        </tr>
        <tr>
          <td height="15" background="img/lefttitle1bg.jpg"><img src="img/lefttitle1bottom.jpg" width="214" height="15"></td>
        </tr>
      </table>
	  <div id="lefttadbg">
      <div id="titleadbox"><%=ad1%></div>
    </div>
      <table width="214" border="0" cellpadding="0" cellspacing="0" background="img/lefttitle1.jpg" >
        <tr>
          <td height="30" class="lefttd"><div style="margin-left:40px;">VIP推荐信息 </div></td>
        </tr>
      </table>
      <table width="214" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="128" background="img/lefttitle1bg.jpg"><%call nxvip()%></td>
        </tr>
        <tr>
          <td height="15" background="img/lefttitle1bg.jpg"><img src="img/lefttitle1bottom.jpg" width="214" height="15"></td>
        </tr>
      </table>
      <table width="214" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="30" background="img/lefttitle1.jpg" class="lefttd"><div style="margin-left:40px;">最新加盟商家</div></td>
        </tr>
      </table>
      <table width="214" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="128" background="img/lefttitle1bg.jpg"><%
sql= "select top 8 username,com,zcdata,lastdl from jle_com where yz=1 and vip=1 order by lastdl desc,id desc"
call ncom()
%></td>
        </tr>
        <tr>
          <td height="15" background="img/lefttitle1bg.jpg"><img src="img/lefttitle1bottom.jpg" width="214" height="15"></td>
        </tr>
      </table><div id="lefttadbg">
      <div id="titleadbox"><%=ad2%></div>
    </div>
      <table width="214" border="0" cellpadding="0" cellspacing="0" background="img/lefttitle1.jpg">
        <tr>
          <td height="30" class="lefttd"><div style="margin-left:40px;">最新公告</div></td>
        </tr>
      </table>
      <table width="214" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="128" background="img/lefttitle1bg.jpg"valign="top"><%call gg()
 
%></td>
        </tr>
        <tr>
          <td height="15" background="img/lefttitle1bg.jpg"><img src="img/lefttitle1bottom.jpg" width="214" height="15"></td>
        </tr>
      </table>
      <table width="214" border="0" cellpadding="0" cellspacing="0" background="img/lefttitle1.jpg">
        <tr>
          <td height="30" class="lefttd"><div style="margin-left:40px;">最新网友评论</div></td>
        </tr>
      </table>
      <table width="214" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="128" background="img/lefttitle1bg.jpg" valingin="top"><%call nx()
%></td>
        </tr>
        <tr>
          <td height="15" background="img/lefttitle1bg.jpg"><img src="img/lefttitle1bottom.jpg" width="214" height="15"></td>
        </tr>
      </table>
	   <div id="lefttadbg">
      <div id="titleadbox"><%=ad3%></div>
    </div>
	<table width="214" border="0" cellpadding="0" cellspacing="0" background="img/lefttitle1.jpg">
        <tr>
          <td height="30" class="lefttd"><div style="margin-left:40px;">便民信息</div></td>
        </tr>
      </table>
      <table width="214" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="128" background="img/lefttitle1bg.jpg" valingin="top" >
		  
		  <%
set rs11=server.CreateObject("adodb.recordset")
rs11.Open "select * from jle_bm order by id",conn,1,1
i=1
do while not rs11.eof%>
      <div id="articleline4">
        <div class="ft6"><a href="<%=rs11("link")%>" target="_blank"><%=rs11("bmname")%></a></div>
      </div>
      <%if (i mod 2)=0 then%>
      <br />
      <%
i=i+1%>
      <% end if
rs11.movenext
loop
rs11.Close
set rs11=nothing
%>
		  
		  </td>
        </tr>
        <tr>
          <td height="15" background="img/lefttitle1bg.jpg"><img src="img/lefttitle1bottom.jpg" width="214" height="15"></td>
        </tr>
      </table>
    </td>
    <td width="766" bgcolor="#F2F2F2" valign="top" style="border-style:none"><table width="764" height="33" border="0" align="center" cellpadding="0" cellspacing="0" background="img/topsearchbg.jpg">
        <tr>
          <td width="18" height="33"><img src="img/topsearch1.jpg" width="18" height="45"></td>
          <td width="733"><!--#include file="s.asp"--></td>
          <td width="13"><img src="img/topsearch2.jpg" width="13" height="45"></td>
        </tr>
      </table>
      <table width="756" height="102" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="461"><table width="465" height="150" border="1" cellpadding="1" cellspacing="1" bordercolor="#B9B9B9" bgcolor="#FFFFFF">
              <tr>
                <td bgcolor="#E5E5E5" style="border-style:none;padding:3px;"><a target="_self" href="javascript:goUrl()"> <span class="f14b">
                  <script type="text/javascript">
<%set rs=server.createobject("adodb.recordset")
sql="select top 5 * from tbl_picarticle order by picid desc"
rs.open sql,conn,1,1
for i=1 to rs.recordcount%>
imgUrl<%=i%>="delay.asp?id=<%=rs("picid")%>";
imgtext<%=i%>="<%=cutstr(rs("pictitle"),12,"..")%>"
imgLink<%=i%>=escape("<%=rs("link")%>");
<%rs.movenext
next
%>
var focus_width=465
var focus_height=150
var text_height=0
var swf_height = focus_height+text_height
var pics=""
<%for i=1 to rs.recordcount
if i=rs.recordcount then%>
pics=pics+imgUrl<%=i%>
<%else%>
 pics=pics+imgUrl<%=i%>+"|"
 <%end if%>
 <%next%>
 var links=""
<%for i=1 to rs.recordcount
if i=rs.recordcount then%>
links=links+imgLink<%=i%>
<%else%>
links=links+imgLink<%=i%>+"|"
<%end if
next%>
var texts=""
<%for i=1 to rs.recordcount
if i=rs.recordcount then%>
texts=texts+imgtext<%=i%>
<%else%>
texts=texts+imgtext<%=i%>+"|"
<%end if
next
rs.close
set rs=nothing%>
document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="img/aoyun_foucs.swf"><param name="quality" value="high"><param name="bgcolor" value="#F0F0F0">');
document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
document.write('<embed src="pixviewer.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#F0F0F0" quality="high" width="'+ focus_width +'" height="'+ focus_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />'); document.write('</object>');</script>
                  </span> </a></td>
              </tr>
            </table></td>
          <td width="295" valign=top><table width="280" border="0" align="center" cellpadding="0" cellspacing="0" background="img/righttoptitle.jpg">
              <tr>
                <td width="234" height="33"><div class="toprtft"><%=city%>新闻</div></td>
                <td width="46"><a href="bbs/index.asp">&nbsp;&nbsp;&nbsp;&nbsp;</a></td>
              </tr>
            </table>
            <table width="280" height="118" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td bgcolor="#FFFFFF" valign="top" width="280"><%set rs5=server.createobject("adodb.recordset")
		sql="select top 5 * from zhuti  order by ID desc"
		rs5.open sql,conn,1,1
		if rs5.bof and rs5.eof then%>
      <div id="articleline1">还没有发贴呢~~```</div>
      <%else
		  do while not rs5.eof%>
      <div id="articleline1"><a href="bbs/show.asp?ID=<%=rs5("ID")%>">·<%=cutstr(rs5("title"),20,"")%></a></div>
      <%rs5.movenext
		  loop
		  end if
		  rs5.close
		  set rs5=nothing%></td>
              </tr>
            </table></td>
        </tr>
      </table>
      <table width="756" border="0" align="center" cellpadding="0" cellspacing="0" background="img/ggbg.jpg">
        <tr>
          <td width="135" height="36"><img src="img/gg1.jpg" width="131" height="36"></td>
          <td width="614"><%set rs=server.createobject("adodb.recordset")
  sql="select * from tbl_gonggao where g_id=1"
  rs.open sql,conn,1,1
  %><div id="ggft1">
          <marquee  onMouseOver="this.stop()" scrolldelay="20" scrollamount=3 onMouseOut="this.start()" align="middle" width="595" height="20">
          &nbsp;<img src="img/icon1.gif" /><%=rs("g_content")%>
          </marquee>
        </div>
        <%rs.close
  set rs=nothing%></td>
          <td width="11"><img src="img/gg2.jpg" width="11" height="36"></td>
        </tr>
      </table>

      
      <table width="756" height="32" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td height="32" width="756"><%call xlist()%></td>
        </tr>
      </table>
      <table width="756" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="980"  valign="top" style="border-style:none" height="30"><img src="img/dianputitle.jpg" width="756" height="36"></td>
        </tr>
        <tr>
          <td width="756"  style="border-style:none" height="120"><%call comp()%></td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="756" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="6"></td>
  </tr>
</table>
<table width="756" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="6"></td>
  </tr>
</table>
<table width="980" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#D2D2D2">
  <tr>
    <td width="980"  valign="top" style="border-style:none;text-align:center; padding:5px;" bgcolor="#f2f2f2"><%call links()%></td>
  </tr>
</table>
<!--#include file="foot.asp"-->
</div>

</body>
</html>
<%call closedb()%>
<%
function cutstr(str,length,addstr)
  if len(str)<=length then
    cutstr=str
  else
    cutstr=left(str,length)&addstr
  end if
end function
%>
