?? world.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="set.asp" -->
<!--#include file="function.asp" -->
<!--#include file="sub.asp" -->
<%
dim s1
theDate = Trim(Request.QueryString("theDate"))
call GetNewsList(theDate,"world")
call GetImgNews("world")
%>
<html>
<head>
<title>E師在線 >> 綜合新聞</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" -->
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top>
<TABLE cellSpacing=3 cellPadding=0 width=574 bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD height=80><IMG
height=110 src="img/banner569x110.gif"
width=569 border=0></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD height=3><IMG height=1 src="" width=1></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=575 border=0>
<TBODY>
<TR>
<TD width=3 height=400><IMG height=1
src="img/dot.gif" width=1></TD>
<TD vAlign=top width=575 height=400>
<TABLE cellSpacing=3 cellPadding=0 width=575 bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width=25 bgColor=#ff6600 height=25>
<DIV align=center><IMG height=7
src="img/arrow.gif"
width=7></DIV></TD>
<TD width=621 bgColor=#666666 height=25>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><FONT color=#ffffff> 當前位置:</FONT><A
href="http://www.163sm.com/"><FONT
color=#ffffff>首頁</FONT></A><FONT color=#ffffff><STRONG> - </STRONG></FONT><A
href="http://www.163sm.com/news"><FONT
color=#ffffff>新聞中心</FONT></A><FONT color=#ffffff> - 國際新聞</FONT></TD>
<TD width=65> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR vAlign=top bgColor=#eeeeee>
<TD colSpan=2 height=185>
<TABLE width="100%" height="800" border=0 cellPadding=0 cellSpacing=3>
<TBODY>
<TR>
<TD width="0" height=0 vAlign=top>
<DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
align=center border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
align=center border=0>
<TBODY>
<TR>
<TD height=10><IMG height=1 src=""
width=1></TD>
</TR>
</TBODY>
</TABLE>
<table width="100%" border="0" cellpadding="0" cellspacing="10">
<tr>
<td>
<% = s1 %> </td>
</tr>
<SCRIPT LANGUAGE="JavaScript">
<!-- Hide
function ShowDateFile(){
if(document.forms.old_cheese.Year.selectedIndex==0) { alert("請選擇年份"); return false;}
if(document.forms.old_cheese.Month.selectedIndex==0){ alert("請選擇月份"); return false;}
if(document.forms.old_cheese.Day.selectedIndex==0) { alert("請選擇日期"); return false;}
year = document.forms. old_cheese. Year.options[document.forms. old_cheese.Year.selectedIndex].value;
month= document.forms. old_cheese. Month.options[document.forms. old_cheese.Month.selectedIndex].value;
day = document.forms. old_cheese. Day.options[document.forms. old_cheese.Day.selectedIndex].value;
if(year==1999 && month<8 && day<19){alert("各欄目往日新聞是從1999年7月19日開始的"); return false;}
loadpos="world.asp?theDate="+year+"-"+month+"-"+day;
controlWindow=location.replace(loadpos);
return false;
}
//-->
</SCRIPT>
<form method="POST" action="--WEBBOT-SELF--" name='old_cheese'>
<tr>
<td>
<select name="Year" size="1">
<option value="選擇年份"> 選擇年份 </option>
<option value="2004">2004</option>
<option value="2003">2003</option>
<option value="2002">2002</option>
<option value="2001">2001</option>
<option value="2000">2000</option>
<option value="1999">1999</option>
</select>
<select name="Month" size="1">
<option value="選擇月份"> 選擇月份 </option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
</select>
<select name="Day" size="1">
<option value="選擇日期"> 選擇日期 </option>
<option value="01">1</option>
<option value="02">2</option>
<option value="03">3</option>
<option value="04">4</option>
<option value="05">5</option>
<option value="06">6</option>
<option value="07">7</option>
<option value="08">8</option>
<option value="09">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select>
<input name="button" type="button" onClick="ShowDateFile();return false;" value=" 觀看本欄目新聞 ">
</td>
</tr>
</form>
</table>
<BR></TD>
</TR>
</TBODY>
</TABLE>
</DIV></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD vAlign=top width=200
background="img/rbg.gif">
<TABLE cellSpacing=3 cellPadding=0 width="100%" bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width=25 bgColor=#ff6600 height=25>
<DIV align=center><IMG height=7
src="img/arrow.gif" width=7></DIV></TD>
<TD width=166 bgColor=#666666 height=25> <font color="#FFFFFF">圖片新聞</font></TD>
</TR>
<TR bgColor=#eeeeee>
<TD colSpan=2><table width="100%" border="0" cellpadding="0" cellspacing="14">
<%
sImgNewsWorld=split(ImgNewsWorld,"</a>")
For i=0 to ubound(sImgNewsWorld)-1
%>
<tr>
<td align="center">
<% Response.Write sImgNewsWorld(i)&"</a>" %>
</td>
</tr>
<%
Next
%>
</table></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD background="img/bg.gif" height=3><IMG
height=1 src="" width=1></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=3 cellPadding=0 width="100%" bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width=25 bgColor=#ff6600 height=25>
<DIV align=center><IMG height=7
src="img/arrow.gif" width=7></DIV></TD>
<TD width=166 bgColor=#666666 height=25> <FONT
color=#ffffff>今日頭條</FONT></TD>
</TR>
<TR bgColor=#eeeeee>
<TD colSpan=2> </TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD background="img/bg.gif" height=3><IMG
height=1 src="" width=1></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=3 cellPadding=0 width="100%" bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width=25 bgColor=#ff6600 height=25>
<DIV align=center><IMG height=7
src="img/arrow.gif" width=7></DIV></TD>
<TD width=166 bgColor=#666666 height=25> <FONT
color=#ffffff>新聞專題</FONT></TD>
</TR>
<TR bgColor=#eeeeee>
<TD colSpan=2 height=106> </TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD background="img/bg.gif" height=3><IMG
height=1 src="" width=1></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<!--#include file="about.asp" -->
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -