lookissue.asp
来自「asp的新闻网站」· ASP 代码 · 共 147 行
ASP
147 行
<%
'*********************************************************************************
'模块名称：科教新闻往期回顾信息查看
'开发人：潘树文
'时间：2001年1月19日
'*********************************************************************************
%><html>
<!--#include file="../include/checkserver.asp"-->
<!--#include file="../include/odbc.asp"-->
<!--#include file="../include/showbody.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../style.css">
<title>千夜网->新闻->科教新闻</title>
</head>
<%flag="009000"%>
<!--#include file="../include/secondhead.asp"-->
<body topmargin="3" leftmargin="3">
<div align="center"><center>
<%set rs=server.CreateObject ("adodb.recordset")%>
</center></div><div align="center"><center>
<table border="0" width="770" cellspacing="0" cellpadding="0">
<tr>
<td width="140" valign="top" bgcolor="#9F579F">
<!--#include file="../include/script.asp"-->
<form name=add action="../include/search.asp" method=post" onsubmit="return check(this)" target="_blank">
<!--#include file="include/left.asp"-->
<p><br>
</td>
<td width="5" valign="top" bgcolor="#CBA5D5"></td>
<td width="625" valign="top">
<table border="0" width="100%">
<tr>
<td width="100%" valign="top"><div align="center"><center>
<table border="0" width="90%">
<tr>
<td width="100%" bgcolor="#9F579F">
<table border="0" width="100%" cellspacing="0"
cellpadding="0">
<tr><%sql="select * from news2_menu where menuid='"&request("menuid")&"' "
rs.Open sql,conn,3,1
if not rs.EOF then
%>
<td width="40%" bgcolor="#805089"><strong><font color="#FFFFFF"><span
style="font-size: 14px"> <%=rs("menuname")%></span></font></strong></td>
<td width="30%"></td>
<td width="30%" bgcolor="#CBA5D5"></td>
<%
end if
rs.Close
%> </tr>
</table>
</td>
</tr>
<tr><td width="100%" background="../images/bg-013.gif"
style="border-left: 1px solid rgb(159,87,159); border-right: 1px solid rgb(159,87,159); border-bottom: 1px solid rgb(159,87,159)">
<span style="font-size:14px"> 第<%=request("issue")%>期信息</span>
<ul>
<%if request("mysql") ="" then
sql="SELECT * FROM news2_review WHERE menuid ='"&request("menuid")&"' and issue='"&request("issue")&"' and infoid<>'0000000000' order by infoindex "
else
sql=request("mysql")
end if
rs.Open sql,conn,3,1
%><!--#include file="../include/rollpage.asp"--><%
if not rs.EOF then
rs.PageSize = 40
rs.AbsolutePage = getPageNo(rs)
for i=1 to rs.PageSize
If rs.EOF Then Exit For
%>
<li><a class="l7"
href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
target="_blank"><%=rs("newstitle")%></a> <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
%>
<br> </td>
</tr>
<tr>
<td width="100%" height="19" colspan="2"><%call listPage(rs)%></td>
</tr>
<% rs.Close%>
</tr>
</table>
</center></div></td>
</tr>
</table>
</td>
</tr>
</table>
</center></div>
<hr width="90%" size="1" color="#805089">
<script LANGUAGE="JavaScript">
<!--
function openSmallWindow4(){
window.open("http://www.1001n.com.cn/lxfs.htm",
"smallWindow",
"width=480,height=300,lesizable=no,status=no,left=200,top=150");
}
function openSmallWindow5(){
window.open("http://www.1001n.com.cn/zpxx.htm",
"smallWindow",
"width=550,height=450,lesizable=no,status=no,left=100,top=50,scrollbars=yes");
}
//-->
</script>
<div align="center"><center>
<table>
<tr>
<td width="100%"><p align="center"><font color="#8080FF"><a
href="http://www.1001n.com.cn/aboutus.asp" style="text-decoration:none"><font
color="#8080FF">关于我们</font></a>│广告服务│<a href
onClick="openSmallWindow5()" style="cursor:hand"><font color="#8080FF">招聘信息</font></a>│<a
href onClick="openSmallWindow4()" style="cursor:hand"><font color="#8080FF">联系方式</font></a></font></td>
</tr>
<tr>
<td width="100%"><p align="center"><font color="#000000">版权所有：东宇电子商务有限公司</font><font
color="#8080FF"><br>
</font>Copyright@2000 Dongyu E-commerce Co., Ltd. All rights reserved<br>
千夜信箱：<a href="mailto:1001n@dongyu.com.cn">1001n@dongyu.com.cn</a></td>
</tr>
</table>
</center></div>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?