📄 showclass1.asp
字号:
</tr>
<tr>
<td height="1" align="center">
<%
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>
<tr>
<%
set rs=nothing
%>
</tr>
</table>
</td>
</tr>
</table> </td>
<td width="238" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="5"> </td>
<td width="217"><p align="center">
<img border="0" src="images/huiyuan.gif" width="116" height="37"></td>
<td width="16"> </td>
</tr>
<tr>
<td width="5"> </td>
<td width="217"><FORM name=Login action=user/login.asp method=post>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr> <td width="100%">
<p align="center" style="line-height: 150%">用 户：<input maxlength=15 name=User size=12><br>密 码：<input maxlength=10 name=Pwd size=12 type=password><br><a href="javascript:window.alert('近期开通');"><img border="0" src="images/go1.gif" width="50" height="22"></a> <a href="javascript:window.alert('近期开通');"><img border="0" src="images/go2.gif" width="50" height="22"></a></td>
</tr>
</table></form>
</td>
<td width="16"> </td>
</tr>
<tr>
<td width="238" colspan="3">
<img border="0" src="images/b4.gif" width="238" height="13"></td>
</tr>
<tr>
<td width="238" colspan="3" background="images/bg4.gif">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="5"> </td>
<form method="post" name="myform" action="query.asp" target="_blank"><td width="212">
<div align="center">
<center>
<table border=0 cellpadding=0 cellspacing=0 width=100% style="border-collapse: collapse">
<tr>
<td valign=top>
<%
dim count
set rs=server.createobject("adodb.recordset")
sql = "select * from ANclass order by Nclassid asc"
rs.open sql,conn,1,1
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs("Nclass"))%>","<%= trim(rs("classid"))%>","<%= trim(rs("Nclassid"))%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.myform.Nclassid.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.Nclassid.options[document.myform.Nclassid.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>
<input type="radio" name="action" value="title" checked>名称<input type="radio" name="action" value="content">歌手
<input type="text" name="keyword" size=9 maxlength="50" style="background-color: #FFFFFF; border: 1px solid #575757; " value="输入关键字"> <input type="submit" name="Submit2" value="搜索" style='BORDER-RIGHT: #330000 1px solid; BORDER-TOP: #ffffcc 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: #ffffcc 1px solid; CURSOR: hand; COLOR: #000000; BORDER-BOTTOM: #330000 1px solid; HEIGHT: 14pt '></td>
</tr>
</table></center>
</div>
</td> </form>
<td width="21"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="238" colspan="3">
<img border="0" src="images/b5.gif" width="238" height="13"></td>
</tr>
<tr>
<td width="5"> </td>
<td width="217">
<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="165" align="center">
<tr><td width="100%">
<img border="0" src="http://www.3rens.com/flash/images/lm32.gif"></td></tr>
<tr><td width="100%" height="8"></td></tr><%
sql="select top 10 "
sql=sql&"download.id,download.showname,download.dateandtime,download.hits,download.hots,download.classid,download.Nclassid,ANclass.Nclass "
sql=sql&" from download,ANclass where download.hots=1 and download.Nclassid=ANclass.Nclassid "
sql=sql&" order by download.id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>没有推荐作品<%else%>
<%do while not rs.eof%><tr><td width="100%" background="images/topbg.gif" height="20">
·<a href="javascript://" onClick="window.open('view.asp?id=<%=rs("id")%>');" ><%=rs("showname")%></a>
(<%=rs("hits")%>)</td></tr><%
rs.movenext
loop
end if
rs.close
%>
</table>
</td>
</tr>
</table>
</td>
<td width="16"> </td>
</tr>
<tr>
<td width="5"> </td>
<td width="217"><table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="165" align="center">
<tr><td width="100%">
<img border="0" src="http://www.3rens.com/flash/images/hot1.gif"></td></tr>
<tr><td width="100%" height="5"></td></tr>
<%
sql="select top 10 "
sql=sql&" download.id,download.showname,download.dateandtime,download.hits,download.classid,download.Nclassid,ANclass.Nclass"
sql=sql&" from download,ANclass where download.stop=0 and download.Nclassid=ANclass.Nclassid "
sql=sql&" order by download.hits desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<%else%>
<%i=0
do while not rs.eof%><tr><td width="100%" background="images/topbg.gif" height="20">
·<a href="javascript://" onClick="window.open('view.asp?id=<%=rs("id")%>');" ><%=rs("showname")%></a>
(<%=rs("hits")%>)</td></tr><%
i=i+1
if i>=15 then exit do
rs.movenext
loop
end if
rs.close
%>
</table>
</td>
</tr>
</table></td>
<td width="16"> </td>
</tr>
<tr>
<td width="5"> </td>
<td width="217"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="165" align="center">
<tr><td width="100%" height="10"></td></tr>
<tr><td width="100%"><script language=javascript src="http://usms.tom.com/qtz.js?tomuserid=59856"></script><p><script language=javascript src="http://usms.tom.com/js/170_260.js?tomuserid=59856&tomusername=xwq"></script></td></tr>
</table></td>
<td width="16"> </td>
</tr>
<tr>
<td width="5" height="30"> </td>
<td width="217"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="165" align="center">
<tr><td width="100%" height="10"></td></tr>
<tr><td width="100%"> </td></tr>
<tr><td width="100%" align="center" style="line-height: 150%">
<a href="http://www.macromedia.com/shockwave/download/triggerpages_mmcom/flash5.html" target="_blank">
<font color="#FF0000"><u>如无法观看动画<br>
请您先下载插件</u></font></a><p><a target="_blank" href="http://www.macromedia.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash&P5_Language=English">
<img border="0" src="images/install_now_flash.gif" width="115" height="30"></a><p>
<font color="#FF0000">申明：</font>本站所有作品版权归原<br>
作者所有，如有问题请联系：<br><a href="mailto:fly@jsmail.com.cn">
无聊的飞</a> 本站所有图片、链<br>接，版权均为<a href="http://www.3330.net" target="_blank">飞鱼网</a>所有，未<br>经许可，不得以任何形式转载</td></tr>
</table></td>
<td width="16"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="760" colspan="5" background="images/bg2.gif" height="10"></td>
</tr>
<tr>
<td width="760" colspan="5">
<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><p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -