📄 morenews.asp
字号:
<%
'*********************************************************************************
'模块名称：科教新闻更多信息查看
'开发人：潘树文
'时间：2001年1月19日
'*********************************************************************************
%>
<html>
<!--#include file="../include/odbc.asp"-->
<!--#include file="../include/showbody.asp"-->
<!--#include file="../include/killstr.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='"&killstr(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)"><ul>
<%if request("mysql") ="" then
sql="select * from news2_info where menuid='"&killstr(request("menuid"))&"' order by infoid desc "
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><% showtime(rs("regtime"))%><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
%>
</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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -