<!--#include file="Head.asp"-->
<div align="center">
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="280" height="200" align="center"><table width="260" height="170" border="4" cellpadding="0" cellspacing="0" bordercolor="#DD0000">
      <tr>
        <td ><a href="javascript:goUrl()" target="_self">
          <script type="text/javascript">
<% 
sql="select top 4  * from Ameav_News where VoticeFlag order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
k=1
Num_total=rs.recordcount
for i=1 to 4
%>
imgUrl<%=i%>="<%=rs("BigPic")%>";
imgtext<%=i%>="<%if len(rs("NewsName"))>=8 then response.write left(rs("NewsName"),8)&"..." else response.write rs("NewsName")%>"
imgLink<%=i%>=escape("NewsView.asp?id=<%=rs("ID")%>");
<%
rs.movenext
k=k+1
next
else
response.write "暂时没有数据！"
end if
%>
var focus_width=250
var focus_height=170
var text_height=0
var swf_height = focus_height+text_height
var pics=imgUrl1+"|"+imgUrl2+"|"+imgUrl3+"|"+imgUrl4
var links=imgLink1+"|"+imgLink2+"|"+imgLink3+"|"+imgLink4
var texts=imgtext1+"|"+imgtext2+"|"+imgtext3+"|"+imgtext4
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="../Images/pixviewer.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="../Images/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>
        </a></td>
      </tr>
    </table></td>
    <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="25" background="../Images/title-bj.gif"><font color=red><b>新闻报道</b></font></td>
            <td align="right" background="../Images/title-bj.gif"><a href="NewsList.asp">更多..　　</a> </td>
          </tr>
        </table></td>
      </tr>
    </table>
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td align="left"><% MainNews()%></td>
          </tr>
      </table></td>
    <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td height="25" background="../Images/title-bj.gif"><font color=red><b>意见留言</b></font></td>
              <td align="right" background="../Images/title-bj.gif"><a href="NewsList.asp">更多..　　</a> </td>
            </tr>
        </table></td>
      </tr>
    </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td align="left"><%=TopMessage()%></td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="950" border="0" cellpadding="0" cellspacing="0" bgcolor="#FF3300">
  <tr>
    <td height="2"></td>
  </tr>
</table>

  <table width="950" border="0" cellpadding="1" cellspacing="0" bgcolor="#FFFFFF">
    <tr>
      <td width="240" valign="top" >
	  <!--#include file="tabmenu.asp"-->
	  </td>
      <td width="1" bgcolor="#C4CED8" ></td>
      <td width="690" valign="top" ><table width="100%" border="0" cellspacing="0" cellpadding="0" class="Outside">
          <tr>
            <td height="25" ><table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td height="25" background="../Images/title-bj.gif"><font color=red><b>&nbsp;个人推荐</b></font></td>
                  <td align="right" background="../Images/title-bj.gif"><a href="AmvoteList.asp?SortID=122&SortPath=0,122,">更多..　　</a> </td>
                </tr>
            </table></td>
          </tr>
          <tr>
            <td height="40" align="center"><% VoteProducts(122) %></td>
          </tr>
        </table>
        <table width="100%" border="0" cellspacing="0" cellpadding="0" class="Outside">
          <tr>
            <td height="25" ><table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td height="25" background="../Images/title-bj.gif"><font color=red><b>&nbsp;专家推荐</b></font></td>
                  <td align="right" background="../Images/title-bj.gif"><a href="AmvoteList.asp?SortID=124&SortPath=0,124,">更多..　　</a> </td>
                </tr>
            </table></td>
          </tr>
          <tr>
            <td height="40" align="center"><% VoteProducts(124) %></td>
          </tr>
        </table>
        <table width="100%" border="0" cellspacing="0" cellpadding="0" class="Outside">
          <tr>
            <td height="25" ><table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td height="25" background="../Images/title-bj.gif"><font color=red><b>&nbsp;团队推荐</b></font></td>
                  <td align="right" background="../Images/title-bj.gif"><a href="AmvoteList.asp?SortID=125&SortPath=0,125,">更多..　　</a> </td>
                </tr>
            </table></td>
          </tr>
          <tr>
            <td height="40" align="center"><% VoteProducts(125) %></td>
          </tr>
        </table></td>
    </tr>
  </table>
    <table width="950" border="0" cellpadding="0" cellspacing="0"   bgcolor="red">
    <tr>
      <td height="2" valign="bottom"></td>
    </tr>
  </table>
</div>
<%
function MainNews()
  dim rs,sql,i,NewsName
  set rs = server.createobject("adodb.recordset")
  sql="select ID,NewsName,SortID from ameav_News where ViewFlag  order by id desc"
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
     response.write "暂无相关信息"
  end if
  for i=1 to 6
    if rs.eof then exit for
	  	if StrLen(rs("NewsName"))<=40 then
        NewsName=rs("NewsName")
	  else 
	    NewsName=StrLeft(rs("NewsName"),38)
	  end if
    response.write "<table ><tr><td><img src='../images/bg.gif' border='0'></td><td class='ListTitlv' width='95%'><a href=NewsView.asp?ID="&rs("ID")&"&SortID="&rs("SortID")&">"&NewsName&"</a></td></tr></table>"
    rs.movenext
  next
  rs.close
  set rs=nothing
end function

function VoteProducts(Cate)
  dim rs,sql,i,ProductName,SmallPicPath,ProductNo,ClickNumber
  set rs = server.createobject("adodb.recordset")
  sql="select ID,ProductNo,ClickNumber,ProductName,SortID,SmallPic,GroupID,Exclusive from ameav_Products where ViewFlag  and SortID="&Cate&" order by id desc"
  rs.open sql,conn,1,1
  response.write"<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
  response.write "<tr><td height='20'></td></tr>"
  if rs.bof and rs.eof then
    response.write "<tr><td align='center'>暂无相关信息</td></tr>"
  else
    response.write"<tr>"
    for i=1 to 8
      if rs.eof then exit for
	  response.write"<td width='20%'>"
	  if StrLen(rs("ProductName"))<=10 then
        ProductName=rs("ProductName")
	  else 
	    ProductName=StrLeft(rs("ProductName"),8)
	  end if
	  ProductNo=rs("ProductNo")
	  ClickNumber=rs("ClickNumber")
	  SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive"))
      response.write "<table align='center'  border='0' cellpadding='0' cellspacing='0' >" &_
	                 "<tr><td align='center'  width='140' height='110' style='text-decoration: underline; " &_
					 "border: 2px solid #dd0000;'><a href='AmvoteView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"'>" &_
					 "<img src='"&SmallPicPath&"' border='0' width='140' height='110'></a>" &_
					 "</td></tr><tr><td height='25' align='center'><a href='AmvoteView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"'>"&ProductName&"</a>--<a href='"&ProductNo&"' target=_blank>网址</a>--<font color=red>"&ClickNumber&"票</font><br>"
	  response.write "<a href='AmvoteView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"'><font color=red>投此一票</font></a>"
	  response.write "&nbsp;<a href='AmvoteView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"&#pl'>评论</a></td></tr></table>"
	  response.write"</td>"
    if i mod 4 = 0 then
    response.write"</tr>"
	end if 
      rs.movenext
    next
  end if
  response.write "</table>"
  rs.close
  set rs=nothing
end function

function TopFriendSite()
  dim rs,sql
  dim i,SiteFace
  set rs = server.createobject("adodb.recordset")
  sql="select top 14 * from ameav_FriendSite where ViewFlag  order by id desc"
  rs.open sql,conn,1,1
  if not (rs.bof and rs.eof) then
      response.write "<table  border='0' cellpadding='0' cellspacing='0'  width='98%'><tr>"
	  i=1
	  do while not rs.eof
	  if rs("LinkType") then 
   	    SiteFace="<td align='center'  width='125' height='45' ><a href='"&rs("SiteUrl")&"' target=_blank><img src="&rs("SiteFace")&" width=110 height=30  border=0 style='text-decoration: underline;border: 1px solid #CCCCCC;'>"
	  else
	    SiteFace=rs("SiteFace")
	    if len(SiteFace)>8 then SiteFace=left(SiteFace,8)
	  end if
      response.write "<a target='_blank' href='"&rs("SiteUrl")&"' target='_blank' title="&rs("SiteName")&">"&SiteFace&"</a></td>"
	  if i mod 7 = 0 then
      response.write "</a></tr>"
	  end if

	             rs.movenext
                 i=i+1
    		     loop
      response.write "</table>"
	  end if
  rs.Close
  set rs=nothing
end function
function TopMessage()
  dim rs,sql,i,MesName,NewFlag
  set rs = server.createobject("adodb.recordset")
  sql="select ID,MesName,AddTime from Ameav_Message where ViewFlag  order by id desc"
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
    response.write "暂无相关信息"
  else
    for i=1 to 6
      if rs.eof then exit for
	  if StrLen(rs("MesName"))<=32 then
        MesName=rs("MesName")
	  else 
	    MesName=StrLeft(rs("MesName"),30)
	  end if
	  if now()-rs("AddTime")<=2 then 
	    NewFlag="&nbsp;<img src='../Images/New_01.gif'>"
	  else
	    NewFlag=""
	  end if
    response.write "<table ><tr><td><img src='../images/bg.gif' border='0'></td><td  class='ListTitlv'  width='95%'>&nbsp;<a href='MessageList.asp'>"&MesName&"</a>"&NewFlag&"</td></tr></table>"
      rs.movenext
    next
  end if
  rs.close
  set rs=nothing
end function
%>

<!--#include file="Foot.asp"-->