<%'============================================================
' 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 Action
IF Request.QueryString("Action")="open" Then
IF myjb<200 then
Response.Write "开户失败！您的"&getcent&"不足200！"
else
conn.execute("update Users Set ydzq=1,myjb=myjb-200 where ID="&myid)
conn.close
set conn=Nothing
Response.Write "恭喜！您的银行账户开户成功！"
Response.Write "
马上进入银行
"
end if
Response.Write "
我的空间
"
Response.Write "社区首页
"
Response.Write ""
response.end
End if
if ydzq=0 then
Response.Write "您还没有开户，开户手续费为200"&getcent&"，要开通银行账户吗？
"
Response.Write "我要开户
"
Response.Write "迟点再说
"
Response.Write "
我的空间
"
Response.Write "社区首页
"
Response.Write ""
response.end
End if
response.write "客户:"&myni&"
"
response.write "现有存款:"&bank&"
"
response.write "手头自带:"&myjb&"
"
if bankjie<>0 then
response.write "尚欠贷款:"&bankjie&"
"
end if
response.write "共有资产:"&myjb+bank&getcent&"
"
if bankjie<>0 then
response.write "我要贷款 "
response.write "我要还贷
"
else
response.write "我要贷款 "
response.write "暂无贷款
"
End if
response.write "我要存款 "
response.write "我要取款
"
response.write ""&getcent&"过户 "
Response.Write "财富排行榜
"
Response.Write "[安全]设置"&getcent&"密码
"
%>
贷款利息：<%=ubb(centlxdk)%>%
当前存款利率：
1万<%=getcent%>以下利率：<%=ubb(centlx)%>%
1万-5万<%=getcent%>利率：<%=ubb(centlx1)%>%
5万-30万<%=getcent%>利率：<%=ubb(centlx2)%>%
30万-50万<%=getcent%>利率：<%=ubb(centlx3)%>%
50万-100万<%=getcent%>利率：<%=ubb(centlx4)%>%
100万-300万<%=getcent%>利率：<%=ubb(centlx5)%>%
大于300万<%=getcent%>利率：<%=ubb(centlx6)%>%
<%
response.write "
计息方法：贷款，存款按进入社区结息，每天结一次算一天利息"
Response.Write "
我的空间
"
Response.Write "社区首页
"
Response.Write ""
%>