引用的那页全部代码如下：
<!--#include file="../inc/conn_other.asp"-->
<!--#include file="../top.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>东莞生物医药孵化器有限公司</title>
<link href="../../css/1.css" rel="stylesheet" type="text/css">
<link href="../../css/2.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style2 {font-size: 14px}
body,td,th {
color: #333333;
}
a:link {
color: #333333;
text-decoration: none;
}
a:visited {
color: #666666;
text-decoration: none;
}
a:active {
color: #FF3300;
text-decoration: none;
}
a:hover {
text-decoration: none;
color: #3399FF;
}
-->
</style>
</head>
<body>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="800" height="27" valign="middle" background="Images/hbbj11.jpg">
<span class="text">
<a href="../../default.asp">首页</a>>>劲芳动态
</span>
</td>
</tr>
</table>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from News where news_type='1' order by News_Date DESC"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("<span class='text'>暂时没有记录</span>")
else
%>
<%
rs.PageSize=15
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
%>
<tr>
<td width="6%" height="24" align="center" ><img src="../images/book.gif" width="24" height="25"></td>
<td height="24">
<span class="text">
<a href="News.asp?id=<%= rs("News_ID") %>" target="_blank"><%= rs("News_Title") %></a> [<%=rs("News_Date") %>]
</span>
</td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
<tr valign="bottom">
<td height="50" colspan="2" align="center" >
<form method=Post action="mgsxw.asp">
<span class="text">
<%if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href=mhyxw.asp?&page=1>首页</a> "
response.write "<a href=mhyxw.asp?&page=" & Page-1 & ">上一页</a> "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href=mhyxw.asp?&page=" & (page+1) & ">"
response.write "下一页</a> <a href=mhyxw.asp?&page="&rs.pagecount&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
response.write " 共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
response.write " <input class=input type='submit' value=' Goto ' name='cndok'></span></p>"
%>
</span>
</form>
</td>
</tr>
<%
end if
rs.close
set rs=nothing
%>
</table>
</body>
</html>
<!--#include file="../bottom.asp"-->
2007-01-04 11:06
