jgames.asp

来自「财务系统源码 财务系统源码」· ASP 代码 · 共 55 行

<!-- #include file="conn.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/DvADChar.asp" -->

<%
Dvbbs.stats="棋 牌 大 厅"
Dvbbs.nav()
Dvbbs.Head_var 2,0,"",""
Dim nowmeili,my,mypass,myemail,tableTitleColor,mymoney
if not dvbbs.founduser then
response.redirect"login.asp"
call dvbbs_error()
else
response.write "<table cellpadding=3 cellspacing=1 align=center class=tableborder1><tr><th valign=middle colspan=2 align=center height=25><b>"&Dvbbs.stats&"</b></td></tr><tr><td valign=middle class=tablebody1 height=100><CENTER>"
%>
<%
sql="select * from [Dv_user] where username='"&dvbbs.Membername&"'"  
set rs=conn.Execute(sql)
nowmeili=rs("userWealth")
if nowmeili<0 then
%>
<script language=vbscript>
  MsgBox "你现在只有不到0块钱，太少了点嘛，以后再来吧！"
   location.href = "index.ASP"
</script>
<% 
rs.close
set rs=nothing
else
%>

<%
	sql="select * from [Dv_user] where username='"&dvbbs.Membername&"'"
	Set Rs=conn.Execute(sql)
	mymoney=rs("userWealth")
	my=rs("UserName")
	mypass=rs("userpassword")
	myemail=rs("useremail")
%>
<bgsound src=music\horse.mid loop=-1>
<BR>
<table border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td width="150" valign="top" align="center">
   <iframe src='http://218.88.170.49/jgame.asp?user=<%= Dvbbs.Forum_info(0)%>&a=<%=my%>&b=<%=mypass%>&c=<%= Dvbbs.Forum_info(1)%>' width=750 height=440 align=center scrolling=no frameborder=0 allowtransparency=true application=true noresize></iframe>
</div>
</td>
  </tr>
</table>
<%end if
response.write "</CENTER></td></tr></table>"
end if
Dvbbs.Footer()
%>