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


dim money
money=50   '定义玩一次要花费的金钱数为50，可以改

If Dvbbs.UserID=0 Then
	Dvbbs.AddErrCode(6)
	Dvbbs.Showerr()
Else

        Server.ScriptTimeOut=999
dim id
id=clng(request("id"))
   if request("active")="开打" then
		Dvbbs.stats="正在游戏中！"
		Dvbbs.Nav
		Dvbbs.Head_var 0,0,"游戏在线","game_flash.asp"
		play()
   else
		Dvbbs.stats="你确定要玩游戏吗?"
		Dvbbs.Nav
		Dvbbs.Head_var 0,0,"游戏在线","game_flash.asp"
		areyousure()

    End If
End If

Set Dv_plus=Nothing 
Dvbbs.Footer

Sub areyousure()
%>
<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>
<tr><td height=220 valign=center align=center><a href=?id=<%=id%>&active=开打>玩此游戏将扣除你<%=money%>个金币，你确定要玩吗？！</a><br><br><font color=red>提示：本系统是按次收费，也就是说你第次玩都要收费！</font></td></tr>
</table>
<%
End Sub
Sub play()
dim Rs,money1
Set Rs=Dvbbs.Execute("Select userwealth From [Dv_User] Where Userid="&Dvbbs.UserID)

money1=rs(0)
set Rs=nothing
if money1<money then
Response.redirect "showerr.asp?ErrCodes=<li>对不起，你现在拥有的金钱数小于"&money&",赶快到论坛发贴挣钱吧！等有了钱再来玩！&action=plus"
response.end
else
Dvbbs.Execute("Update [Dv_User] Set userwealth=userwealth-"&money&" Where userid="&Dvbbs.UserID)
end if
%>

<script src=http://www.jxbus.com/flash/game_show.asp?id=<%=id%>></script>
<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>
<tr><td height=30 valign=center align=center>你现在正在玩的游戏是〖<script>document.write(title);</script> 〗</td></tr></table>
<table cellspacing=1 cellpadding=3 align=center class=tableborder4 width=770>
<tr><td height=420 valign=center align=center><script>document.write(showflash);</script> </td></tr>
</table>
<%

response.write "<div align=center><br><br><p><a href=#top>返回顶部&nbsp; ↑</a></p></div>"


End Sub
%>
