📄 showclass.asp
字号:
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"showclass.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"showclass.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"showclass.asp"
end if
end if
rs.close
end if
sub showContent
dim i
i=0
%>
<table border="0" width="495" cellspacing="0" cellpadding="0" align="center" height="178">
<tr>
<td width="495" class="p1"><%if request("classid")="" then
else
cl=request("classid")
sqt="select * from ANclass where classid="&cl&" order by Nclassorder "
Set ts= Server.CreateObject("ADODB.Recordset")
ts.open sqt,conn,1,1
if ts.eof and ts.bof then
else %>[ <a href="showclass.asp?classid=<%=request("classid")%>"><u><font color="#0000FF">此类全部</font></u></a> ] [ <a href="sousuo.asp"><u><font color="#0000FF">搜 索</font></u></a> ] [ <a href="ad/mm.htm" target="_blank"><u><font color="#FF0000">手机短信聊天，寻找你的梦中情人！</font></u></a> ]<br><% do while not ts.eof %><img border="0" src="images/j2.gif" width="8" height="11"><a href="showclass1.asp?classid=<%=request("classid")%>&Nclassid=<%=ts("Nclassid")%>"><%if request("Nclassid")<>"" then %><%if fix(request("Nclassid"))=ts("Nclassid") then %><font color="#ff0000"><b><%=ts("Nclass")%> <%Nclassname=ts("Nclass")%></b></font>
<%else %><%=ts("Nclass")%><%end if %><%else %><%=ts("Nclass")%><%end if %>
</a> <% ts.movenext%><%
loop
ts.close
end if
end if %></td></tr>
<tr>
<td width="495" height="5"></td></tr>
<tr>
<td width="495" height="4">
<img border="0" src="images2/showdi2.gif" width="495" height="4"></td></tr>
<tr>
<td width="495" valign="top" height="115">
<table border=0 cellpadding=0 cellspacing=0 width="495">
<tr>
<td width="1" height="114" bgcolor="#DEDFDE">
<td width="490" height="114" bgcolor="#F7F7F7"><%if request("updown")="" then%>
<%else%>
<%end if%>
<%do while not rs.eof%>
<center>
<table border="0" cellpadding="0" cellspacing="10" style="border-collapse: collapse" width="100%">
<tr>
<td width="25%">
<table border="0" cellspacing="0" style="border-collapse: collapse" width="113" align="center">
<tr>
<td width="113" height="103" background="images2/tdi.gif">
<p align="center"><a target="_blank" href="view.asp?id=<%=rs("id")%>"><IMG src="<%=rs("images")%>" width="100" height="75" border="0"></a><br>
</td>
</tr>
</table>
</td><td width="25%">
<table border="0" cellspacing="3" style="border-collapse: collapse" width="100%" cellpadding="0">
<tr>
<td width="100%"><FONT color=#00a0e><B><%=rs("showname")%></b></font></td>
</tr>
<tr>
<td width="100%">作者：<a href="mailto:<%=rs("filename2")%>"><%=rs("filename1")%></A></td>
</tr>
<tr>
<td width="100%">歌手：<%if rs("note")="(无)" then%>( 无 )<%else%><a href="query.asp?keyword=<%=rs("note")%>"><%=rs("note")%></a><%end if%></td>
</tr>
<tr>
<td width="100%"><font color="#ff0000"><b><%=rs("hits")%></b></font> 次/<b><%=rs("size")%></b></td>
</tr>
<tr>
<td width="100%"><a href="javascript:tofriend('<%=rs("id")%>')">
<img border="0" src="images2/s3.gif" alt="送给好友" width="16" height="16"></a> <a href="javascript:Showvote('<%=rs("id")%>')">
<img border="0" src="images2/s2.gif" alt="评论打分" width="16" height="16"></a> <a href="http://mysms.tom.com/smslist/smsearch.php?inc=3&keyword=<%=rs("showname")%>&user_id=59856" target="_blank">
<img border="0" src="images2/s1.gif" alt="下载铃声" width="16" height="16"></a></td>
</tr>
</table>
</td><%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
%>
<td width="25%"><table border="0" cellspacing="0" style="border-collapse: collapse" width="113" align="center">
<tr>
<td width="113" height="103" background="images2/tdi.gif">
<p align="center"><a target="_blank" href="view.asp?id=<%=rs("id")%>"><IMG src="<%=rs("images")%>" width="100" height="75" border="0"></a><br>
</td>
</tr>
</table>
</td>
<td width="25%">
<table border="0" cellspacing="3" style="border-collapse: collapse" width="100%" cellpadding="0">
<tr>
<td width="100%"><FONT color=#00a0e><B><%=rs("showname")%></b></font></td>
</tr>
<tr>
<td width="100%">作者：<a href="mailto:<%=rs("filename2")%>"><%=rs("filename1")%></A></td>
</tr>
<tr>
<td width="100%">歌手：<%if rs("note")="(无)" then%>( 无 )<%else%><a href="query.asp?keyword=<%=rs("note")%>"><%=rs("note")%></a><%end if%></td>
</tr>
<tr>
<td width="100%"><font color="#ff0000"><b><%=rs("hits")%></b></font> 次/<b><%=rs("size")%></b></td>
</tr>
<tr>
<td width="100%"><a href="javascript:tofriend('<%=rs("id")%>')">
<img border="0" src="images2/s3.gif" alt="送给好友" width="16" height="16"></a> <a href="javascript:Showvote('<%=rs("id")%>')">
<img border="0" src="images2/s2.gif" alt="评论打分" width="16" height="16"></a> <a href="http://mysms.tom.com/smslist/smsearch.php?inc=3&keyword=<%=rs("showname")%>&user_id=59856" target="_blank">
<img border="0" src="images2/s1.gif" alt="下载铃声" width="16" height="16"></a></td>
</tr>
</table>
</td></tr></table>
</center><%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
</td>
<td width="4" height="114" bgcolor="#DEDFDE"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="10">
<img border="0" src="images2/showdi3.gif" width="495" height="10"></td>
</tr>
<tr>
<td height="49"><%
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<form method=Post action="&filename&"?classid="&request("classid")&"&Nclassid="&request("Nclassid")&"&order="&request("order")&"&updown="&request("updown")&">"
response.write "<p align='right'><font color='red'>"&Nclassname&"</font>"
if CurrentPage<2 then
response.write ""&totalnumber&"个 首页 上一页 "
else
response.write ""&totalnumber&"个 <a href="&filename&"?page=1&classid="&request("classid")&"&Nclassid="&request("Nclassid")&"&order="&request("order")&"&updown="&request("updown")&">首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&classid="&request("classid")&"&Nclassid="&request("Nclassid")&"&order="&request("order")&"&updown="&request("updown")&">上一页</a> "
end if
if n-currentpage<1 then
response.write "下一页 尾页"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&classid="&request("classid")&"&Nclassid="&request("Nclassid")&"&order="&request("order")&"&updown="&request("updown")&">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&classid="&request("classid")&"&Nclassid="&request("Nclassid")&"&order="&request("order")&"&updown="&request("updown")&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
response.write " <b>"&maxperpage&"</b>个作品/页 "
%>转到：<select name='page' size='1' style="color:#ff0000;font-size: 9pt" onChange='javascript:submit()'>
<%for i = 1 to n%>
<option value='<%=i%>' <%if cint(currentPage)=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
<%next%>
</select>
<% response.write "</FORM>"%>
<%
end function
%></td>
</tr>
<%
set rs=nothing
%></table><script language=javascript src="http://usms.tom.com/a_468.js?tomuserid=59856"></script>
</td>
</tr>
</table></td>
</tr>
</table>
</td>
<td width="16" valign="top"></td>
</tr>
<tr>
<td width="27"> </td>
<td width="717" valign="top" bgcolor="#F0FAE7"><script language=javascript src=http://ulinkjs.tom.com/tom_773_news.js></script></td>
<td width="16" valign="top"> </td>
</tr>
</table>
</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="760" align="center">
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="760" background="images/bg1-3.gif">
<tr>
<td width="760" background="images/bg2-2.gif" height="10"></td>
</tr>
<tr>
<td width="760">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="44" bgcolor="#FFFFFF">
</td>
<td width="684" bgcolor="#FFFFFF"><!--#include file="CopyRight.asp"--></td>
<td width="32" bgcolor="#FFFFFF">
<p align="right">
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
<script language=javascript src="http://usms.tom.com/jqdb.js?tomuserid=59856"></script>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -