<%'============================================================
' 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 ""
%>