📄 showcls.asp
字号:
<!--#include file=conn.asp-->
<HTML><HEAD><TITLE>新闻发布系统</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="style.css" type=text/css rel=stylesheet>
<BODY style="cursor:url(images/2.gif)">
<DIV align=center>
<!--#include file=top.asp-->
<table width="760" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="27" background="images/top2.gif"> 当前位置：<a href="index.asp">首页</a>>>
<%if request("parent")=0 then
rs.open"select * from class where id="&request("id"),conn,1,1
%><font color=#00ccbb><%=rs("clsname")%></font>
<%rs.close
else
rs.open"select * from class where id="&request("parent"),conn,1,1
rs2.open"select * from class where id="&request("id"),conn,1,1
%><a href=showcls.asp?id=<%=rs("id")%>&parent=0><%=rs("clsname")%></a>>><font color=red><%=rs2("clsname")%></font>
<%rs.close
rs2.close
end if%></td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<tr>
<td width="760" valign="top" bgcolor="#eeeeee">
<%if request("parent")=0 then%>
<%rs.open"select * from class where parent="&request("id"),conn,1,1%>
<table width="760" border="0" cellpadding="0" cellspacing="0">
<tr>
<%while not rs.eof%> <td valign="top" width="50%" align="center"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><a href=showcls.asp?id=<%=rs("id")%>&parent=<%=request("id")%>><img src="images/t.gif"><%=rs("clsname")%></a><br>
---------------------------------------------------------</td>
</tr>
<%rs2.open"select top 10 * from article where smlclsid="&rs("id")&" order by id desc",conn,1,1
while not rs2.eof%>
<tr>
<td><img src="images/new01.gif"><a href=showatc.asp?id=<%=rs2("id")%>>
<%if len(rs2("title"))<=15 then%><%=rs2("title")%><%else%><%=left(rs2("title"),15)&"…"%><%end if%></a></td>
</tr>
<%rs2.movenext
wend
rs2.close%>
<tr><td align="center"><a href=showcls.asp?id=<%=rs("id")%>&parent=<%=request("id")%>>更多...</a></td></tr>
</table></td>
<%rs.movenext
i=i+1
if i mod 2=0 then
%>
</tr></table><br><table width="760" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<%i=0
end if
wend%>
<%rs.close%>
</tr>
</table>
<%else%>
<%rs.open"select * from article where smlclsid="&request("id"),conn,1,1%>
<%rs2.open"select * from class where id="&request("id"),conn,1,1
%><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><a href=showcls.asp?id=<%=rs2("id")%>&parent=<%=request("parent")%>> <%=rs2("clsname")%></a><br>
---------------------------------------------------------</td>
</tr>
<%if not rs.eof then
rs.pagesize=15
maxrecord=rs.recordcount
maxpage=rs.pagecount
if request("p")="" then
p=1
else
p=request("p")
end if
if p>maxpage then
p=maxpage
end if
if p=0 then
p=1
end if
if p<>0 then
rs.move (p-1)*rs.pagesize
end if
for i=1 to rs.pagesize%>
<tr><td><img src="images/new01.gif">"<a href=showatc.asp?id=<%=rs("id")%>><%=rs("title")%></a><p></td></tr>
<%rs.movenext
if rs.eof then exit for
next%>
<tr><td><%=rs2("clsname")%>共<font color=red><%=maxrecord%></font>篇文章，<font color="red">15</font>/页，
<a href=showcls.asp?parent=<%=request("parent")%>&id=<%=rs2("id")%>&p=1>首页</a>
<a href=showcls.asp?parent=<%=request("parent")%>&id=<%=rs2("id")%>&p=<%=p-1%>>上页</a>
<a href=showcls.asp?parent=<%=request("parent")%>&id=<%=rs2("id")%>&p=<%=p+1%>>下页</a>
<a href=showcls.asp?parent=<%=request("parent")%>&id=<%=rs2("id")%>&p=<%=maxpage%>>尾页</a>
页次：<font color=red><%=p%>/<%=maxpage%></font></td></tr>
<%end if
rs.close
rs2.close%>
</table><%end if%>
</td>
</tr>
</table>
<!--#include file="bottom.asp"-->
</DIV></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -