<!--#include file="../Inc.asp"-->
<!--#include file="../ydzq.asp"-->
<!--#include file="conn.asp"-->

<%'=============================
call head()
Call cardgame("增加球类投注",yanse12)


if Instr(","&ballAdmin&",",","&myid&",") > 0 Or keys=1 Or keys=2 then
else
call error("权限不足！")
end if
dim balltype
balltype = request("balltype")
balltype=abs(balltype)

dim balltitle,ballvote,ballvote1,ballvote2,ballvotelu1,ballvotelu2,balldx,balldxlu1,balldxlu2,balldslu1,balldslu2,balltime1

balltitle = request("balltitle")
balltime1 = request("balltime1")
ballvote = request("ballvote")
ballvote1 = request("ballvote1")
ballvote2 = request("ballvote2")
ballvotelu1 = request("ballvotelu1")
ballvotelu2 = request("ballvotelu2")
balldxlu1 = request("balldxlu1")
balldxlu2 = request("balldxlu2")
balldslu1 = request("balldslu1")
balldslu2 = request("balldslu2")
balldx = request("balldx")
if balltype="" or balltitle="" or balltime1="" or ballvote="" or ballvote1="" or ballvote2="" or ballvotelu1="" or ballvotelu2="" or balltime1="" then
  Call Error("除了大小盘和单双盘，各项都不能为空！")
  end if
  
  if IsDate(balltime1)=False then
  call error("联赛时间格式不对！")
  end if
'-----------------------------------
if balltype=2 then
if instr(ballvote,"-")>0 then 
call error("篮球的让球只能是正数！")
end if
end if
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from YD_vote",ydzqconn,1,2
rs.addnew
rs("balltype")=balltype
rs("balltitle")=balltitle 
rs("ballvote")=ballvote 
rs("ballvote1")=ballvote1 
rs("ballvote2")=ballvote2 
rs("ballvotelu1")=ballvotelu1 
rs("ballvotelu2")=ballvotelu2 

if balldx<>"" then
rs("balldxlu1")=balldxlu1 
rs("balldxlu2")=balldxlu2 
rs("balldx")=balldx 
end if
if balldxlu1<>"" then
rs("balldslu1")=balldslu1 
rs("balldslu2")=balldslu2 
end if

rs("balltime1")=balltime1
rs.update
rs.close
set rs=nothing
%>
添加新投注成功！

<!--#include file="fanhui2.asp"-->
<%call headsay()%>