index.asp
来自「asp的新闻网站」· ASP 代码 · 共 187 行
ASP
187 行
<%
'*********************************************************************************
'模块名称：娱乐新闻首页
'开发人：潘树文
'时间：2001年1月31日
'*********************************************************************************
dim rs '数据访问对象
dim sql 'select 语句
dim i '循环控制变量
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../style.css">
<title>千夜网->新闻->娱乐新闻</title>
</head>
<body topmargin="3" leftmargin="3">
<div align="center"><center>
<!--#include file="../include/odbc.asp"-->
<!--#include file="../include/showbody.asp"-->
<%flag="007000"%>
<!--#include file="../include/secondhead.asp"-->
</center></div><div align="center"><center>
<!--#include file="include/redian.asp"-->
</center></div><div align="center"><center>
<table border="0" width="770" cellspacing="0" cellpadding="0">
<tr>
<td width="20%" valign="top" bgcolor="#FFF0F8">
<!--#include file="include/sousuo.asp"-->
<!--#include file="include/tuku.asp"-->
<!--#include file="include/xiezhen.asp"-->
<!--#include file="include/meimei.asp"-->
<!--#include file="include/diaocha.asp"-->
<!--#include file="include/liaotian.asp"-->
<!--#include file="include/link.asp"-->
<p><br>
</td>
<td width="60%" valign="top"><div align="center"><center><table border="0" width="98%"
cellspacing="0" cellpadding="0">
<tr>
<td width="100%" colspan="2"> </td>
</tr>
<tr>
<td width="30%" bgcolor="#000000" height="19"><p align="center"><span
style="font-size: 14px"><font color="#FFFFFF">热点推荐</font></span></td>
<td width="70%"
style="border-right: 1px none rgb(255,128,64); border-top: 1px solid rgb(0,0,0)"
height="19"> </td>
</tr>
<tr>
<td width="100%" colspan="2"><ul>
<%sql="select * from news2_commend where menuid='007013' and visible<>'0' order by infoindex "
rs.Open sql,conn,3,1
if not rs.EOF then
for i=1 to rs.RecordCount
%>
<li><a class="l7"
href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
target="_blank"><%=rs("newstitle")%></a> <%=" ["&rs("derivation")&"]"%><br>
</li>
<%rs.MoveNext
next
end if
rs.Close
%>
</td>
</tr>
<tr>
<td width="30%" bgcolor="#000000" height="19"><p align="center"><span
style="font-size: 14px"><font color="#FFFFFF">影视速递</font></span></td>
<td width="70%"
style="border-right: 1px none rgb(255,128,64); border-top: 1px solid rgb(0,0,0)"
height="19"> </td>
</tr>
<tr>
<td width="100%" colspan="2"><ul>
<%sql="select top 10 * from news2_info where menuid='007002' order by infoid desc"
rs.Open sql,conn,3,1
if not rs.EOF then
for i=1 to rs.RecordCount
%>
<li><a class="l7"
href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
target="_blank"><%=rs("newstitle")%></a><%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%> <br>
</li>
<%rs.MoveNext
next
end if
rs.Close
%>
<p align="right"><a class="l2"
href="morenews.asp?menuid=007002&menuname=影视速递"
target="_blank">【更多...】</a> <br>
</td>
</tr>
<tr>
<td width="30%" bgcolor="#000000" height="19"><p align="center"><span
style="font-size: 14px"><font color="#FFFFFF">明星艳闻</font></span></td>
<td width="70%"
style="border-right: 1px none rgb(255,128,64); border-top: 1px solid rgb(0,0,0)"
height="19"> </td>
</tr>
<tr>
<td width="100%" colspan="2"><ul>
<%sql="select top 10 * from news2_info where menuid='007001' order by infoid desc "
rs.Open sql,conn,3,1
if not rs.EOF then
for i=1 to rs.RecordCount
%>
<li><a class="l7"
href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
target="_blank"><%=rs("newstitle")%></a> <%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%><br>
</li>
<%rs.MoveNext
next
end if
rs.Close
%>
<p align="right"><a class="l2"
href="morenews.asp?menuid=007001&menuname=明星艳闻"
target="_blank" >【更多...】</a> <br>
</td>
</tr>
<tr>
<td width="30%" bgcolor="#000000" height="19"><p align="center"><span
style="font-size: 14px"><font color="#FFFFFF">娱乐传真</font></span></td>
<td width="70%"
style="border-right: 1px none rgb(255,128,64); border-top: 1px solid rgb(0,0,0)"
height="19"> </td>
</tr>
<tr>
<td width="100%" colspan="2"><ul>
<%sql="select top 10 * from news2_info where menuid='007003' order by infoid desc "
rs.Open sql,conn,3,1
if not rs.EOF then
for i=1 to rs.RecordCount
%>
<li><a class="l7"
href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
target="_blank"><%=rs("newstitle")%></a><%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%> <br>
</li>
<%rs.MoveNext
next
end if
rs.Close
%>
<p align="right"><a class="l2"
href="morenews.asp?menuid=007003&menuname=娱乐传真"
target="_blank">【更多...】</a> <br>
</td>
</tr>
<tr>
<td width="30%" height="19"></td>
<td width="70%" height="19"></td>
</tr>
</table>
</center></div></td>
<td width="20%" valign="top" bgcolor="#FFF0F8">
<!--#include file="include/zhuanti.asp"-->
<!--#include file="include/jinqu.asp"-->
<!--#include file="include/jinbao.asp"-->
<!--#include file="include/dianji.asp"-->
<!--#include file="include/mail.asp"-->
</td>
</tr>
</table>
</center></div>
<hr width="90%" size="1" color="#000000">
<div align="center"><center>
<!--#include file="../include/bottom.txt"-->
</center></div>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?