?<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<card title="会员负数管理"><p>
<%dim TP
TP=request("TP")
  if TP="1" then
dim book,gettxt
book=request("book")

if book="" or Isnumeric(book)=False then
  Call Error("选择类型出错！")
book=clng(book)
  end if

if book=0 then
gettxt="Where myjb<0"
 conn.Execute"update users set myjb=0 "&gettxt&""
response.write"所有"&getcent&"为负数的会员归零成功！"
else
gettxt="Where myml<0 or mytl<0 or mych<0 or myzl<0"
 conn.Execute"update users set myml=0,mytl=0,mych=0,myzl=0 "&gettxt&""
response.write"所有体魅才智为负数的会员归零成功！"
end if

 else

response.write"所有会员负数归零:<br/><select name='book"&tt&"' value='0'>"
response.write"<option value='0'>金币归零</option>"
response.write"<option value='1'>体魅才智归零</option>"
response.write"</select><br/>"
response.write"<anchor>[确定归零]<go href='adminff.asp?saytk="&saytk&"&amp;sid="&sid&"' method='post' accept-charset='utf-8'>"

response.write"<postfield name='book' value='$(book"&tt&")'/>"
response.write"<postfield name='TP' value='1'/>"
response.write"</go></anchor>"
end if%>
<!--#include file="fanhui.asp"-->
</p></card>
</w