📄 liuchen_more.asp
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp" -->
<!--#include file="../inc/onlinecount.asp"-->
<!--#include file="../top.asp"-->
<%sortnum=RtnReplaceInt(request("sort"),0)%>
<%
Dim Rs,Sql
Set Rs=Server.CreateObject("ADODB.Recordset")
OpenDataConn
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE><!--#include file="../inc/sort.asp"-->--<%=homepage_title%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<script language="JavaScript" src="../inc/index.js"></script>
<LINK
href="../img1/css.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.3790.2706" name=GENERATOR></HEAD>
<BODY class=bg1 text=#000000 bgColor=#ffffff leftMargin=0 topMargin=1>
<TABLE height=28 cellSpacing=0 cellPadding=0 width=980 align=center
background=../img/headbg4.gif border=0>
<TBODY>
<TR>
<TD align=right width=35>
<IMG height=13 src="../img/headarrow.gif"
width=17></TD>
<TD align=middle width=10></TD>
<TD class=TD_Place width=935><font color="#FFFFFF">您现在的位置：</font><a href="../index.aspx"><FONT color=#ffffff><%=homepage_title%></FONT> </a>
<FONT color=#ffffff>>><!--#include file="../inc/sort.asp"--></FONT></TD></TR></TBODY></TABLE>
<TABLE height=7 cellSpacing=0 cellPadding=0 width=980 align=center
background=img/headbg5.gif border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<TABLE height=100 cellSpacing=0 cellPadding=0 width=970 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top width=260 height=100> <!--#include file="newleft.asp"-->
</TD>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR></TR>
<TR>
</TR></TBODY></TABLE>
<TABLE height=3 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<div align="right">
<TABLE cellSpacing=0 cellPadding=0 width=690 border=1 bordercolordark="#FFE2BB">
<TBODY>
<TR>
<TD vAlign=top>
<TABLE height=28 cellSpacing=0 cellPadding=0 width=690 border=0 background="../img1/fj.jpg">
<TBODY>
<TR>
<TD width=150 >
<a href="liuchen_more.asp?sort=<%=sortnum%>" class="linkone"><font color="#EE5806"> <!--#include file="../inc/sort.asp"--></font></a></TD>
</TR></TBODY></TABLE>
<TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=690 align=center
border=0><TBODY>
<table width="97%" height="113" border="0" align="center" cellpadding="0" cellspacing="0" class="main">
<%
dim curpage
if request.querystring("curpage")="" then
curpage=1
else
curpage=request.querystring("curpage")
end if
const numperpage=40
sortnum=RtnReplaceInt(Trim(request("sort")),0)
set rs=server.createobject("adodb.recordset")
if sortnum=0 then
sql="select * from news order by dnt desc"
else
sql="select * from news where sort="&sortnum&" order by dnt desc"
end if
rs.open sql,conn,1,1
if not rs.eof then
rs.pagesize=numperpage
dim totalpages
totalpages=rs.pagecount
rs.absolutepage=curpage
end if
dim count
count=0
do while not rs.eof and count<numperpage
%>
<tr>
<td width="9%" height="20"> <div align="center">
<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
<td width="91%" height="22"><a href=liuchen_detail.asp?newsid=<%=trim(rs("newsid"))%>&sort=<%=trim(rs("sort"))%>><class="linkone" ><font color="#428DFF"><%=getStr(rs("topic"),27)%></a>
<%if trim(rs("imgname"))<>"" and isNull(trim(rs("imgname"))) then response.write "(图)" end if%>
</a>( <%=Year(Rs("dnt"))&"-"&Month(Rs("dnt"))&"-"&Day(Rs("dnt"))%>)</font></td>
</tr>
<%
rs.movenext
count=count+1
loop
rs.close
set rs=nothing
%>
<tr>
<td height="50" colspan="2"> <div align="center" class="p12">
<span class="black">
<% if cint(curpage)<>1 then %>
<a href="liuchen_more.asp?curpage=1&sort=<%=trim(request("sort"))%>" class="linkone">首页 </a>
<% else %>
首页
<% end if %>
<% if cint(curpage)>1 then %>
<a href="liuchen_more.asp?curpage=<%=curpage-1%>&sort=<%=trim(request("sort"))%>" class="linkone">上一页 </a>
<% else %>
上一页
<% end if %>
<% if cint(curpage)<>cint(totalpages) then %>
</span><span><a href="liuchen_more.asp?curpage=<%=curpage+1%>&sort=<%=trim(request("sort"))%>" class="linkone">下一页</a><a href="liuchen_more.asp?curpage=<%=curpage+1%>&sort=<%=trim(request("sort"))%>"></a></span><span class="black"><a href="liuchen_more.asp?curpage=<%=curpage+1%>&sort=<%=trim(request("sort"))%>" class="linkone">
<% else %>
下一页
<% end if %>
<% if cint(curpage)<>cint(totalpages) then %>
</a><a href="liuchen_more.asp?curpage=<%=totalpages%>&sort=<%=trim(request("sort"))%>" class="linkone"> 末页
<% else %>
末页
<% end if %>
</a> 第<font color="#FF0000"><%=curpage%></font>页/共<%=totalpages%>页 </span> </div></td>
</tr>
</table></TR></TBODY></TABLE>
</div>
<TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE>
<!--#include file="../end.asp"-->
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -