<!-- #include file=../../inc/BBSsetup.asp -->
<!-- #include file=../../inc/Board_popfun.asp -->
<%
DEF_BBS_homeUrl="../../"
initdatabase
Dim WPD_mymoney
BBS_SiteHead DEF_SiteNameString & " " & DEF_BBS_Name,GBL_board_ID,">> 全方面查询"

If GBL_CHK_User="" then
	response.write "<p align=center>尊敬的客人，您好！要使用本插件请您先 <a href=../../User/Login.asp><font color=red>登录</font></a> 如果还没有注册，可点击 <a href=../../User/UserJoin.asp><font color=red>注册</font></a> 进行免费注册。"
	response.end
End if
WPD_mymoney=con.execute("select points from leadbbs_user where username='"&GBL_CHK_User&"'")(0)
If WPD_mymoney<0 then
	response.write """<p align=center>我狂晕！你连1元都没有，还想来玩？先去发几个帖子吧。"
	response.end
End if
dim menu
menu=request.querystring("menu")
Select case menu
case "win"
	call mywin()
case "lost"
	call mylost()
case else
	call main()
End select

closedatabase
SiteBottom

sub main()
con.execute("update leadbbs_user set points=points-0 where username='"&GBL_CHK_User&"'")
%>
<table width="<%=DEF_BBS_ScreenWidth%>" border=0 cellspacing=1 cellpadding=5 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone>
<tr bgcolor=<%=DEF_BBS_LightDarkColor%> align=center>
<td class=TBHead colspan=2><font color=#ffffff class=HeadFont><b>全方面查询</b></font></td>
</tr>
<table class=tablebody2 valign=middle colspan=2></table>
<html>
<body text="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center"> 
  <table width="750" border="0" align="center" cellspacing="0">
    <tr> 
      <td align="center"><iframe align=middle marginwidth=0 marginheight=0 vspace=-100
	  src="http://www.123cha.com/" 
      frameborder=no width=100% scrolling=auto height=600></iframe> <br></td>
    </tr>
  </table>
</div>
</body>
</html> 
<%
end sub
%>

