<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="set.asp" -->
<!--#include file="function.asp" -->
<!--#include file="sub.asp" -->
<%
Dim NewsChina,NewsWorld,NewsSports,NewsTech,NewsFinance,NewsEnt,NewsSociety
call GetHomeNews()
call GetImgNews("all")
%>
<html>
<head>
<title>3鸟设社--新闻专区http://www.3niao.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="0" topmargin="0">
<!--#include file="top.asp" --> <!--#include file="item.asp" --> <table width="773" height="25" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#333333"> 
<tr> <td>&nbsp;</td></tr> </table><table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> 
<tr> <td width="268" valign="top"><table width="268" border="0" cellspacing="0" cellpadding="0"> 
<tr> <td width="20" class="Item_1"><img src="img/new_27_1.gif" width="20" height="20"></td><td valign="bottom" class="Item_2"><table width="100%" height="16" border="0" cellpadding="0" cellspacing="0"> 
<tr> <td valign="top"><font color="#FFFFFF">&nbsp;&nbsp;图 片 新 闻</font></td></tr> 
</table></td></tr> </table><table width="268" height="181" border="0" cellpadding="0" cellspacing="0" bgcolor="#666666"> 
<tr> <td align="center"><table border="0" cellpadding="0" cellspacing="1"> <tr> 
<%
				Dim rs
				Randomize
				rs = Int((5 * Rnd) + 1)
				select case rs
				case 1
				sImgNews = split(ImgNewsChina,"</a>")
				case 2
				sImgNews = split(ImgNewsWorld,"</a>")
				case 3
				sImgNews = split(ImgNewsSports,"</a>")
				case 4
				sImgNews = split(ImgNewsEnt,"</a>")
				case 5
				sImgNews = split(ImgNewsSociety,"</a>")
				end select
				For i=0 to ubound(sImgNews)-1 step 2
				If i=4 then Response.Write "</tr><tr>" 
				%> <td><% Response.Write Replace(sImgNews(i),"border=1","border=0")&"</a>" %></td><%
				If i>=6 then exit for
				Next
				%> </tr> </table></td></tr> </table><table width="268" border="0" cellspacing="0" cellpadding="0"> 
<tr> <td width="20" class="Item_1"><img src="img/new_27_1.gif" width="20" height="20"></td><td valign="bottom" class="Item_2"><table width="100%" height="16" border="0" cellpadding="0" cellspacing="0"> 
<tr> <td valign="top"><font color="#FFFFFF">&nbsp;&nbsp;新 闻 搜 索</font></td></tr> 
</table></td></tr> </table><table width="268" height="42" border="0" cellpadding="0" cellspacing="10" class="Item_8"> 
<form name="form1" method="get" action="search.asp" target="_blank"> <tr> <td height="22" align="center"><input name="word" type="text" id="word" style="width:117"> 
<select name="mt" id="mt"> <option value="">新闻全文</option> <option value="1">新闻标题</option> 
</select> <input type="submit" value="搜索"></td></tr> </form></table><table width="268" border="0" cellspacing="0" cellpadding="0"> 
<tr> <td width="20" class="Item_1"><img src="img/new_27_1.gif" width="20" height="20"></td><td valign="bottom" class="Item_2"><table width="100%" height="16" border="0" cellpadding="0" cellspacing="0"> 
<tr> <td valign="top"><font color="#FFFFFF">&nbsp;&nbsp;天 气 预 报</font></td></tr> 
</table></td><td width="40" align="center" class="Item_2"><font face=webdings color=white><span onClick="WeatherMarquee.direction='up'" style="cursor:hand">5</span><span onClick="WeatherMarquee.direction='down'" style="cursor:hand">6</span></font></td></tr> 
</table><table width="268" height="134" border="0" cellpadding="0" cellspacing="10" class="Item_8"> 
<% call WeatherShow() %> <tr> <td> <!--#include file="WeatherPic.asp" --> <marquee id=WeatherMarquee onMouseOver=this.stop() onMouseOut=this.start() border="0" align="middle" scrollamount="1" direction="up" scrolldelay="60" behavior="scroll"  width="100%" height="100%"> 
<script language="VBScript" type="text/VBScript">
		  for i=0 to ubound(WeatherArray)
		  document.write "<table width=100% border=0 cellspacing=5 cellpadding=0><tr><td><nobr><font color=red>["&WeatherArray(i,0)&"]</font></nobr>&nbsp;"&WeatherPic( WeatherArray(i,1) )&"</td><td align=right>"&WeatherArray(i,2)&"</td></tr></table>"
		  next
		  </script> </marquee> </td></tr> </table><table width="268" border="0" cellspacing="0" cellpadding="0"> 
<tr> <td width="20" class="Item_1"><img src="img/new_27_1.gif" width="20" height="20"></td><td valign="bottom" class="Item_2"><table width="100%" height="16" border="0" cellpadding="0" cellspacing="0"> 
<tr> <td valign="top"><font color="#FFFFFF">&nbsp;&nbsp;证 券 快 报</font></td></tr> 
</table></td></tr> </table><table width="268" height="140" border="0" cellpadding="0" cellspacing="10" bgcolor="#F7F7F7"> 
<tr> <td><table width="248" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="150" align="center"><A href="http://chartse.stockstar.com/special?module=chartserver&amp;proc=aindex"  target=_blank><img src="http://chartse.stockstar.com/special?module=chartserver&proc=aindex" border="0"></A></td><td align="center" valign="top"><table width="100%" border="0" cellspacing="4" cellpadding="0"> 
<FORM  action=http://www.stockstar.online.sh.cn/simple/Stockstar/Quote/Query.asp  method=post target=_blank> 
<tr> <td>股票信息查询</td></tr> <tr> <td><input name=s_code maxlength="7" style="width:74px"></td></tr> 
<tr> <td><select  name=ID size=1> <option selected>实时行情</option> <option value=RTLine>实时曲线</option> 
<option value=chart_history>历史曲线</option> <option value=chart_Technique>技术曲线</option> 
<option value=HistQ>历史行情</option> <option value=BBS>公告板</option> </select></td></tr> 
<tr> <td><input name=submit type=submit value=查询></td></tr> <tr> <td><A  href="http://quote.stockstar.com/proquote/external_symbol.asp" target="_blank"><FONT color=red>代码对照表</FONT></A></td></tr> 
</FORM></table></td></tr> </table></td></tr> </table></td><td width="500" valign="top" class="line_l"><table width="504" border="0" cellpadding="0" cellspacing="0" bgcolor="#D6D7D6" class="Item_7"> 
<tr> <td width="44"><img src="img/new_27_5.gif" width="41" height="20"></td><td valign="bottom"> 
<table width="100%" height="16" border="0" cellpadding="0" cellspacing="0"> <tr> 
<td valign="top">国 内 新 闻</td></tr> </table></td></tr> </table><table width="504" height="270" border="0" cellpadding="0" cellspacing="0" bgcolor="#D6D7D6" class="Item_7"> 
<tr> <td valign="top" bgcolor="#FFFFFF"  class="Item_8"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="newsLink"> 
<tr valign="top"> <td><table width="100%" border="0" cellspacing="10" cellpadding="0"> 
<tr> <td style="line-height:19px "> <% Response.Write NewsChina %> </td></tr> 
</table></td><td width="144" style="line-height:18px "><table width="100%" border="0" cellpadding="0" cellspacing="10"> 
<%
					sImgNewsChina=split(ImgNewsChina,"</a>")
					us = (ubound(sImgNewsChina)-1-4)/2
					Randomize
					rs = Int((us+1)*Rnd)
					rs = 2*rs
					For i=rs to rs+3
					%> <tr> <td align="center"> <% Response.Write sImgNewsChina(i)&"</a>" %> 
</td></tr> <%
					Next
					%> </table></td></tr> </table></td></tr> 
</table><table width="504" border="0" cellpadding="0" cellspacing="0" bgcolor="#D6D7D6" class="Item_7"> 
<tr> <td width="44"><img src="img/new_27_5.gif" width="41" height="20"></td><td valign="bottom"> 
<table width="100%" height="16" border="0" cellpadding="0" cellspacing="0"> <tr> 
<td valign="top">国 际 新 闻</td></tr> </table></td></tr> </table><table width="504" height="270" border="0" cellpadding="0" cellspacing="0" bgcolor="#D6D7D6" class="Item_7"> 
<tr> <td valign="top" bgcolor="#FFFFFF"  class="Item_8"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="newsLink"> 
<tr valign="top"> <td><table width="100%" border="0" cellspacing="10" cellpadding="0"> 
<tr> <td style="line-height:19px "> <% Response.Write NewsWorld %> </td></tr> 
</table></td><td width="144" style="line-height:18px "><table width="100%" border="0" cellpadding="0" cellspacing="10"> 
<%
					sImgNewsWorld=split(ImgNewsWorld,"</a>")
					us = (ubound(sImgNewsWorld)-1-4)/2
					Randomize
					rs = Int((us+1)*Rnd)
					rs = 2*rs
					For i=rs to rs+3
					%> <tr> <td align="center"> <% Response.Write sImgNewsWorld(i)&"</a>" %> 
</td></tr> <%
					Next
					%> </table></td></tr> </table></td></tr> 
</table></td></tr> </table><table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> 
<tr> <td width="268" valign="top"> <table width="268" border="0" cellspacing="0" cellpadding="0"> 
<tr> <td width="20" class="Item_1"><img src="img/new_27_1.gif" width="20" height="20"></td><td valign="bottom" class="Item_2"><table width="100%" height="16" border="0" cellpadding="0" cellspacing="0"> 
<tr> <td valign="top"><font color="#FFFFFF">&nbsp;&nbsp; 热点新闻</font></td></tr> 
</table></td></tr> </table><table width="268" height="270" border="0" cellpadding="0" cellspacing="8" class="Item_8"> 
<tr> <td><!--#include file="MyItem.asp" --></td></tr> </table></td><td width="500" valign="top" class="line_l"> 
<table width="504" border="0" cellpadding="0" cellspacing="0" bgcolor="#D6D7D6" class="Item_7"> 
<tr> <td width="44"><img src="img/new_27_5.gif" width="41" height="20"></td><td valign="bottom"> 
<table width="100%" height="16" border="0" cellpadding="0" cellspacing="0"> <tr> 
<td valign="top">体 育 新 闻</td></tr> </table></td></tr> </table><table width="504" border="0" cellpadding="0" cellspacing="0" bgcolor="#D6D7D6" class="Item_7"> 
<tr> <td valign="top" bgcolor="#FFFFFF"  class="Item_8"><table width="100%" height="270" border="0" cellpadding="0" cellspacing="0" class="newsLink"> 
<tr valign="top"> <td><table width="100%" border="0" cellspacing="10" cellpadding="0"> 
<tr> <td style="line-height:19px "> <% Response.Write NewsSports %> </td></tr> 
</table></td><td width="144" style="line-height:18px "><table width="100%" border="0" cellpadding="0" cellspacing="10"> 
<%
					sImgNewsSports=split(ImgNewsSports,"</a>")
					us = (ubound(sImgNewsSports)-1-4)/2
					Randomize
					rs = Int((us+1)*Rnd)
					rs = 2*rs
					For i=rs to rs+3
					%> <tr> <td align="center"> <% Response.Write sImgNewsSports(i)&"</a>" %> 
</td></tr> <%
					Next
					%> </table></td></tr> </table></td></tr> 
</table></td></tr> </table><table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> 
<tr> <td width="268" valign="top"> <table width="268" border="0" cellspacing="0" cellpadding="0"> 
<tr> <td width="20" class="Item_1"><img src="img/new_27_1.gif" width="20" height="20"></td><td valign="bottom" class="Item_2"><table width="100%" height="16" border="0" cellpadding="0" cellspacing="0"> 
<tr> <td valign="top"><font color="#FFFFFF">&nbsp;&nbsp;财 经 新 闻</font></td></tr> 
</table></td></tr> </table><table width="268" height="270" border="0" cellpadding="0" cellspacing="10" bgcolor="#EEEEEE" class="Item_8" style="table-layout: fixed"> 
<tr> <td style="line-height:19px" nowrap ><%=NewsFinance%></td></tr> </table></td><td width="500" valign="top" class="line_l"> 
<table width="504" border="0" cellpadding="0" cellspacing="0" bgcolor="#D6D7D6" class="Item_7"> 
<tr> <td width="44"><img src="img/new_27_5.gif" width="41" height="20"></td><td valign="bottom"> 
<table width="100%" height="16" border="0" cellpadding="0" cellspacing="0"> <tr> 
<td valign="top">娱 乐 新 闻</td></tr> </table></td></tr> </table><table width="504" height="270" border="0" cellpadding="0" cellspacing="0" bgcolor="#D6D7D6" class="Item_7"> 
<tr> <td valign="top" bgcolor="#FFFFFF"  class="Item_8"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="newsLink"> 
<tr valign="top"> <td><table width="100%" border="0" cellspacing="10" cellpadding="0"> 
<tr> <td style="line-height:19px "> <% Response.Write NewsEnt %> </td></tr> </table></td><td width="144" style="line-height:18px "><table width="100%" border="0" cellpadding="0" cellspacing="10"> 
<%
					sImgNewsEnt=split(ImgNewsEnt,"</a>")
					us = (ubound(sImgNewsEnt)-1-4)/2
					Randomize
					rs = Int((us+1)*Rnd)
					rs = 2*rs
					For i=rs to rs+3
					%> <tr> <td align="center"> <% Response.Write sImgNewsEnt(i)&"</a>" %> 
</td></tr> <%
					Next
					%> </table></td></tr> </table></td></tr> 
</table></td></tr> </table><table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> 
<tr> <td width="268" valign="top"> <table width="268" border="0" cellspacing="0" cellpadding="0"> 
<tr> <td width="20" class="Item_1"><img src="img/new_27_1.gif" width="20" height="20"></td><td valign="bottom" class="Item_2"><table width="100%" height="16" border="0" cellpadding="0" cellspacing="0"> 
<tr> <td valign="top"><font color="#FFFFFF">&nbsp;&nbsp;科 技 新 闻</font></td></tr> 
</table></td></tr> </table><table width="268" height="270" border="0" cellpadding="0" cellspacing="10" class="Item_8" style="table-layout: fixed"> 
<tr> <td style="line-height:19px" nowrap ><%=NewsTech%></td></tr> </table></td><td width="500" valign="top" class="line_l"> 
<table width="504" border="0" cellpadding="0" cellspacing="0" bgcolor="#D6D7D6" class="Item_7"> 
<tr> <td width="44"><img src="img/new_27_5.gif" width="41" height="20"></td><td valign="bottom"> 
<table width="100%" height="16" border="0" cellpadding="0" cellspacing="0"> <tr> 
<td valign="top">社 会 新 闻</td></tr> </table></td></tr> </table><table width="504" height="270" border="0" cellpadding="0" cellspacing="0" bgcolor="#D6D7D6" class="Item_7"> 
<tr> <td valign="top" bgcolor="#FFFFFF"  class="Item_8"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="newsLink"> 
<tr valign="top"> <td><table width="100%" border="0" cellspacing="10" cellpadding="0"> 
<tr> <td style="line-height:19px "> <% Response.Write NewsSociety %> </td></tr> 
</table></td><td width="144" style="line-height:18px "><table width="100%" border="0" cellpadding="0" cellspacing="10"> 
<%
					sImgNewsSociety=split(ImgNewsSociety,"</a>")
					us = (ubound(sImgNewsSociety)-1-4)/2
					Randomize
					rs = Int((us+1)*Rnd)
					rs = 2*rs
					For i=rs to rs+3
					%> <tr> <td align="center"> <% Response.Write sImgNewsSociety(i)&"</a>" %> 
</td></tr> <%
					Next
					%> </table></td></tr> </table></td></tr> 
</table></td></tr> </table><script src="http://www.cn-media.com/non5.asp"></script> 
<!--#include file="about.asp" --> 
</body>
</html>
