allflash.asp
来自「ASP源程序采用天空软件小偷中心核件制成」· ASP 代码 · 共 410 行 · 第 1/2 页
ASP
410 行
</tr>
<tr>
<td width="80%">
<center>
<table border=0 cellpadding=0 cellspacing=0 width="80%" style="border-collapse: collapse">
<tr>
<td><img border="0" src="images2/alldi.gif" width="559" height="4"></td>
</tr>
<tr>
<td align=middle valign="top"><%
if request("Nclassid")="" then
sql="select id,filename,filename1,filename2,showname,note,images,dayhits,weekhits,lasthits,hits,dateandtime,hot,system,size,orders from download where "&classid&" stop=0 "
sql=sql&" order by "&order_name&" "&updown
else
sql="select id,filename,filename1,filename2,showname,images,note,dayhits,weekhits,lasthits,hits,dateandtime,hot,system,size,orders from download where "&classid&" "&Nclassid&" stop=0 "
sql=sql&" order by "&order_name&" "&updown
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<table><tr><td border='0' width='100%' height='100%' cellspacing='1' cellpadding='0' bgcolor='#FFFFFF'><p align='center'><li> 没有或没有找到 flash 作品！</p></td></tr></table>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*maxperpage3>totalput then
if (totalPut mod maxperpage3)=0 then
currentpage= totalPut \ maxperpage3
else
currentpage= totalPut \ maxperpage3 + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,maxperpage3,"showclass.asp"
else
if (currentPage-1)*maxperpage3<totalPut then
rs.move (currentPage-1)*maxperpage3
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,maxperpage3,"showclass.asp"
else
currentPage=1
showContent
showpage totalput,maxperpage3,"showclass.asp"
end if
end if
rs.close
end if
sub showContent
dim i
i=0
%><center>
<table border="0" cellspacing="1" cellpadding="5" width="100%" bordercolor="#FFFFFF">
<tr>
<td width="39%" align="center" bgcolor="#F88BB9" height="25" colspan="2">
<font color="#FFFFFF">名 称</font></td>
<td width="17%" align="center" bgcolor="#F88BB9" height="25">
<font color="#FFFFFF">作 者</font></td>
<td width="8%" align="center" bgcolor="#F88BB9" height="25">
<font color="#FFFFFF">人 气</font></td>
<td width="12%" align="center" bgcolor="#F88BB9" height="25">
<font color="#FFFFFF">歌 手</font></td>
<td width="8%" align="center" bgcolor="#F88BB9" height="25">
<font color="#FFFFFF">送 友</font></td>
<td width="8%" align="center" bgcolor="#F88BB9" height="25">
<font color="#FFFFFF">投 票</font></td>
<td width="8%" align="center" bgcolor="#F88BB9" height="25">
<font color="#FFFFFF">铃声</font></td>
</tr>
<%do while not rs.eof%>
<tr>
<td width="3%" height=22 bgcolor="#F5F5F5"> <img border="0" src="images/j2.gif" width="8" height="11"></td>
<td width="36%" height=22 bgcolor="#F5F5F5"><a href="view.asp?id=<%=rs("id")%>" target=_blank><FONT color=#00749f><%=rs("showname")%></FONT></a> ( <%=rs("size")%> ) <%if rs("hot")>3 then%>
<font color=red>荐</font>
<%end if%></td>
<td width="17%" align=center bgcolor="#F5F5F5"><a href="mailto:<%=rs("filename2")%>"><FONT color=#00749f><%=rs("filename1")%></font></a> </td>
<td width="8%" align=center bgcolor="#F5F5F5"><%=rs("hits")%></td>
<td width="12%" align=center bgcolor="#F5F5F5"><%if rs("note")="(无)" then%>( 无 )<%else%><a href="http://www.7k7k.com/query.asp?keyword=<%=rs("note")%>"><%=rs("note")%></a><%end if%></td>
<td width="8%" align=center bgcolor="#F5F5F5"><a href="javascript:tofriend('<%=rs("id")%>')"><img border="0" src="images2/s3.gif" alt="送给好友" width="16" height="16"></a></td>
<td width="8%" align=center bgcolor="#F5F5F5"><a href="javascript:Showvote('<%=rs("id")%>')"><img border="0" src="images2/s2.gif" alt="评论打分" width="16" height="16"></a></td>
<td width="8%" align=center bgcolor="#F5F5F5"><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><%
i=i+1
if i>=maxperpage3 then exit do
rs.movenext
%>
<tr>
<td width="3%" height=22> <img border="0" src="images/j2.gif" width="8" height="11"></td>
<td width="36%" height=22><a href="view.asp?id=<%=rs("id")%>" target=_blank><FONT color=#00749f><%=rs("showname")%></FONT></a> ( <%=rs("size")%> ) <%if rs("hot")>3 then%>
<font color=red>荐</font>
<%end if%></td>
<td width="17%" align=center><a href="mailto:<%=rs("filename2")%>"><FONT color=#00749f><%=rs("filename1")%></font></a> </td>
<td width="8%" align=center><%=rs("hits")%> </td>
<td width="12%" align=center><%if rs("note")="(无)" then%>( 无 )<%else%><a href="http://www.7k7k.com/query.asp?keyword=<%=rs("note")%>"><%=rs("note")%></a><%end if%></td>
<td width="8%" align=center><a href="javascript:tofriend('<%=rs("id")%>')"><img border="0" src="images2/s3.gif" alt="送给好友" width="16" height="16"></a></td>
<td width="8%" align=center><a href="javascript:Showvote('<%=rs("id")%>')"><img border="0" src="images2/s2.gif" alt="评论打分" width="16" height="16"></a></td>
<td width="8%" align=center><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><%
i=i+1
if i>=maxperpage3 then exit do
rs.movenext
loop
%>
<tr>
<td height="4" colspan="8" width="100%" bgcolor="#F88BB9"></td>
</tr>
<tr>
<td background=images/line-2.gif height="1" colspan="8" width="100%"></td>
</tr>
</table></center><%
end sub
function showpage(totalnumber,maxperpage3,filename)
dim n
if totalnumber mod maxperpage3=0 then
n= totalnumber \ maxperpage3
else
n= totalnumber \ maxperpage3+1
end if
response.write "<form method=Post action=allflash.asp?classid="&request("classid")&"&Nclassid="&request("Nclassid")&"&order="&request("order")&"&updown="&request("updown")&">"
response.write "<font color='red'>"&Nclassname&"</font>"
if CurrentPage<2 then
response.write ""&totalnumber&"个 首页 上一页 "
else
response.write ""&totalnumber&"个 <a href=allflash.asp?page=1&classid="&request("classid")&"&Nclassid="&request("Nclassid")&"&order="&request("order")&"&updown="&request("updown")&">首页</a> "
response.write "<a href=allflash.asp?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=allflash.asp?page="&(CurrentPage+1)&"&classid="&request("classid")&"&Nclassid="&request("Nclassid")&"&order="&request("order")&"&updown="&request("updown")&">"
response.write "下一页</a> <a href=allflash.asp?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>"&maxperpage3&"</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>
</table>
</center>
</td>
<td width="20%" valign="top">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bordercolor="#DDDDDD" bgcolor="#F5F5F5" class="ads">
<tr>
<td width="100%" bgcolor="#9DECFF">::<font color="#FF0000">娱乐新闻</font>::</td>
</tr>
<tr>
<td width="100%"><script language=javascript src=http://ulinkjs.tom.com/155_all.js></script> </td>
</tr>
<tr>
<td width="100%"><script language=javascript src=http://ulinkjs.tom.com/155_news.js></script> </td>
</tr>
<tr>
<td width="100%"><script language=javascript src=http://ulinkjs.tom.com/155_ent.js></script> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="16" valign="top"></td>
</tr>
<tr>
<td width="760" colspan="3" height="10"></td>
</tr>
<tr>
<td width="760" colspan="3">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="44">
</td>
<td width="684" bgcolor="#FFFFFF"></td>
<td width="32">
<p align="right">
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<script language=javascript> window.open('http://usms.tom.com/qqxh300.htm?tomuserid=59856','','width=300,height=300')</script>
</body>
</html>
<!--#include file="CopyRight.asp"-->⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?