index.asp
来自「asp的新闻网站」· ASP 代码 · 共 232 行
ASP
232 行
<%
'*********************************************************************************
'模块名称：特色新闻首页
'开发人：佟庆涛
'时间：2001年2月9日
'*********************************************************************************
%>
<%
dim rs '数据访问对象
dim sql 'select 语句
dim i '循环控制变量
dim menuid '栏目ID
dim infoid '文章ID
dim flag '文件头标志
%>
<%'数据库连接包含文件 %>
<!--#include file="../include/odbc.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../style.css">
<title>千夜网->新闻->特色新闻</title>
</head>
<%
'定义recordset对象
set rs=server.CreateObject ("adodb.recordset")
%>
<body topmargin=3 leftmargin=3>
<div align="center">
<% '网页头部包含文件
flag="013000"%>
<!--#include file="../include/secondhead.asp"-->
<center>
<center>
<table border="0" cellpadding="0" cellspacing="0" width="770">
<tr>
<td width="20%" bgcolor=#F5F5F5 valign="top"><img src="../images/pic-206.gif"></td>
<td width="79%" bgcolor="#FFFFFF" valign="top" style="border-left: 1px solid #C2BCB3">
<table border="0" cellpadding="3" cellspacing="1" width="98%">
<tr>
<td width="100%" style=padding-top:5pt >您的位置：新闻中心 ->
特色新闻
<p></p>
</td>
</tr>
</table>
<table border="0" cellpadding="3" cellspacing="1" width="90%">
<tr>
<td width="5%" rowspan="9" > </td>
<td width="95%" align="left" colspan="3" ><b><font size="3">今日特色新闻</font></b></td>
</tr>
<tr>
<td width="95%" align="center" style="border-top: 1px solid #C2BCB3" height="4" colspan="3"><img border="0" src="../teshe/img/pic-024.gif" width="1" height="1"></td>
</tr>
<tr>
<td width="95%" >
<ul>
<% '输出今日特色新闻 %>
<%
sql="select * from news2_commend where menuid='013005' 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="l3" href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
target="_blank"><%=rs("newstitle")%></a><font size=1 color=#000099> ( <%=right(left(rs("regTime"),14),9)%>)</font>
</li>
<%rs.MoveNext
next
end if
rs.Close
%>
</ul>
</td>
</tr>
<tr>
<td width="95%" >
<table width=100%>
<tr>
<td valign="top" width="50%" style="border-right: 1px solid #C2BCB3"><font color=#B9DB88><b> ※往期丑闻※</font>
</b>
<ul>
<% '输出丑闻前20条 %>
<%
sql="select top 20 * from news2_info where menuid='013001' order by regtime desc "
rs.Open sql,conn,3,1
if not rs.EOF then
for i=1 to rs.RecordCount
%>
<li>
<a class="l3" href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
target="_blank"><%=rs("newstitle")%></a><font size=1 color=#000099> ( <%=right(left(rs("regTime"),14),9)%>)</font>
</li>
<%rs.MoveNext
next
end if
rs.Close
%>
</ul>
<div align="right">
<a href="morenews.asp?menuid=013001" target="_blank" class=l3> 更多>>>></a>
</div>
</td>
<td valign="top" width="50%"> <font color=#B9DB88> <b>※往期绯闻※</font>
</b>
<ul>
<% '输出绯闻前20条 %>
<%
sql="select top 20 * from news2_info where menuid='013002' order by regtime desc "
rs.Open sql,conn,3,1
if not rs.EOF then
for i=1 to rs.RecordCount
%>
<li>
<a class="l3" href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
target="_blank"><%=rs("newstitle")%></a><font size=1 color=#000099> ( <%=right(left(rs("regTime"),14),9)%>)</font>
</li>
<%rs.MoveNext
next
end if
rs.Close
%>
</ul>
<div align="right">
<a href="morenews.asp?menuid=013002" target="_blank" class=l3> 更多>>>></a>
</div>
</td>
</tr>
<tr>
<td valign="top" width="50%" style="border-right: 1px solid #C2BCB3"><font color=#B9DB88><b> ※往期奇闻※</font>
</b>
<ul>
<% '输出奇闻前20条 %>
<%
sql="select top 20 * from news2_info where menuid='013003' order by regtime desc "
rs.Open sql,conn,3,1
if not rs.EOF then
for i=1 to rs.RecordCount
%>
<li>
<a class="l3" href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
target="_blank"><%=rs("newstitle")%></a><font size=1 color=#000099> ( <%=right(left(rs("regTime"),14),9)%>)</font>
</li>
<%rs.MoveNext
next
end if
rs.Close
%>
</ul>
<div align="right">
<a href="morenews.asp?menuid=013003" target="_blank" class=l3> 更多>>>></a>
</div>
</td>
<td valign="top" width="50%"> <font color=#B9DB88> <b>※往期笑闻※</font>
</b>
<ul>
<% '输出笑闻前20条 %>
<%
sql="select top 20 * from news2_info where menuid='013004' order by regtime desc "
rs.Open sql,conn,3,1
if not rs.EOF then
for i=1 to rs.RecordCount
%>
<li>
<a class="l3" href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
target="_blank"><%=rs("newstitle")%></a><font size=1 color=#000099> ( <%=right(left(rs("regTime"),14),9)%>)</font>
</li>
<%rs.MoveNext
next
end if
rs.Close
%>
</ul>
<div align="right">
<a href="morenews.asp?menuid=013004" target="_blank" class=l3> 更多>>>></a>
</div>
</td>
</tr>
</table>
</td></tr>
<tr><td ></td></tr>
</table></td></tr></table>
<hr width="90%" size="1" >
<!--#include file="../include/bottom.txt"-->
</center>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?