<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<%
call head()
%>

<%call saycardd(""&getcent&"统一赠送")
dim TP,num
TP=Request("TP")

if TP<>"" then

num=Request("num")

if num="" or IsNumeric(num)=False then
  Call Error("数量无效！")
end if

  conn.Execute("update Users set myjb=myjb+"&num)


 Response.Write num&getcent&"成功送给全部会员<br/>"
else

 Response.Write "赠送"&getcent&"给全部会员<br/>"
 Response.Write "赠送数量：<br/>"
if saytk>1 then
Response.write "<form name=""form"" method=""post"" action=""centall.asp?sid="&sid&"&amp;saytk="&saytk&""">"
 Response.Write "<input name=""num"" format='*N' maxlength='10' value=""""/>"
response.write "<input type=""hidden"" name=""tp"" value=""1""/>"
response.write "<input type=""submit"" name=""Submit"" value=""确认赠送""></form><br/>"
else
 Response.Write "<input name=""num"&tt&""" format='*N' maxlength='10' value=""""/>"
 Response.Write "<br/><anchor>确认赠送"
 Response.Write "<go href=""centall.asp?sid="&sid&"&amp;saytk="&saytk&""" method=""post"" accept-charset=""utf-8"">"
 Response.Write "<postfield name=""num"" value=""$(num"&tt&")""/>"
 Response.Write "<postfield name=""TP"" value=""1""/>"
 Response.Write "</go></anchor><br/>"end if
end if
conn.close
set conn=nothing
Response.write "<br/>为了节省系统资源，只赠送但不发送内线通知"%>
<!--#include file="fanhui.asp"-->
<%response.write""
call headsay()%>
