📄 moresubject.asp
字号:
<%
'*********************************************************************************
'模块名称：显示更多新闻专题
'开发人：佟庆涛
'时间：2001年02月07日
'*********************************************************************************
%>
<%
dim rs '数据访问对象
dim sql 'select 语句
dim i '循环控制变量
dim flag '文件头标志
dim menuid1 '栏目编码（本页输出）
dim menuid2 '栏目编码（推荐轮显）
dim menuid3 '栏目编码（推荐更多）
dim menuname '栏目名称
%>
<%'数据库连接包含文件 %>
<!--#include file="../include/odbc.asp"-->
<!--#include file="../include/showbody.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="010000"%>
<!--#include file="../include/secondhead.asp"-->
<center>
</center></div>
<% '只接收“深度报道”和“焦点人物”
if request("menuid")="010002" then
menuid1="010002"
menuname="深度报道"
menuid2="010006" '焦点人物推荐
menuid3="010003" '焦点人物
elseif request("menuid")="010003" then
menuid1="010003"
menuname="焦点人物"
menuid2="010005" '深度报道推荐
menuid3="010002" '深度报道
else '转到“专题新闻”首页
Response.Redirect "index.asp"
end if
%>
<div align="center"><center>
<table border="0" width="770" cellspacing="0" cellpadding="0"
background="../images/bg-010.gif">
<tr>
<td width="20%" style="border-left: 2px solid rgb(140,204,202)" valign="top"
bgcolor="#0072A8"><!--#include file="include/zhuanti.asp"-->
<!--#include file="include/diaocha.asp"-->
<!--#include file="include/pengyou.asp"-->
</td>
<td width="60%" valign="top"><div align="center"><center><table border="0" width="95%"
cellspacing="0" cellpadding="0">
<tr>
<td width="100%" colspan="2"> </td>
</tr>
<tr>
<td width="30%" bgcolor="#BB3102" height="19"><p align="center"><span
style="font-size: 14px"><font color="#FFFFFF"><%=menuname%></font></span></td>
<td width="70%"
style="border-right: 1px none rgb(255,128,64); border-top: 1px solid rgb(187,49,2)"
height="19"> </td>
</tr>
<tr>
<td width="100%" colspan="2"><ul>
<% '输出该栏目新闻专题 %>
<%if request("mysql") ="" then
sql="select * from news2_special where menuid='"&menuid1&"' and right(infoid,4)='0000' order by regTime desc "
else
sql=request("mysql")
end if
'response.write sql
'response.end
rs.Open sql,conn,3,1
%>
<!--#include file="../include/rollpage.asp"-->
<%
if not rs.EOF then
rs.PageSize = 50
rs.AbsolutePage = getPageNo(rs)
for i=1 to rs.PageSize
If rs.EOF Then Exit For
%>
<li><a class="l7" href="index.asp?infoid=<%=rs("infoid")%>"
target="_blank"><%showbody(rs("newstitle"))%>[<%showbody(rs("derivation"))%>]</a><font size="2" color="#808080"> <%showtime(rs("regTime"))%></font> <br>
</li>
<%rs.MoveNext
if right(trim(cstr(i)),1)="0" then '隔十行空一行*******************************************
Response.Write "<br>"
end if
If rs.EOF Then Exit For
next
end if
%>
</ul>
<p align="right"> </td>
</tr>
<tr>
<td width="100%" height="19" colspan="2"><%call listPage(rs)%></td>
</tr>
<% rs.Close %>
<tr>
<td width="100%" height="19" colspan="2"></td>
</tr>
</table>
</center></div></td>
<td width="20%" valign="top" bgcolor="#0072A8">
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#32BEB7">
<tr>
<td width="100%" >
<%if menuid2="010005" then %>
<img src="../images/pic-150.gif" width="160" height="27">
<%else%>
<img src="../images/pic-152.gif" width="160" height="27">
<%end if%>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#32BEB7">
<div align="center"><center>
<table border="0" width="100%" cellpadding="3">
<% '输出深度报道（/焦点人物）推荐，用menuid2控制（注：输出六条信息）
sql="select top 6 * from news2_specialcommend where menuid='"&menuid2&"' and visible<>'0' order by infoindex "
rs.Open sql,conn,3,1
if not rs.EOF then
for i=1 to rs.RecordCount
%>
<tr>
<td width="5%" valign="top"><img src="../images/pic-155.gif" width="8" height="8"></td>
<td width="95%" valign="top"><a class="l9" href="index.asp?infoid=<%=rs("infoid")%>"
target="_blank"><span class="l4"><%=rs("newsTitle")%></span></a></td>
</tr>
<%rs.MoveNext
next
end if
rs.Close
%>
</table>
</center></div>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#00A49E" height="20" background="../images/bg-012.gif">
<p align="right"><a class="l10" href="moresubject.asp?menuid=<%=menuid3%>"
target="_blank"><font color="#FFFFFF">更多</font></a><a></p>
</a></td>
</tr>
</table>
<p><br>
</p>
<center>
<p><br>
</p>
<!--#include file="include/link.asp"-->
</center></div></td>
</tr>
<tr>
<td width="100%" bgcolor="#32BEB7" height="30"><p align="center"><br>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#00A49E" height="20" background="../images/bg-012.gif"></td>
</tr>
</table>
</center>
</td>
</tr>
</table>
</div>
<hr width="90%" size="1" color="#BB3102">
<div align="center"><center>
<!--#include file="../include/bottom.txt"-->
</center></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -