<!--#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")
if balltype="" or IsNumeric(balltype)=False then

response.write"<a href=""admin_balladd.asp?balltype=1&amp;sid="&sid&"&amp;saytk="&saytk&""">增加足球投注</a><br/>"
response.write"<a href=""admin_balladd.asp?balltype=2&amp;sid="&sid&"&amp;saytk="&saytk&""">增加篮球投注</a><br/>"
response.write"<a href=""admin_balladd.asp?balltype=3&amp;sid="&sid&"&amp;saytk="&saytk&""">增加其它投注</a><br/>"
Response.write "<a href=""admin_ball.asp?sid="&sid&"&amp;saytk="&saytk&""">返回球类投注后台</a><br/>"
Response.write "<a href=""index.asp?sid="&sid&"&amp;saytk="&saytk&""">返回球类投注中心</a><br/>"
Response.write "<a href=""../show.asp?sid="&sid&"&amp;saytk="&saytk&""">地盘</a>&gt;<a href=""/bbs/index.asp?sid="&sid&""">社区首页</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()
response.end
end if
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")
dim action
action=request("action")
dim t
t=request("t")
if action<>"" or t=1 then
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
%>
添加新投注成功！
<%else%>
【增加投注项目】<br/>
投注项目类型:
<%
if balltype=1 then 
response.write"足球"
elseif balltype=2 then
response.write"篮球"
else
response.write"其它"
end if
if saytk<>1 then
Response.write "<form name=""form"" method=""post"" action=""admin_balladdd.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;action=ok&amp;t=1"">"%>
<br/>联赛名称:<input emptyok="true" name="balltitle" value=""/><br/>
联赛时间:<input emptyok="true" name="balltime1" value="<%=now()%>"/>
<br/>必填,截止投注参照时间(格式:2009-1-1 00:00:00)<br/>
<%if balltype=1 then%>
让球盘：(格式:曼彻斯特联队1.9(让半球)朴茨茅夫2.0)<br/>
<input emptyok="true" name="ballvote1" size="3"/>
<input emptyok="true" name="ballvotelu1" size="2"/>
<select title="让球盘" name="ballvote" value="(让半球)">
<option value="(让半球)">让半球</option>
<option value="(让平手)">让平手</option>
<option value="(让一球)">让一球</option>
<option value="(让一球半)">让一球半</option>
<option value="(让二球)">让二球</option>
<option value="(让二球半)">让二球半</option>
<option value="(让平手/半球)">让平手/半球</option>
<option value="(让半球/一球)">让半球/一球</option>
<option value="(让一球/球半)">让一球/球半</option>
<option value="(让两球/两球半)">让两球/两球半</option>
</select>
<input emptyok="true" name="ballvote2" size="3"/>
<input emptyok="true" name="ballvotelu2" size="2"/>
<%else%>
让球盘：(格式:(洛杉矶湖人(主)1.93)7.5(新奥尔良黄蜂1.91))<br/>
<input emptyok="true" name="ballvote1" size="3"/>
<input emptyok="true" name="ballvotelu1" size="2"/>
<input emptyok="true" name="ballvote" size="3"/>
<input emptyok="true" name="ballvote2" size="3"/>
<input emptyok="true" name="ballvotelu2" size="2"/>
<%end if%>
<br/>大小盘：(格式:小1.9 大小球2.5 大2.0)<br/>
小<input emptyok="true" name="balldxlu1" size="2"/>
大小球<input emptyok="true" name="balldx" size="2"/>
大<input emptyok="true" name="balldxlu2" size="2"/>
<br/>单双盘：(支持小数)<br/>
单<input emptyok="true" name="balldslu1" size="3"/>
双<input emptyok="true" name="balldslu2" size="3"/>
<%response.write "<input type=""hidden"" name=""action"" value=""ok""/>"
response.write "<input type=""submit"" name=""Submit"" value=""确定增加""></form><br/>"
else%><br/>联赛名称:<input emptyok="true" name="balltitle<%=tt%>" value=""/><br/>
联赛时间:<input emptyok="true" name="balltime1<%=tt%>" value="<%=now()%>"/>
<br/>必填,截止投注参照时间(格式:2009-1-1 00:00:00)<br/>
<%if balltype=1 then%>让球盘：(格式:曼彻斯特联队1.9(让半球)朴茨茅夫2.0)<br/>
<input emptyok="true" name="ballvote1<%=tt%>" size="3"/>
<input emptyok="true" name="ballvotelu1<%=tt%>" size="2"/>
<select title="让球盘" name="ballvote<%=tt%>" value="(让半球)">
<option value="(让半球)">让半球</option>
<option value="(让平手)">让平手</option>
<option value="(让一球)">让一球</option>
<option value="(让一球半)">让一球半</option>
<option value="(让二球)">让二球</option>
<option value="(让二球半)">让二球半</option>
<option value="(让平手/半球)">让平手/半球</option>
<option value="(让半球/一球)">让半球/一球</option>
<option value="(让一球/球半)">让一球/球半</option>
<option value="(让两球/两球半)">让两球/两球半</option>
</select>
<input emptyok="true" name="ballvote2<%=tt%>" size="3"/><input emptyok="true" name="ballvotelu2<%=tt%>" size="2"/>
<%else%>
让球盘：(格式:(洛杉矶湖人(主)1.93)7.5(新奥尔良黄蜂1.91))<br/>
<input emptyok="true" name="ballvote1<%=tt%>" size="3"/><input emptyok="true" name="ballvotelu1<%=tt%>" size="2"/>
<input emptyok="true" name="ballvote<%=tt%>" size="3"/>
<input emptyok="true" name="ballvote2<%=tt%>" size="3"/><input emptyok="true" name="ballvotelu2<%=tt%>" size="2"/>
<%end if%>
<br/>大小盘：(格式:小1.9 大小球2.5 大2.0)<br/>
小<input emptyok="true" name="balldxlu1<%=tt%>" size="2"/>大小球<input emptyok="true" name="balldx<%=tt%>" size="2"/>
大<input emptyok="true" name="balldxlu2<%=tt%>" size="2"/>
<br/>单双盘：(支持小数)<br/>
单<input emptyok="true" name="balldslu1<%=tt%>" size="3"/>
双<input emptyok="true" name="balldslu2<%=tt%>" size="3"/>
<br/><anchor>确定增加<go href="admin_balladd.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>" method="post" accept-charset="utf-8">
<postfield name="balltype" value="<%=balltype%>"/>
<postfield name="balltitle" value="$(balltitle<%=tt%>)"/>
<postfield name="balltime1" value="$(balltime1<%=tt%>)"/>
<postfield name="ballvote" value="$(ballvote<%=tt%>)"/>
<postfield name="ballvote1" value="$(ballvote1<%=tt%>)"/>
<postfield name="ballvote2" value="$(ballvote2<%=tt%>)"/>
<postfield name="ballvotelu1" value="$(ballvotelu1<%=tt%>)"/>
<postfield name="ballvotelu2" value="$(ballvotelu2<%=tt%>)"/>
<postfield name="balldxlu1" value="$(balldxlu1<%=tt%>)"/>
<postfield name="balldxlu2" value="$(balldxlu2<%=tt%>)"/>
<postfield name="balldx" value="$(balldx<%=tt%>)"/>
<postfield name="balldslu1" value="$(balldslu1<%=tt%>)"/>
<postfield name="balldslu2" value="$(balldslu2<%=tt%>)"/>
<postfield name="action" value="ok"/>
</go></anchor><%end if%>
<a href="admin_balladd.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">重新选择</a><br/>
注：以上赔率全部支持小数，请严格按格式填写，否则无法统计
<%end if%><br/>---------------
<!--#include file="fanhui2.asp"-->
<%call headsay()%>