📄 grwj.asp
字号:
<!--#include file="const.asp"-->
<!--#include file="articleconn.asp"-->
<%
mmm=request("mmm")
if mmm="" then mmm=0
ttt=request("ttt")
set rst=server.createobject("adodb.recordset")
rst.open "select * from admin order by amount desc ",conn,1
total=rst.recordcount
%>
<html>
<head>
<title><%=fly_user%>-个人文集</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style TYPE="text/css">
<!--
A:link{text-decoration:none}
A:visited{text-decoration:none}
A:hover {color: #ff00ff;text-decoration:underline}
-->
</style>
<style type="text/css">
<!--
body {font-size:9pt}
td {font-size:9pt}
-->
</style>
</head>
<body bgcolor="#ffffff" text="#000000" leftmargin="0" topmargin="0" background="images/home_00.gif">
<center>
<table width="760" border="0" bgcolor="#FFFFFF" cellpadding="0" cellspacing="0">
<tr>
<td align="center" width="54"> </td>
<td align="left" width="511" valign="top"><img src="images/wenji_032.gif" width="175" height="90">
<table width="98%" border="0" class="f" >
<tr>
<td><a href="default.asp"><font color="#FF0000">返回首页</font></a></td>
</tr>
</table>
</td>
<td width="195"><img src="images/wenji_05.gif" width="195" height="113"><img src="images/wenji_09.gif"></td>
</tr>
</table>
<table width="760" border="0" bgcolor="#FFFFFF" cellpadding="0" cellspacing="0">
<tr>
<td height="161" rowspan="2" align="center" valign="top" >
<TABLE class="f" cellSpacing=0 cellPadding=2 width="80%"
align=center border=0>
<TBODY>
<TR >
<TD width=40% height=24>
<P><B>文集名称</B></P>
</TD>
<TD align=middle width=15%>
<DIV align=center><B>作者</B></DIV>
</TD>
<TD align=middle width=30%>
<DIV align=center><B>日期</B></DIV>
</TD>
<TD align=middle width=15%>
<P align=center><B>文章数</B></P>
</TD></TR>
<TR>
<TD background=images/line.gif colSpan=4
height=1></TD>
</TR>
<%
if mmm<>0 then
for iisf=1 to mmm *30
if rst.eof then exit for
rst.movenext
next
end if
do while not rst.eof %>
<TR bgColor=#ffffff>
<TD width=40%><a href=wj.asp?userName=<%=rst("Username")%> >
<%if rst("other")<>"" then%>
<%=rst("other")%>
<%else%>
<%=rst("Username")%>的文集<%end if%>
</a></TD>
<TD align=middle width=15%><A
href=userinfo.asp?username=<%=rst("Username")%>
target=_blank><%=rst("Username")%></A></TD>
<TD align=middle width=30%><%=rst("date")%></TD>
<TD align=middle width=15%><%=rst("amount")%></TD>
</TR>
<TR>
<TD background=images/line.gif colSpan=4
height=1></TD>
</TR>
<% i=i+1
rst.movenext
if i=30 then exit do
loop
%>
</TBODY></TABLE>
<TABLE cellSpacing=2 cellPadding=2 width="80%" align=center
border=0 class="f" >
<TBODY>
<TR>
<TD> 共<font color="#FF0000"><%=total%>位</font>用户 每页<font color="#FF0000">30</font>名 第 <%=mmm+1%>
页
<!--上页-->
<%if mmm<>0 then%>
<%="<a href=grwj.asp?mmm=" & mmm-1 & ">上页</a>"%>
<%end if%>
<!--下页-->
<%if not rst.eof then%>
<%="<a href=grwj.asp?mmm=" & mmm+1 & ">下页</a>"%>
<%end if%>
</TD>
</TR></TBODY></TABLE>
<br>
</td>
<td width="102" height="107" valign="top" align="right" ><img src="images/wenji_12.gif" width="102" height="107"></td>
</tr>
<tr>
<td width="102" height="161" valign="top" align="center"><a href="default.asp"><img src="images/wenji_13.gif" width="57" height="68" border="0"></a></td>
</tr>
</table>
</center>
<!--#include file="mai.htm"-->
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -