📄 news.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="set.asp" -->
<!--#include file="function.asp" -->
<html>
<head>
<title><%=SiteName%> 实时新闻</title>
<link rel="stylesheet" href="style.css" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<table width="770" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#000000">
<tr>
<td height="10" background="bgimg_2.gif" bgcolor="#9CCBFF" class="bbs_COLOR_2"></td>
</tr>
<tr>
<td height="70" bgcolor="#9BC9FB">
<table width="769" border="0" cellspacing="0" cellpadding="0" height="98">
<tr>
<td width="601" height="98" align="right" background="cichinaTOP.jpg"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25" align="center" background="bgimg_1.gif" bgcolor="#9CCBFF">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><font color="#000000"><script>var tc_user="cap99";var tc_class="2";</script><script src="http://stat.t2t2.com/stat.js"></script>--</font></td>
<td align="center"><a href="news.asp"><font color="#000000">最新新闻</font></a></td>
<td align="center"><font color="#000000">│</font></td>
<td align="center"><a href="news.asp?n=军事"><font color="#000000">军事新闻</font></a></td>
<td align="center"><font color="#000000">│</font></td>
<td align="center"><a href="news.asp?n=体育"><font color="#000000">体育新闻</font></a></td>
<td align="center"><font color="#000000">│</font></td>
<td align="center"><a href="news.asp?n=科技"><font color="#000000">科技新闻</font></a></td>
<td align="center"><font color="#000000">│</font></td>
<td align="center"><a href="news.asp?n=财经"><font color="#000000">财经新闻</font></a></td>
<td align="center"><font color="#000000">│</font></td>
<td align="center" background="bgimg_1.gif"><a href="news.asp?n=Éç»á"><font color="#000000">社会新闻</font></a></td>
<td align="center"><font color="#000000">│</font></td>
<td align="center"><a href="news.asp?n=影音"><font color="#000000">影音新闻</font></a></td>
<td align="center"><font color="#000000">│</font></td>
<td align="center"><a href="news.asp?n=国内"><font color="#000000">国内新闻</font></a></td>
<td align="center"><font color="#000000">│</font></td>
<td align="center"><a href="news.asp?n=国际"><font color="#000000">国际新闻</font></a></td>
<td align="center"><font color="#000000">│</font></td>
<td align="center"><a href="news.asp?n=教育"><font color="#000000">文教新闻</font></a></td>
<td align="center"><font color="#000000">│</font></td>
<td align="center"><a href="news.asp?n=综合"><font color="#000000">综合新闻</font></a></td>
<td align="center"><font color="#000000">--<script src="http://www.cap99.com/free/counts/count.asp?view=cap99&fy=1"></script></font></td>
</tr>
</table> </td>
</tr>
</table>
<table width="770" border="0" cellspacing="0" cellpadding="0" align="center" height="10">
<tr>
<td></td>
</tr>
</table>
<%
NewsList(Trim(Request.QueryString("n")))
NewsImage()
%>
<table width="770" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="132" valign="top" align="center" bgcolor="#CCCCCC">
<table border="0" cellspacing="0" cellpadding="4" bgcolor="#CCCCCC">
<tr>
<td align="center" background="bgimg_1.gif" class="line_b">图 片 新 闻</td>
</tr>
<%
For i=1 to Count\4 -1
Response.Write "<tr><td align=center >"&ArrayNewsImg(i)&"</td></tr><tr><td align=center >"&ArrayNewsTitle(i)&"</td></tr>"
Next
%>
</table>
</td>
<td width="10"></td>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td height="22" background="bgimg_1.gif"><b>热门搜索</b></td>
</tr>
<tr>
<td align="center" class="line_t">
<TABLE border=0 cellPadding=0 cellSpacing=0>
<SCRIPT language=javascript>
function gowhere(formname)
{
var url;
if (formname.myselectvalue.value == "0")
{
url = "http://www1.baidu.com/baidu";
document.search_form.tn.value = "siteiecity";
formname.method = "get";
}
if (formname.myselectvalue.value == "1")
{
url = "http://mp3search.baidu.com/wstsearch";
document.search_form.tn.value = "baidump3";
document.search_form.ct.value = "134217728";
document.search_form.lm.value = "-1";
formname.method = "get";
}
if (formname.myselectvalue.value == "2")
{
document.search_form.tn.value = "flash";
document.search_form.ct.value = "33554432";
url = "http://flash.baidu.com/wstsearch";
}
if (formname.myselectvalue.value == "3")
{
document.search_form.tn.value = "baiduwstui";
document.search_form.ct.value = "83886080";
url = "http://www1.baidu.com/wstsearch";
}
formname.action = url;
return true;
}
</SCRIPT>
<FORM name=search_form onsubmit="return gowhere(this)" target=_blank>
<INPUT name=myselectvalue type=hidden value=0>
<INPUT name=tn type=hidden>
<INPUT name=ct type=hidden>
<INPUT name=lm type=hidden>
<TR>
<TD><FONT style="FONT-SIZE: 12px">
<INPUT CHECKED name=myselect onclick=javascript:this.form.myselectvalue.value=0; type=radio value=0>
<FONT color=#0000cc style="FONT-SIZE: 12px">网页</FONT>
<INPUT name=myselect onclick=javascript:this.form.myselectvalue.value=1; type=radio value=1>
<FONT color=#0000cc style="FONT-SIZE: 12px">mp3</FONT>
<INPUT name=myselect onclick=javascript:this.form.myselectvalue.value=2; type=radio value=2>
<FONT color=#0000cc style="FONT-SIZE: 12px">flash</FONT>
<INPUT name=myselect onclick=javascript:this.form.myselectvalue.value=3; type=radio value=3>
<FONT color=#0000cc style="FONT-SIZE: 12px">信息快递 </FONT>
<input id=word name=word size="20" value="极速影院" onMouseOver="this.focus()" onblur="if (value ==''){value='极速影院'}" onFocus="this.select()" onClick="if(this.value=='极速影院')this.value=''">
</FONT> <input type="submit" name="Submit" value="搜索"></TD>
</TR>
</FORM>
</TABLE> </td>
</tr>
</table>
<% If Trim(Request.QueryString("n"))<>"" then %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td height="22" background="bgimg_1.gif" class="thetitle"><b><%=Trim(Request.QueryString("n"))%>新闻</b></td>
</tr>
<tr>
<td class="line_t" style="LINE-HEIGHT: 200%""><%=News%></td>
</tr>
</table>
<% Else %>
<% If jczs<>"" then %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td height="22" background="bgimg_1.gif" class="thetitle"><b>军事新闻</b></td>
</tr>
<tr>
<td class="line_t" style="LINE-HEIGHT: 200%""><%=replace(jczs,"[军事]","")%></td>
</tr>
</table>
<% End if %>
<% If TiYu<>"" then %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td height="22" background="bgimg_1.gif" class="thetitle"><b>体育新闻</b></td>
</tr>
<tr>
<td class="line_t" style="LINE-HEIGHT: 200%""><%=replace(TiYu,"[体育]","")%></td>
</tr>
</table>
<% End if %>
<% If CaiJin<>"" then %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td height="22" background="bgimg_1.gif" class="thetitle"><b>财经新闻</b></td>
</tr>
<tr>
<td class="line_t" style="LINE-HEIGHT: 200%""><%=replace(CaiJin,"[财经]","")%></td>
</tr>
</table>
<% End if %>
<% If SheHui<>"" then %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td height="22" background="bgimg_1.gif" class="thetitle"><b>社会新闻</b></td>
</tr>
<tr>
<td class="line_t" style="LINE-HEIGHT: 200%""><%=replace(SheHui,"[社会]","")%></td>
</tr>
</table>
<% End if %>
<% If QiChe<>"" then %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td height="22" background="bgimg_1.gif" class="thetitle"><b>汽车新闻</b></td>
</tr>
<tr>
<td class="line_t" style="LINE-HEIGHT: 200%""><%=replace(QiChe,"[汽车]","")%></td>
</tr>
</table>
<% End if %>
<% If YingYin<>"" then %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td height="22" background="bgimg_1.gif" class="thetitle"><b>影音新闻</b></td>
</tr>
<tr>
<td class="line_t" style="LINE-HEIGHT: 200%""><%=replace(YingYin,"[影音]","")%></td>
</tr>
</table>
<% End if %>
<% If GuoNei<>"" then %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td height="22" background="bgimg_1.gif" class="thetitle"><b>国内新闻</b></td>
</tr>
<tr>
<td class="line_t" style="LINE-HEIGHT: 200%""><%=replace(GuoNei,"[国内]","")%></td>
</tr>
</table>
<% End if %>
<% If GuoJi<>"" then %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td height="22" background="bgimg_1.gif" class="thetitle"><b>国际新闻</b></td>
</tr>
<tr>
<td class="line_t" style="LINE-HEIGHT: 200%""><%=replace(GuoJi,"[国际]","")%></td>
</tr>
</table>
<% End if %>
<% If WenJiao<>"" then %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td height="22" background="bgimg_1.gif" class="thetitle"><b>文教新闻</b></td>
</tr>
<tr>
<td class="line_t" style="LINE-HEIGHT: 200%""><%=replace(WenJiao,"[文教]","")%></td>
</tr>
</table>
<% End if %>
<% If NvXing<>"" then %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td height="22" background="bgimg_1.gif" class="thetitle"><b>女性专题</b></td>
</tr>
<tr>
<td class="line_t" style="LINE-HEIGHT: 200%""><%=replace(NvXing,"[女性]","")%></td>
</tr>
</table>
<% End if %>
<% End if %>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="10">
<tr>
<td></td>
</tr>
</table>
</td>
<td width="10" valign="top"></td>
<td width="132" valign="top" align="center" bgcolor="#CCCCCC">
<table border="0" cellspacing="0" cellpadding="4" bgcolor="#CCCCCC">
<tr>
<td align="center" background="bgimg_1.gif" class="line_b">图 片 新 闻</td>
</tr>
<%
For i=Count\4 to Count\2-2
Response.Write "<tr><td align=center >"&ArrayNewsImg(i)&"</td></tr><tr><td align=center >"&ArrayNewsTitle(i)&"</td></tr>"
Next
%>
</table> </td>
</tr>
</table>
<table width="770" height="60" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#000000">
<tr>
<td bgcolor="#CECFCE"><!--#include file="about.asp" --></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -