<%
dim smallclassid,maxperpage,totalpage,totalrecords,currentpage,strfile,remark
dim order,bigclassname,smallclassname,bigclassid,i
smallclassid=request("smallclassid")
if not isinteger(smallclassid) then
call mb("no Flash ID!","http://tw.pogame.net/",1)
end if
currentpage=request("page")
order=request("order")
if not isinteger(currentpage) then
currentpage=1
else
currentpage=clng(currentpage)
end if
maxperpage=mpp
i=1
totalpage=1
totalrecords=0
strfile="http://tw.pogame.net/b.asp?c="&smallclassid
set rs=conn.execute("select B.bigclassname,S.smallclassname,S.bigclassid from bigclass B inner join smallclass S on B.bigclassid=S.bigclassid where S.smallclassid="&smallclassid)
if not (rs.bof and rs.eof) then
bigclassname=rs(0)
smallclassname=rs(1)
'bigclassid=rs(2)'
else
bigclassname="anonymous"
smallclassname="anonymous"
end if
rs.close
set rs=server.createobject("adodb.recordset")
if order="hits" then
sql="select * from flash where smallclassid="&smallclassid&" order by hits desc"
else
sql="select * from flash where smallclassid="&smallclassid&" order by dateandtime desc"
end if
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
rs.pagesize=maxperpage
rs.absolutepage=currentpage
totalpage=rs.pagecount
totalrecords=rs.recordcount
end if
%>
<%=smallclassname%>小遊戲 - 遊戲桃小遊戲
