📄 new.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="set.asp" -->
<!--#include file="img/function.gif" -->
<!--#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
Dim NewsChina,NewsWorld,NewsSports,NewsTech,NewsFinance,NewsEnt,NewsSociety
call GetHomeNews()
call GetImgNews("all")
%>
<html>
<head>
<title><%=TitleNew%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="generator" content="令狐工作室,令狐,于东锋,网站设计,程序定制,新闻采集,DFENG,YDF,STUDIO">
<meta name=keywords content="令狐工作室,令狐,于东锋,网站设计,程序定制,新闻采集,DFENG,YDF,STUDIO">
<meta name="description" content="令狐工作室专业网站设计,承接各类企事业单位以及个人网站建设业务">
<meta http-equiv="Page-Enter" content="blendTrans(Duration=0.5)">
<meta http-equiv="Page-Exit" content="blendTrans(Duration=0.5)">
<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 width=575 border=0 cellPadding=0 cellSpacing=0 bgcolor="#eeeeee">
<TBODY>
<TR>
<TD width=575 vAlign=top>
<TABLE width=575
border=0 cellPadding=0 cellSpacing=3 bgColor=#ffffff>
<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="<%=HomePage%>"><FONT
color=#ffffff><%=MainName%></FONT></A><FONT color=#ffffff><STRONG> - </STRONG></FONT><A
href="<%=NewsPage%>"><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 height=100% colSpan=2 bgcolor="#eeeeee">
<TABLE width="100%" height="800" border=0 cellPadding=0 cellSpacing=3>
<TBODY>
<TR>
<TD 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>
<span class="newslist">
<% = s1 %>
</span></td>
</tr>
</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 height=40 cellSpacing=0 cellPadding=3 width="100%">
<%
sImgNewsChina=split(ImgNewsChina,"</a>")
us = (ubound(sImgNewsChina)-1-4)/2
Randomize
rs = Int((us+1)*Rnd)
rs = 2*rs
For i=rs to rs+3
%>
<TBODY>
<TR>
<TD
colSpan=2 align=middle bgcolor="#eeeeee">
<div align="center">
<% Response.Write sImgNewsChina(i)&"</a>" %>
</div>
<%
Next
%>
</TABLE>
<TABLE cellSpacing=2 cellPadding=0 width="100%" border=0>
<%
sImgNewsWorld=split(ImgNewsWorld,"</a>")
us = (ubound(sImgNewsWorld)-1-4)/2
Randomize
rs = Int((us+1)*Rnd)
rs = 2*rs
For i=rs to rs+3
%>
<TBODY>
<TR>
<TD>
<div align="center">
<% Response.Write sImgNewsWorld(i)&"</a>" %>
</div></TD>
</TR>
</TBODY>
<%
Next
%>
</TABLE>
<TABLE cellSpacing=2 cellPadding=0 width="100%" border=0>
<%
sImgNewsSports=split(ImgNewsSports,"</a>")
us = (ubound(sImgNewsSports)-1-4)/2
Randomize
rs = Int((us+1)*Rnd)
rs = 2*rs
For i=rs to rs+3
%>
<TBODY>
<TR>
<TD>
<div align="center">
<% Response.Write sImgNewsSports(i)&"</a>" %>
</div></TD>
</TR>
</TBODY>
<%
Next
%>
</TABLE>
<TABLE cellSpacing=2 cellPadding=0 width="100%" border=0>
<%
sImgNewsEnt=split(ImgNewsEnt,"</a>")
us = (ubound(sImgNewsEnt)-1-4)/2
Randomize
rs = Int((us+1)*Rnd)
rs = 2*rs
For i=rs to rs+3
%>
<TBODY>
<TR>
<TD height=0>
<div align="center">
<% Response.Write sImgNewsEnt(i)&"</a>" %>
</div></TD>
</TR>
</TBODY>
<%
Next
%>
</TABLE>
<TABLE cellSpacing=2 cellPadding=0 width="100%" border=0>
<%
sImgNewsSociety=split(ImgNewsSociety,"</a>")
us = (ubound(sImgNewsSociety)-1-4)/2
Randomize
rs = Int((us+1)*Rnd)
rs = 2*rs
For i=rs to rs+3
%>
<TBODY>
<TR>
<TD height=0>
<div align="center">
<% Response.Write sImgNewsSociety(i)&"</a>" %>
</div></TD>
</TR>
</TBODY>
<%
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 height=106 colSpan=2> </TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<!--#include file="img/about.gif" -->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -