📄 index.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>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=575 bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD height=80><IMG
height=90 src="img/banner569x90.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=3 cellPadding=0 width=575 bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD width=268 height=64 bgColor=#eeeeee>
<DIV 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></DIV> </TD>
<TD bgColor=#eeeeee><table width="100%" height="176" border="0" cellpadding="0" cellspacing="0">
<% call WeatherShow() %>
<tr>
<td width="307"> <!--#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></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 vAlign=top width=286 height=400>
<TABLE cellSpacing=3 cellPadding=0 width=286 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=252 bgColor=#666666 height=25>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><FONT color=#ffffff> 国际新闻</FONT></TD>
<TD width=65><A
href="world.asp"><IMG
height=20 src="img/more.gif"
width=60 border=0></A></TD>
</TR></TBODY></TABLE></TD></TR>
<TR vAlign=top bgColor=#eeeeee>
<TD height=185 colSpan=2 bgcolor="#eeeeee">
<TABLE cellSpacing=3 cellPadding=5 width="100%" border=0>
<TBODY>
<TR>
<TD height=185 nowrap><% Response.Write NewsWorld %> </TD>
</TR></TBODY></TABLE></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=3 cellPadding=0 width=286 bgColor=#ffffff
border=0>
<TBODY>
<TR bgColor=#eeeeee>
<TD colSpan=2 height=50><A href="http://yjonline.cn/page"><IMG
height=50 src="img/banner1.gif"
width=280 border=0></A></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=3 cellPadding=0 width=286 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=252 bgColor=#666666 height=25>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><FONT color=#ffffff> 体育新闻</FONT></TD>
<TD width=65><A href="sports.asp"><IMG
height=20 src="img/more.gif"
width=60 border=0></A></TD>
</TR></TBODY></TABLE></TD></TR>
<TR vAlign=top bgColor=#eeeeee>
<TD colSpan=2 height=185>
<TABLE cellSpacing=3 cellPadding=5 width="100%" border=0>
<TBODY>
<TR>
<TD height=185><% Response.Write NewsSports %></TD>
</TR></TBODY></TABLE></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=3 cellPadding=0 width=286 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=252 bgColor=#666666 height=25>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><FONT color=#ffffff> 科技新闻</FONT></TD>
<TD width=65><A href="tech.asp"><IMG
height=20 src="img/more.gif"
width=60 border=0></A></TD>
</TR></TBODY></TABLE></TD></TR>
<TR vAlign=top bgColor=#eeeeee>
<TD colSpan=2 height=185>
<TABLE cellSpacing=3 cellPadding=5 width="100%" border=0>
<TBODY>
<TR>
<TD height=185><%=NewsTech%> </TD>
</TR></TBODY></TABLE></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=3 cellPadding=0 width=286 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=252 bgColor=#666666 height=25>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><FONT color=#ffffff> 社会新闻</FONT></TD>
<TD width=65><A
href="society.asp"><IMG
height=20 src="img/more.gif"
width=60 border=0></A></TD>
</TR></TBODY></TABLE></TD></TR>
<TR vAlign=top bgColor=#eeeeee>
<TD colSpan=2 height=185>
<TABLE cellSpacing=3 cellPadding=5 width="100%" border=0>
<TBODY>
<TR>
<TD height=185><% Response.Write NewsSociety %></TD>
</TR></TBODY></TABLE></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></TD>
<TD width=3 height=400><IMG height=1
src="img/dot.gif" width=1></TD>
<TD vAlign=top height=400>
<TABLE cellSpacing=3 cellPadding=0 width=286 bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width=25 bgColor=#0066cc height=25>
<DIV align=center><IMG height=7
src="img/arrow.gif"
width=7></DIV></TD>
<TD width=252 bgColor=#0099ff height=25>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><FONT color=#ffffff> 国内新闻</FONT></TD>
<TD width=65><A
href="china.asp"><IMG
height=20 src="img/more.gif"
width=60 border=0></A></TD>
</TR></TBODY></TABLE></TD></TR>
<TR vAlign=top bgColor=#eeeeee>
<TD colSpan=2 height=185>
<TABLE cellSpacing=3 cellPadding=5 width="100%" border=0>
<TBODY>
<TR>
<TD height=185 nowrap><% Response.Write NewsChina %></TD>
</TR></TBODY></TABLE></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=3 cellPadding=0 width=286 bgColor=#ffffff
border=0>
<TBODY>
<TR bgColor=#eeeeee>
<TD colSpan=2 height=50><A href="http://yjonline.cn/page"><IMG
height=50 src="img/banner1.gif"
width=280 border=0></A></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=3 cellPadding=0 width=286 bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width=25 bgColor=#0066cc height=25>
<DIV align=center><IMG height=7
src="img/arrow.gif"
width=7></DIV></TD>
<TD width=252 bgColor=#0099ff height=25>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><FONT color=#ffffff> 娱乐新闻</FONT></TD>
<TD width=65><A href="ent.asp"><IMG
height=20 src="img/more.gif"
width=60 border=0></A></TD>
</TR></TBODY></TABLE></TD></TR>
<TR vAlign=top bgColor=#eeeeee>
<TD colSpan=2 height=185>
<TABLE cellSpacing=3 cellPadding=5 width="100%" border=0>
<TBODY>
<TR>
<TD height=185><% Response.Write NewsEnt %></TD>
</TR></TBODY></TABLE></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=3 cellPadding=0 width=286 bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width=25 bgColor=#0066cc height=25>
<DIV align=center><IMG height=7
src="img/arrow.gif"
width=7></DIV></TD>
<TD width=252 bgColor=#0099ff height=25>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><FONT color=#ffffff> 财经新闻</FONT></TD>
<TD width=65><A href="finance.asp"><IMG
height=20 src="img/more.gif"
width=60 border=0></A></TD>
</TR></TBODY></TABLE></TD></TR>
<TR vAlign=top bgColor=#eeeeee>
<TD colSpan=2 height=185>
<TABLE cellSpacing=3 cellPadding=5 width="100%" border=0>
<TBODY>
<TR>
<TD height=185><%=NewsFinance%> </TD>
</TR></TBODY></TABLE></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=3 cellPadding=0 width=286 bgColor=#ffffff
border=0>
<TBODY>
<TR>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -