<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<%call head()
Call saycardb("社区银行")
dim howtime,howday
  howtime = DateDiff("n", regtime, Now())
   HowDay  = int(HowTime/1440)
if howday<5 then
 Response.Write "注册不到5天不能进入银行..."
 Response.write "<a href=""/bbs/show.asp?saytk="&saytk&"&amp;sid="&sid&""">空间</a>>>"
 Response.write "<a href=""/bbs/index.asp?saytk="&saytk&"&amp;sid="&sid&""">社区</a>>>"
 Response.write "<a href=""/index.asp?saytk="&saytk&"&amp;sid="&sid&""">首页</a><br/>(c) "&Request.ServerVariables("SERVER_NAME")&"["&String(2-Len(hour(now)),"0") & hour(now) &":"&String(2-len(minute(now)),"0") & minute(now)&"]"
Call headsay()
 response.end
 End if 

dim Action
  IF  Request.QueryString("Action")="open" Then
  IF myjb<200 then
 Response.Write "开户失败！您的"&getcent&"不足200！<br/>"
else
  conn.execute("update Users Set ydzq=1,myjb=myjb-200 where ID="&myid)
if myid<>0 then
mz="[url=/bbs/uinfo.asp?id="&myid&"&amp;saytk="&saytk&"&sid=[sid]]"&myni&"[/url]"
else
mz="游客"
end if
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"成功的在(url=/bbs/bankcl.asp?saytk="&saytk&"&sid=[sid])社区银行(/url)开户')")
  conn.close
  set conn=Nothing

 Response.Write "恭喜！您的银行账户开户成功！"
 Response.Write "<br/><a href='bankcl.asp?saytk="&saytk&"&amp;sid="&sid&"'>马上进入银行</a><br/>"
end if
 Response.write "<a href=""/bbs/show.asp?saytk="&saytk&"&amp;sid="&sid&""">空间</a>>>"
 Response.write "<a href=""/bbs/index.asp?saytk="&saytk&"&amp;sid="&sid&""">社区</a>>>"
 Response.write "<a href=""/index.asp?saytk="&saytk&"&amp;sid="&sid&""">首页</a><br/>(c) "&Request.ServerVariables("SERVER_NAME")&"["&String(2-Len(hour(now)),"0") & hour(now) &":"&String(2-len(minute(now)),"0") & minute(now)&"]"
Call headsay()
 response.end
 End if 
  if ydzq=0 then
 Response.Write "您还没有开户，开户手续费为200"&getcent&"，要开通银行账户吗？<br/>"
 Response.Write "<a href='bankcl.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;Action=open'>我要开户</a><br/>"
 Response.Write "<a href='index.asp?saytk="&saytk&"&amp;sid="&sid&"'>迟点再说</a><br/>"

 Response.write "<a href=""/bbs/show.asp?saytk="&saytk&"&amp;sid="&sid&""">空间</a>>>"
 Response.write "<a href=""/bbs/index.asp?saytk="&saytk&"&amp;sid="&sid&""">社区</a>>>"
 Response.write "<a href=""/index.asp?saytk="&saytk&"&amp;sid="&sid&""">首页</a><br/>(c) "&Request.ServerVariables("SERVER_NAME")&"["&String(2-Len(hour(now)),"0") & hour(now) &":"&String(2-len(minute(now)),"0") & minute(now)&"]"
Call headsay()
 response.end
 End if
Function CreatedTextFiles(FileName,body)
'On Error Resume Next
If InStr(FileName, ":") = 0 Then FileName = Server.MapPath(FileName)
	Dim oStream
	Set oStream = CreateObject("ADODB.Stream")
	oStream.Type = 2 
	oStream.Mode = 3 
	oStream.Charset = "GB2312"
	oStream.Open
	oStream.Position = oStream.Size
	oStream.WriteText body
	oStream.SaveToFile FileName, 2
	oStream.Close
	Set oStream = Nothing
	If Err.Number <> 0 Then Err.Clear
	End Function
'================================================
dim cont_file,path_File
path_File= Server.MapPath("/index.inc")
cont_file="[url=/bbs/uinfo.asp?id="&myid&"&sid=@@sid@@]"&myni&"[/url]去了[url=/bbs/bankcl.asp?sid=@@sid@@]社区银行[/url]"
Call CreatedTextFiles(path_File,cont_file)
if myid<>0 then
mz="[url=/bbs/uinfo.asp?id="&myid&"&amp;saytk="&saytk&"&sid=[sid]]"&myni&"[/url]"
else
mz="游客"
end if
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"进入了(url=/bbs/bankcl.asp?saytk="&saytk&"&sid=[sid])社区银行(/url)')")
response.write "客户:"&myni&"<br/>"
response.write "现有存款:"&bank&"<br/>"
response.write "手头自带:"&myjb&"<br/>"
if bankjie<>0 then
response.write "尚欠贷款:"&bankjie&"<br/>"
end if
response.write "共有资产:"&myjb+bank&getcent&"<br/>"
if bankjie<>0 then
response.write "<a href=""bankdk.asp?saytk="&saytk&"&amp;sid="&sid&""">我要贷款</a> "
response.write "<a href=""bankhk.asp?saytk="&saytk&"&amp;sid="&sid&""">我要还贷</a><br/>"
else
response.write "<a href=""bankdk.asp?saytk="&saytk&"&amp;sid="&sid&""">我要贷款</a> "
response.write "暂无贷款<br/>"
End if
response.write "<a href=""bankin.asp?saytk="&saytk&"&amp;sid="&sid&""">我要存款</a> "
response.write "<a href=""bankout.asp?saytk="&saytk&"&amp;sid="&sid&""">我要取款</a><br/>"
response.write "<a href=""bank.asp?saytk="&saytk&"&amp;sid="&sid&""">"&getcent&"过户</a> "
Response.Write "<a href='hotman.asp?TP=2&amp;saytk="&saytk&"&amp;sid="&sid&"'>财富排行榜</a><br/>"
Response.Write "<a href='centsedit.asp?saytk="&saytk&"&amp;sid="&sid&"'>[安全]设置"&getcent&"密码</a><br/>"
Response.write "<a href=""paycent.asp?saytk="&saytk&"&amp;sid="&sid&""">【VIP】货币兑换</a><br/>"&chr(13)
%>
贷款利息：<%=ubb(centlxdk)%>%<br/>
当前存款利率：<br/>
1万<%=getcent%>以下利率：<%=ubb(centlx)%>%<br/>
1万-5万<%=getcent%>利率：<%=ubb(centlx1)%>%<br/>
5万-30万<%=getcent%>利率：<%=ubb(centlx2)%>%<br/>
30万-50万<%=getcent%>利率：<%=ubb(centlx3)%>%<br/>
50万-100万<%=getcent%>利率：<%=ubb(centlx4)%>%<br/>
100万-300万<%=getcent%>利率：<%=ubb(centlx5)%>%<br/>
大于300万<%=getcent%>利率：<%=ubb(centlx6)%>%<br/>
<%
response.write "<br/>计息方法：贷款，存款按进入社区结息，每天结一次算一天利息"
%>
<!--#include file="fanhui.asp"-->
<%call headsay()%>