<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/plus_check.asp"-->
<!--#include file="game_getf.asp"-->
<XML ID="dataisland" src="xml.asp"></xml>
<%
'*************************************************************
'*插件名称： FLASH小游戏消费插件 for Dv 7.1SP1 bulid 2005-09-26 
'*
'*程序作者：天地博爱
'*
'*类型：自动更新消费型
'*
'*主页：http://www.basky.net  博爱综合娱乐网
'*
'*时间：2005-07-13 （初次发布）
'*
'*作用：游戏集中显示！
'*************************************************************

Dv_plus.name="baskygame"
Dv_plus.checklogin()
Dvbbs.Loadtemplates("")
If Dvbbs.UserID=0 Then
	Dvbbs.AddErrCode(6)
	Dvbbs.Showerr()
Else
        Server.ScriptTimeOut=999

		Dvbbs.stats="小游戏在线消费版"
		Dvbbs.Nav
		Dvbbs.Head_var 0,0,"游戏在线","game_flash.asp"
%>

<table cellspacing=1 cellpadding=3 align=center class=tableborder4 width=770>
  <tr>
    <th height=25 valign=middle align=center> 
     〓〖 FLASH 小 游 戏 在 线 〗〓 <a name=top></a>  
    </th>
  </tr>
</table>

<%
		showgame()

End If

Set Dv_plus=Nothing 
Dvbbs.Footer

Sub showgame()

	dim game,gg

'if cflash=1 then
'response.write "<table width=760 align=cetner><tr><td align=center><br><br><br><br><br><font color=red>对不起，游戏正在更新整理中！请过1分钟再重试，不便之处请原谅！</font></td></tr></table>"
'else


response.write "<table cellspacing=1 cellpadding=3 align=center class=tableborder4 width='100%'><tr><td height=20 align=center id=fnum><font color=blue>目前共有个小游戏</font></td></tr><tr><td align=center height=2><hr width=98% height=1></td></tr><tr><td height=150 align=center id=fflash>游戏读取中...<br><br><br><a onclick='javascript:doits()' href=#top><font color=red>等了很久还不显示动画，请点此显示动画</font></a><br><br><br><font color=blue>注：加载时间视你网速决定，如果不能显示，请多点上面的链接几次！</font></td></tr></table>"
response.write "<table cellspacing=1 cellpadding=3 align=center class=tableborder4 width='100%'><tr><td width='30%' align=right id=yenn>现在是第 1 页 </td><td height=25 align=center><a onclick='javascript:goup()' href=#top>上一页</a></td><td align=center><a onclick='javascript:gonext()' href=#top>下一页</a></td><td width='30%'> </td></tr></table>"
%>
<!--以下就是自己可以自定义显示的JS内容了-->
<script language="vbscript">
totalflash=0
totalye=0

num=32       //如果分页，则用来定义每页显示的FLASH数目
yenum=0      //如果分页，则初始化页码
k=0
sub doits()
totalflash=dataisland.recordset.recordcount //得到总的FLASH数量
//alert(totalflash)
fnum.innerHTML="<font color=blue>目前共有"&totalflash&"个小游戏</font>"

dataisland.recordset.pagesize=num        //如果分页，则将记录集按每页显示的数目自动分页
totalye=dataisland.recordset.pagecount     //如果分页，则得到记录分页后的总页数
yenn.innerHTML=yenn.innerHTML&"/共有<font color=red>"&totalye&"</font>页"

dataisland.recordset.movefirst()
str=""
str=str&"<table width='100%' align=center border=0>"
j=0
ttd=0
tcolor=""
for i=0 to num-1
j=j+1
if i>0 then dataisland.recordset.movenext()
if j>4 then j=1
if j=1 then
ttd=ttd+1
if ttd>1 then ttd=0
if ttd=0 then
tcolor=" bgcolor=#eeeeee"
else
tcolor=""
end if
end if
if j=1 then str=str&"<tr><td align=center"&tcolor&"><a href=showflash.asp?id="&dataisland.recordset(3)&"><img width=120 height=90 border=0 src="&dataisland.recordset(1)&"><br>"&dataisland.recordset(0)&"</a></td>"
if j=2 or j=3 then str=str&"<td align=center"&tcolor&"><a href=showflash.asp?id="&dataisland.recordset(3)&"><img width=120 height=90 border=0 src="&dataisland.recordset(1)&"><br>"&dataisland.recordset(0)&"</a></td>"
if j=4 then str=str&"<td align=center"&tcolor&"><a href=showflash.asp?id="&dataisland.recordset(3)&"><img width=120 height=90 border=0 src="&dataisland.recordset(1)&"><br>"&dataisland.recordset(0)&"</a></td></tr>"
next
str=str&"</table>"
fflash.innerHTML=str

end sub
settimeout "doits()",8000

sub goup()
str=""
yenum=yenum-1

if yenum<0 then yenum=0
yenn.innerHTML="现在是第"&yenum+1&"页 "&"/共有<font color=red>"&totalye&"</font>页"
dataisland.recordset.absolutepage=yenum+1
k=yenum*num
str=str&"<table width='100%' align=center border=0>"
j=0
ttd=0
tcolor=""
for i=0 to num-1
j=j+1
if i>0 then dataisland.recordset.movenext()
if j>4 then j=1
if j=1 then
ttd=ttd+1
if ttd>1 then ttd=0
if ttd=0 then
tcolor=" bgcolor=#eeeeee"
else
tcolor=""
end if
end if
if j=1 then str=str&"<tr><td align=center"&tcolor&"><a href=showflash.asp?id="&dataisland.recordset(3)&"><img width=120 height=90 border=0 src="&dataisland.recordset(1)&"><br>"&dataisland.recordset(0)&"</a></td>"
if j=2 or j=3 then str=str&"<td align=center"&tcolor&"><a href=showflash.asp?id="&dataisland.recordset(3)&"><img width=120 height=90 border=0 src="&dataisland.recordset(1)&"><br>"&dataisland.recordset(0)&"</a></td>"
if j=4 then str=str&"<td align=center"&tcolor&"><a href=showflash.asp?id="&dataisland.recordset(3)&"><img width=120 height=90 border=0 src="&dataisland.recordset(1)&"><br>"&dataisland.recordset(0)&"</a></td></tr>"
next
str=str&"</table>"
fflash.innerHTML=str
end sub


sub gonext()
str=""
yenum=yenum+1

if yenum>totalye-1 then yenum=totalye-1
yenn.innerHTML="现在是第"&yenum+1&"页 "&"/共有<font color=red>"&totalye&"</font>页"
dataisland.recordset.absolutepage=yenum+1

k=yenum*num
if yenum=totalye-1 then
k2=totalflash-k-1
else
k2=num-1
end if
str=str&"<table width='100%' align=center border=0>"
j=0
ttd=0
tcolor=""


for i=0 to k2

j=j+1
if i>0 then dataisland.recordset.movenext()
if j>4 then j=1
if j=1 then
ttd=ttd+1
if ttd>1 then ttd=0
if ttd=0 then
tcolor=" bgcolor=#eeeeee"
else
tcolor=""
end if
end if
if j=1 then str=str&"<tr><td align=center"&tcolor&"><a href=showflash.asp?id="&dataisland.recordset(3)&"><img width=120 height=90 border=0 src="&dataisland.recordset(1)&"><br>"&dataisland.recordset(0)&"</a></td>"
if j=2 or j=3 then str=str&"<td align=center"&tcolor&"><a href=showflash.asp?id="&dataisland.recordset(3)&"><img width=120 height=90 border=0 src="&dataisland.recordset(1)&"><br>"&dataisland.recordset(0)&"</a></td>"
if j=4 then str=str&"<td align=center"&tcolor&"><a href=showflash.asp?id="&dataisland.recordset(3)&"><img width=120 height=90 border=0 src="&dataisland.recordset(1)&"><br>"&dataisland.recordset(0)&"</a></td></tr>"
next
str=str&"</table>"
fflash.innerHTML=str
end sub





</script>

<!--以上就是自己可以自定义显示的JS内容了-->
<%
response.write "<div align=center><br><br><p><a href=#top>返回顶部&nbsp; ↑</a></p></div>"

'end if
End Sub
%>
