📄 news.asp
字号:
<!--#include file="set.asp" -->
<!--#include file="function.asp" -->
<html>
<title>天堂鸟（skynet.7u7.net）实时新闻</title>
<link rel="stylesheet" href="style.css" type="text/css">
<body leftmargin="0" topmargin="0">
<table width="773" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#000000">
<tr>
<td height="25" align="center" bgcolor="#6284cf">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><font color="#000000"> </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"><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"> </font></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="773" border="0" cellspacing="0" cellpadding="0" align="center" height="10">
<tr>
<td></td>
</tr>
</table>
<%
NewsList(Trim(Request.QueryString("n")))
NewsImage()
%>
<table width="773" 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 bgcolor="#6284cf" class="line_b" align="center">图 片 新 闻</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" bgcolor="#6284cf"><b>天气预报</b></td>
</tr>
<tr>
<td width="100%" height="100%" class="line_t" style="font-family=宋体">
<!--#include file="weather.asp" -->
</td>
</tr>
</table>
<% If Trim(Request.QueryString("n"))<>"" then %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td class="thetitle" bgcolor="#6284cf" height="22"><b><%=Trim(Request.QueryString("n"))%>新闻</b></td>
</tr>
<tr>
<td class="line_t" style="LINE-HEIGHT: 200%""><%=News%></td>
</tr>
</table>
<% Else %>
<% If YuLe<>"" then %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td class="thetitle" bgcolor="#6284cf" height="22"><b>娱乐新闻</b></td>
</tr>
<tr>
<td class="line_t" style="LINE-HEIGHT: 200%""><%=Replace(YuLe,"[娱乐]","")%></td>
</tr>
</table>
<% End if %>
<% If TiYu<>"" then %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td class="thetitle" height="22" bgcolor="#6284cf"><b>体育新闻</b></td>
</tr>
<tr>
<td class="line_t" style="LINE-HEIGHT: 200%""><%=replace(TiYu,"[体育]","")%></td>
</tr>
</table>
<% End if %>
<% If KeJi<>"" then %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td class="thetitle" height="22" bgcolor="#6284cf"><b>科技新闻</b></td>
</tr>
<tr>
<td class="line_t" style="LINE-HEIGHT: 200%""><%=replace(KeJi,"[科技]","")%></td>
</tr>
</table>
<% End if %>
<% If CaiJin<>"" then %>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td class="thetitle" height="22" bgcolor="#6284cf"><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 class="thetitle" height="22" bgcolor="#6284cf"><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 class="thetitle" height="22" bgcolor="#6284cf"><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 class="thetitle" height="22" bgcolor="#6284cf"><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 class="thetitle" height="22" bgcolor="#6284cf"><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 class="thetitle" height="22" bgcolor="#6284cf"><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 class="thetitle" height="22" bgcolor="#6284cf"><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 class="thetitle" height="22" bgcolor="#6284cf"><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" bgcolor="#6284cf" 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>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -