<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>FLASH音乐港台组合</title>
<STYLE type=text/css>
.s14 {FONT-SIZE: 14px; line-height: 150%}
.s16 {FONT-SIZE: 16px; line-height: 180%}
.s18 {FONT-SIZE: 18px; line-height: 200%}
A {TEXT-DECORATION: none; color: #000000;line-height: 150%}
A:hover {color:#FF0000; TEXT-DECORATION: none}
A:visited {color:#000000; TEXT-DECORATION: none}
a:link {color:#000000; TEXT-DECORATION: none}
body {font-size: 12px; line-height: 130%; FONT-FAMILY: 宋体}
td {font-size: 12px;line-height: 130%; FONT-FAMILY: 宋体}
</STYLE>
</head>
<body topmargin="0" leftmargin="0">
<!--#include file="adtop.asp"-->
<table border="0" cellpadding="0" cellspacing="0" width="900" bgcolor="#B9CD69">
<tr><td width="204" valign="top" background="image/lbj.gif" align="center">
<!--#include file="adleft.asp"--></td>
<td width="696" valign="top" bgcolor="#FFFFFF">
<table align="center" cellspacing="0" cellpadding="3" width="98%" border="0">
<tr><td colspan="5"><a href='index.asp'><SPAN class=s14>FLASH动画</SPAN></a> >> FLASH游戏趣味类</td></tr>
</table>
<%   
	const MaxPerPage=40
	dim totalPut
	dim CurrentPage
	dim TotalPages
	dim i,j
	if not isempty(request("page")) then
		currentPage=cint(request("page"))
	else
		currentPage=1
	end if
%>
<%
	sql="select * from FLASH where FENLEI2='港台组合' ORDER BY ID desc"
	Set rs= Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		response.write "<center><br><br><SPAN class=s16><b>很遗憾，没有找到与您搜索的相关内容……<br><br>建议您检查输入文字有无错误，或缩短关键词再试试。</b></SPAN></center>"
	else
		totalPut=rs.recordcount
		if currentpage<1 then
			currentpage=1
		end if
		if (currentpage-1)*MaxPerPage>totalput then
			if (totalPut mod MaxPerPage)=0 then
				currentpage= totalPut \ MaxPerPage
			else
				currentpage= totalPut \ MaxPerPage + 1
			end if
		end if
		if currentPage=1 then
				showpage totalput,MaxPerPage,""
				showContent
				showpage totalput,MaxPerPage,""
		else
			if (currentPage-1)*MaxPerPage<totalPut then
				rs.move  (currentPage-1)*MaxPerPage
				dim bookmark
				bookmark=rs.bookmark
				showpage totalput,MaxPerPage,""
				showContent
				showpage totalput,MaxPerPage,""
			else
				currentPage=1
				showpage totalput,MaxPerPage,""
				showContent
				showpage totalput,MaxPerPage,""
			end if
		end if
		rs.close
	end if
	set rs=nothing
	conn.close
	set conn=nothing
	sub showContent
	dim i
	i=0
%>
<table width="98%" border="0" cellspacing="0" cellpadding="3" align="center">
<%do while not rs.eof%>
<tr><td width="25%" align="center" valign="top">
<%if not rs.eof then%>
<a href="show.asp?id=<%=rs("ID")%>" target="_blank" title='<%=rs("MINGCHENG")%>'><img style="border: 1 solid #000000" src="http://www.jipai.cn/jpg/<%=rs("ID")%>.jpg" width="120" height="90">
<br><%=rs("MINGCHENG")%></a>
<%rs.movenext
end if%>
</td><td width="25%" align="center" valign="top">
<%if not rs.eof then%>
<a href="show.asp?id=<%=rs("ID")%>" target="_blank" title='<%=rs("MINGCHENG")%>'><img style="border: 1 solid #000000" src="http://www.jipai.cn/jpg/<%=rs("ID")%>.jpg" width="120" height="90">
<br><%=rs("MINGCHENG")%></a>
<%rs.movenext
end if%>
</td><td width="25%" align="center" valign="top">
<%if not rs.eof then%>
<a href="show.asp?id=<%=rs("ID")%>" target="_blank" title='<%=rs("MINGCHENG")%>'><img style="border: 1 solid #000000" src="http://www.jipai.cn/jpg/<%=rs("ID")%>.jpg" width="120" height="90">
<br><%=rs("MINGCHENG")%></a>
<%rs.movenext
end if%>
</td><td width="25%" align="center" valign="top">
<%if not rs.eof then%>
<a href="show.asp?id=<%=rs("ID")%>" target="_blank" title='<%=rs("MINGCHENG")%>'><img style="border: 1 solid #000000" src="http://www.jipai.cn/jpg/<%=rs("ID")%>.jpg" width="120" height="90">
<br><%=rs("MINGCHENG")%></a>
<%rs.movenext
end if%>
</td></tr>
<%
	i=i+4
	if i>=MaxPerPage then exit do
	loop
%>
</table>
<%
	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 "<table width='100%' border='0' cellspacing='0' cellpadding='0' height='25' align='center'><tr><td valign='middle' align='center'>"
	if CurrentPage<2 then
		response.write ""
	else
		response.write "<a href="&filename&"?page=1><img src='image/page_top.gif' align='middle' border=0 title='回首页'></a>&nbsp;" 
		response.write "<a href="&filename&"?page="&CurrentPage-1&"><img src='image/page_pv.gif' align='middle' border=0 title='上一页'></a>&nbsp;"
	end if
	if n-currentpage<1 then
		response.write ""
	else
		response.write "<a href="&filename&"?page="&(CurrentPage+1)&">"
		response.write "<img src='image/page_next.gif' align='middle' border=0 title='下一页'></a>&nbsp;<a href="&filename&"?page="&n&"><img src='image/page_end.gif' align='middle' border=0 title='尾 页'></a>"
	end if
	response.write "&nbsp;页次：<b><font color=red>"&CurrentPage&"</font>/"&n&"</b>页"
	response.write "&nbsp;共<b>"&totalnumber&"</b>个 <b>"&maxperpage&"</b>个/页"
	response.write "</td></tr></table>"
	end function
%>
</td></tr></table>
<!--#include file='adbot.asp'-->
</body></html>