📄 index.asp
字号:
rs = Int((us+1)*Rnd)
rs = 2*rs
For i=rs to rs+3
%>
<tr>
<td align="center"> <% Response.Write sImgNewsWorld(i)&"</a>" %> </td>
</tr>
<%
Next
%>
</table></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="773" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="268" valign="top"> <table width="268" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20" class="Item_1"><img src="img/new_27_1.gif" width="20" height="20"></td>
<td valign="bottom" class="Item_2"><table width="100%" height="16" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><font color="#FFFFFF">
<%
LenMyItem=Len(MyItem)
For i=1 to LenMyItem
Response.Write Mid(MyItem,i,1)&" "
Next
%>
</font></td>
</tr>
</table></td>
</tr>
</table>
<table width="268" height="270" border="0" cellpadding="0" cellspacing="8" class="Item_8">
<tr>
<td><!--#include file="MyItem.asp" --></td>
</tr>
</table>
</td>
<td width="500" valign="top" class="line_l"> <table width="504" 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="504" border="0" cellpadding="0" cellspacing="0" bgcolor="#D6D7D6" class="Item_7">
<tr>
<td valign="top" bgcolor="#FFFFFF" class="Item_8"><table width="100%" height="270" border="0" cellpadding="0" cellspacing="0" class="newsLink">
<tr valign="top">
<td><table width="100%" border="0" cellspacing="10" cellpadding="0">
<tr>
<td style="line-height:19px "> <% Response.Write NewsSports %> </td>
</tr>
</table></td>
<td width="144" style="line-height:18px "><table width="100%" border="0" cellpadding="0" cellspacing="10">
<%
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
%>
<tr>
<td align="center"> <% Response.Write sImgNewsSports(i)&"</a>" %> </td>
</tr>
<%
Next
%>
</table></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="773" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="268" valign="top">
<table width="268" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20" class="Item_1"><img src="img/new_27_1.gif" width="20" height="20"></td>
<td valign="bottom" class="Item_2"><table width="100%" height="16" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><font color="#FFFFFF"> 财 经 新 闻</font></td>
</tr>
</table></td>
</tr>
</table>
<table width="268" height="270" border="0" cellpadding="0" cellspacing="10" bgcolor="#EEEEEE" class="Item_8" style="table-layout: fixed">
<tr>
<td style="line-height:19px" nowrap ><%=NewsFinance%></td>
</tr>
</table>
</td>
<td width="500" valign="top" class="line_l">
<table width="504" 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="504" height="270" border="0" cellpadding="0" cellspacing="0" bgcolor="#D6D7D6" class="Item_7">
<tr>
<td valign="top" bgcolor="#FFFFFF" class="Item_8"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="newsLink">
<tr valign="top">
<td><table width="100%" border="0" cellspacing="10" cellpadding="0">
<tr>
<td style="line-height:19px ">
<% Response.Write NewsEnt %>
</td>
</tr>
</table></td>
<td width="144" style="line-height:18px "><table width="100%" border="0" cellpadding="0" cellspacing="10">
<%
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
%>
<tr>
<td align="center">
<% Response.Write sImgNewsEnt(i)&"</a>" %>
</td>
</tr>
<%
Next
%>
</table></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="773" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="268" valign="top">
<table width="268" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20" class="Item_1"><img src="img/new_27_1.gif" width="20" height="20"></td>
<td valign="bottom" class="Item_2"><table width="100%" height="16" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><font color="#FFFFFF"> 科 技 新 闻</font></td>
</tr>
</table></td>
</tr>
</table>
<table width="268" height="270" border="0" cellpadding="0" cellspacing="10" class="Item_8" style="table-layout: fixed">
<tr>
<td style="line-height:19px" nowrap ><%=NewsTech%></td>
</tr>
</table></td>
<td width="500" valign="top" class="line_l">
<table width="504" 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="504" height="270" border="0" cellpadding="0" cellspacing="0" bgcolor="#D6D7D6" class="Item_7">
<tr>
<td valign="top" bgcolor="#FFFFFF" class="Item_8"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="newsLink">
<tr valign="top">
<td><table width="100%" border="0" cellspacing="10" cellpadding="0">
<tr>
<td style="line-height:19px ">
<% Response.Write NewsSociety %>
</td>
</tr>
</table></td>
<td width="144" style="line-height:18px "><table width="100%" border="0" cellpadding="0" cellspacing="10">
<%
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
%>
<tr>
<td align="center">
<% Response.Write sImgNewsSociety(i)&"</a>" %>
</td>
</tr>
<%
Next
%>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="about.asp" -->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -