<%'============================================================ ' Copyright 2007-09 燃点真情. All Rights Reserved. ' Last Update: 2008-3-22 13:28 ' ADD:wap.nowtx.cn ' E-Mail: xivn@163.com QQ:531233814 '============================================================ %>

<% dim howtime,howday howtime = DateDiff("n", regtime, Now()) HowDay = int(HowTime/1440) if howday<5 then Response.Write "注册不到5天不能进行取款..." Response.Write "
我的空间
" Response.Write "社区首页
" Response.Write "

" response.end End if dim yibi,Action,centstr yibi=Trim(Request.form("yibi")) centstr=Trim(Request.form("centstr")) IF Request.QueryString("Action")="save" Then if yibi="" or Isnumeric(yibi)=False then Call Error(""&getcent&"数量错误!") end if yibi = abs(int(yibi)) if bank < yibi then Response.Write ""&getcent&"不足!不能为你服务!
" Response.Write "社区银行
" Response.Write "
我的空间
" Response.Write "社区首页
" Response.Write "

" response.end End if IF centmm<>"" then if ubb(centstr) <> ubb(centmm) then Call Error(""&getcent&"密码错误!") end if End if conn.execute("update Users Set bank = bank - "&yibi&" where ID="&myid) conn.execute("update Users Set myjb = myjb + "&yibi&" where ID="&myid) Response.write "取款成功,你已成功取出"&yibi&""&getcent&"!" else response.write "您在银行现有存款"&bank&""&getcent&"
" Response.Write "输入取款数量:" Response.Write "
" if centmm<>"" then Response.Write "
您的"&getcent&"密码:" Response.Write "
" end if Response.Write "
下一步" Response.Write "" Response.Write "" Response.Write "" response.write "
您自带"&getcent&""&myjb&"" end if Response.Write "
社区银行" Response.Write "
我的空间
" Response.Write "社区首页
" Response.Write "

" %>