?? index1.asp
字號:
<%@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>[3NIAO.COM]綜合網--新聞頻道http://news.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="jczs.asp" -->
<table width="773" height="25" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#333333">
<tr>
<td> </td>
</tr>
</table>
<!--#include file="ad_top.asp" -->
<table width="773" 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"> 圖 片 新 聞</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"> 新 聞 搜 索</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"> 天 氣 預 報</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> "&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"> 證 券 快 報</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&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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -