<!--#include file="../inc.asp"-->
<!--#include file="../ydzq1.asp"-->
<!--#include file="conn.asp"-->
<%'=============================
call head()


dim ballname,Hacontent
  set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select votename, Hacontent from YD_all where id=1",ydzqconn,1,1
if not rs.eof then
votename=rs("votename")
Hacontent=rs("Hacontent")
end if
rs.close
set rs=Nothing
Call cardgame(""&votename&"",yanse)

'检查有几条新留言
dim newguest
newguest = 0
IF myid > 0 THEN
  newguest = ForNewGuest(myid)
END IF
if myid<>0 then
if newguest > 0 then
Response.write "<a href='../msgview.asp?sid="&sid&"&amp;saytk="&saytk&"'>您有"&newguest&"条新消息</a><br/>"& chr(13)
end if%>
<%=Hacontent%>,您目前共有<%=myjb%><%=getcent%><br/>
<%
else
Response.write Hacontent&",<a href='login.asp?url=/bbs/ball/index.asp?saytk="&saytk&"'>登陆/注册</a><br/>"& chr(13)
end if
response.write "<a href=""/bbs/ball/k/default_l.asp?sid="&sid&"&amp;saytk="&saytk&""">比分直播</a><br/>"&chr(13)

response.write "【近期投注比赛】"
response.write "<a href=""ball_f.asp?sid="&sid&"&amp;saytk="&saytk&""">兑奖</a><br/>"&chr(13)
response.write "<a href=""index.asp?TP=0&amp;sid="&sid&"&amp;saytk="&saytk&""">全部</a>"&chr(13)
response.write "<a href=""index.asp?TP=1&amp;sid="&sid&"&amp;saytk="&saytk&""">足球</a>"&chr(13)
response.write "<a href=""index.asp?TP=2&amp;sid="&sid&"&amp;saytk="&saytk&""">篮球</a>"&chr(13)
response.write "<a href=""index.asp?TP=3&amp;sid="&sid&"&amp;saytk="&saytk&""">其它</a><br/>"&chr(13)
dim TP
TP=trim(Request.Querystring("TP"))
if TP="" or Isnumeric(TP)=False then TP=0
TP=abs(TP)
  dim rs1
  set rs1=Server.CreateObject("ADODB.Recordset")
  if TP<>0 then
  rs1.open"select * from YD_vote where active=0 and balltype="&TP&" order by id desc",ydzqconn,1,1
  else
  rs1.open"select * from YD_vote where active=0 order by id desc",ydzqconn,1,1
  end if
 If not rs1.eof Then 
 Dim PageSize,i
	PageSize=10
	Dim Count,page,pagecount,gopage			
	gopage="index.asp?TP="&TP&"&amp;sid="&sid&"&amp;saytk="&saytk&"&amp;"
	Count=rs1.recordcount	
	page=int(request.QueryString ("page"))
	if page<=0 or page="" then page=1		
	pagecount=(count+pagesize-1)\pagesize	
        if page>pagecount then page=pagecount
	rs1.move(pagesize*(page-1))
	For i=1 To PageSize     						
	If rs1.eof Then Exit For	
response.write"<a href=""ball_z.asp?id="&rs1("id")&"&amp;sid="&sid&"&amp;saytk="&saytk&""">"&fordate2(rs1("balltime1"))&" "
response.write""&rs1("ballvote1")&"VS"&rs1("ballvote2")&"</a><br/>"
rs1.moveNext
 	Next
	if page-pagecount<0 then response.write "<a href="""&gopage&"page="&page+1&""">下一页</a>"&chr(13)
	if page>1 then response.write "<a href="""&gopage&"page="&page-1&""">上一页</a>"&chr(13)

	end if
rs1.close
set rs1=nothing
response.write "<a href=""ball_n.asp?sid="&sid&"&amp;saytk="&saytk&""">未开投注</a>"&chr(13)
response.write "<a href=""ball_y.asp?sid="&sid&"&amp;saytk="&saytk&""">历史投注</a><br/>"&chr(13)
response.write "<a href=""ball_r.asp?sid="&sid&"&amp;saytk="&saytk&""">历史比赛</a>"&chr(13)
response.write "<a href=""ball_h.asp?sid="&sid&"&amp;saytk="&saytk&""">规则说明</a><br/>"&chr(13)

response.write "【高手排行】<br/>"
response.write "<a href=""ball_l.asp?TP=1&amp;sid="&sid&"&amp;saytk="&saytk&""">财神榜单</a>|"
response.write "<a href=""ball_l.asp?TP=2&amp;sid="&sid&"&amp;saytk="&saytk&""">赌神榜单</a><br/>"
ydzqconn.close
set ydzqconn=nothing
conn.close
set conn=nothing
if Instr(","&ballAdmin&",",","&myid&",")>0 Or keys=1 Or keys=2 then
response.write "<a href=""admin_ball.asp?sid="&sid&"&amp;saytk="&saytk&""">球类投注后台管理</a><br/>"
end if
Response.write "<a href=""/bbs/game/?sid="&sid&"&amp;saytk="&saytk&""">返回游戏中心</a><br/><a href=""../show.asp?sid="&sid&"&amp;saytk="&saytk&""">地盘</a>&gt;<a href=""/bbs/index.asp?sid="&sid&"&amp;saytk="&saytk&""">社区首页</a><br/>(c) "&Request.ServerVariables("SERVER_NAME")&"["&String(2-Len(hour(now)),"0") & hour(now) &":"&String(2-len(minute(now)),"0") & minute(now)&"]"
call headsay()
%>