shida_bank.asp

银行+服务插件 for Dvbbs

<!--#include file=conn.asp-->
<!--#include file=connPlus.asp-->
<!-- #include file=inc/const.asp -->
<!-- #include file=plus/inc/site.asp -->
<%
If Dvbbs.userid=0 Then Dvbbs.AddErrCode(6):Dvbbs.Showerr() end if
Dvbbs.LoadTemplates("plus")
ConnectionDatabase()
%>
<!-- #include file=shida_bank_config.asp -->
<%
Dvbbs.stats=menu(themenu)
Dvbbs.Nav()
Dvbbs.Head_var 0,0,"社区银行","shida_bank.asp"

call main()

Dvbbs.ActiveOnline()
Dvbbs.footer()
sub main()
%>
<table border=0 align=center cellpadding=0 cellspacing=0 class=tableborder2>
  <tr> 
    <th height="25"> <% Call bank_menu()%></th>
  </tr>
  <tr> 
    <td class=tablebody2> <%select case themenu
	case 0
	Call menu0()
	case 2
	Call menu2()
	case 3
	Call menu3()
	case 4
	Call menu4()
	case 5
	Call menu5()
	case 6
	Call menu6()
	case 7
	Call menu7()
	end select
	jycopyright()
	%> <br> </td>
  </tr>
</table>
<%
end sub

sub menu0()
%>
<br>
<div align="center">欢迎来到电子银行管理您的财产</div>
<br>
<table cellspacing=1 cellpadding=3 align=center class=tableborder1 style="width:97%">
  <tr> 
    <td align=center height=26 class=tablebody2>银行目前的日利率是 <font color="#FF0000"><%=shida_bank(0)%>%</font>，贷款利率是 <font color="#FF0000"><%=shida_bank(1)%>%</font>，存款利率从第<font color="#FF0000"><%=shida_bank(6)%></font>天起计算，当前银行储备资金为 <font color="#FF0000"><%=shida_bank(3)%></font>元<br>
      贷款最长期限为 <font color="#FF0000"><%=shida_bank(4)%></font> 天（到期将强制执行）；每次存款、取款自动结算利息</td>
  </tr>
  <%if shida_bank(13) then%>
  <tr> 
    <td align=center height=26 class=tablebody1><font color="#FF0000">您的银行账户已经被冻结,您不能进行取款、转账、贷款操作</font></td>
  </tr>
  <%
end if
if shida_bank(5) then
%>
  <% If cint(bank_setting(3))=1 Then %>
  <form name="form1" method="post" action="shida_bank_do.asp">
    <tr> 
      <td align=left height=30 class=tablebody1><%if shida_bank(7)>0 then%> <font color=blue>√</font> <%else%> <font color=red>×</font> <%end if%>
        　　　　<font face=Wingdings>v</font> 存款： 
        <input name=savemoney id="savemoney"> <input type=submit value=存入 name=submit>
        你的现金为：<font color="#FF0000"><%=shida_bank(7)%></font> 元　存款利率为：<font color="#FF0000"><%=shida_bank(0)%>%</font> <input name="action" type="hidden" id="action" value="save"></td>
    </tr>
  </form>
  <% End If %>
  <% If cint(bank_setting(5))=1 Then %>
  <form name="form2" method="post" action="shida_bank_do.asp">
    <tr> 
      <td align=left height=30 class=tablebody1><%if shida_bank(13) or shida_bank(8)<=0 or cint(bank_setting(1))=0 then%> <font color=red>×</font> <%else%> <font color=blue>√</font> <%end if%>
        　　　　<font face=Wingdings>v</font> 取款： 
        <input name=getmoney id="getmoney"> <input type=submit value=取出 name=submit>
        你现在的存款为：<font color="#FF0000"><%=shida_bank(8)%></font> 元　你的利息为：<font color="#FF0000"> 
        <% if shida_bank(15)<shida_bank(6) then%>
        0 
        <%else%>
        <%=clng(formatnumber(shida_bank(8))*formatnumber(shida_bank(0))*formatnumber(shida_bank(15)))/100%> 
        <%end if%>
        </font> 元 
        <%if shida_bank(8)>0 then%>
        你的存款天数：<font color="#FF0000"><%=shida_bank(15)%></font> 天 
        <%end if%> <input name="action" type="hidden" id="action" value="get"></td>
    </tr>
  </form>
  <% End If %>
  <% If cint(bank_setting(6))=1 Then %>
  <form name="form3" method="post" action="shida_bank_do.asp">
    <tr> 
      <td align=left height=30 class=tablebody1><%if shida_bank(13) or shida_bank(8)=0 or shida_bank(9)>0 then%> <font color=red>×</font> <%else%> <font color=blue>√</font> <%end if%>
        　　　　<font face=Wingdings>v</font> 转账： 
        <input name=givemoney id="givemoney">
        元 给 
        <input name=giveto id="giveto"> <input type=submit value=转入 name=submit>
        转账手续费：<font color="#FF0000"><%=shida_bank(2)%>%</font> <input name="action" type="hidden" id="action" value="give"></td>
    </tr>
  </form>
  <% End If %>
  <% If cint(bank_setting(4))=1 Then %>
  <form name="form4" method="post" action="shida_bank_do.asp">
    <tr> 
      <td align=left height=30 class=tablebody1><%if shida_bank(13) or shida_bank(9)>0 then%> <font color=red>×</font> <%else%> <font color=blue>√</font> <%end if%>
        　　　　<font face=Wingdings>v</font> 贷款： 
        <input name=daimoney id="daimoney"> <input type=submit value=贷款 name=submit>
        你的贷款额度为：<font color="#FF0000"><%=formatnumber(shida_bank(14))*formatnumber(shida_bank(7))%></font> 元　贷款利率为：<font color="#FF0000"><%=shida_bank(1)%>%</font> <input name="action" type="hidden" id="action" value="dai"></td>
    </tr>
  </form>
  <% End If %>
  <%if shida_bank(9)>0 then%>
  <form name="form5" method="post" action="shida_bank_do.asp">
    <tr> 
      <td align=left height=30 class=tablebody1>　　　　还清贷款： 
        <input type=submit value=还款 name=submit>
        你现在的贷款额为：<font color="#FF0000"><%=shida_bank(9)%></font>　你贷款的利息为：<font color="#FF0000"> 
        <%if shida_bank(9)=0 then %>
        0 
        <%else%>
        <%=clng((formatnumber(shida_bank(9))*(formatnumber(shida_bank(1))/100))*formatnumber(shida_bank(16)))%></font> 元 你的贷款天数：<font color="#FF0000"><%=shida_bank(16)%></font> 天 
        <%end if%> <input name="action" type="hidden" id="action" value="back"></td>
    </tr>
  </form>
  <%end if%>
  <%else%>
  <tr> 
    <td align=center height=25 class=tablebody1><font face=Wingdings color=blue>v</font><font color=red> 
      银行结余/调整，暂时停止营业，如有问题请与管理员联系 </font><font face=Wingdings color=blue>v</font></td>
  </tr>
  <%end if%>
  <tr> 
    <td align=center height=25 class=tablebody2><font color=gray>银行营业时间： 
      <% if cint(bank_setting(6))=0 then%>
      全天营业 
      <%else%>
      <%=bank_opentime(0)%>:00～<%=bank_opentime(1)%>:00 
      <%end if%>
      </font></td>
  </tr>
</table>
<%
end sub

sub menu2()
%>
<br>
<div align="center">欢迎来到电子银行管理您的财产</div>
<br>
<table cellspacing=1 cellpadding=3 align=center class=tableborder1 style="width:97%">
  <tr> 
    <td class=tablebody2><%	
dim ipageCurrent,ThispageSize,ipageCount,iRecordsShow,m,n
sql="Select username,savemoney From bank where savemoney>0 order By savemoney Desc"
Set Rs=Server.CreateObject("ADODB.Recordset")
	if Request.QueryString("page")="" Then
		ipageCurrent=1
	else
		ipageCurrent=CInt(Request.QueryString("page"))
	end if
ThispageSize=100
m=0
n=(ipageCurrent-1)*ThispageSize
Rs.pageSize=ThispageSize
Rs.cacheSize=ThispageSize
Rs.Open sql,ConnPlus,3,1
ipageCount=Rs.pageCount
if ipageCount>0 Then
response.write "　　页码:　"
dim i
For i=1 to ipageCount
response.write "<a href=?menu=2&page="&i&">"&i&"</a>&nbsp;"
Next
end if
%></td>
  </tr>
</table>
<% If rs.recordcount>0 Then %>
<table cellspacing=1 cellpadding=3 align=center style="width:90%">
  <tr class=tablebody2> 
    <% 
Rs.Absolutepage=ipageCurrent
iRecordsShow=0				
Do While iRecordsShow<ThispageSize And Not Rs.Eof
n=n+1
%>
    <td width="4%" align="right" class=tablebody2><font color="#FF0000"><%= n %></font></td>
    <td width="11%" class=tablebody2><a href="dispuser.asp?name=<%= Rs("username") %>" target="_blank"><%= Rs("username") %></a></td>
    <td width="8%" align="right" class=tablebody2><font color="#0000FF"><%= Rs("savemoney") %></font></td>
    <td width="2%" class=tablebody2>&nbsp;</td>
    <% 
m=m+1
if m=4 then
m=0
response.write "</tr><tr class=tablebody2>"
end if
iRecordsShow=iRecordsShow+1
Rs.MoveNext
Loop %>
  </tr>
</table>
<% End If %>
<%
Rs.close
end sub

sub menu5()
if request.form("username")>"" then
	Call menu5_find()
	exit sub
end if
%>
<br>
<div align="center">欢迎使用电子银行服务</div>
<br>
<table cellspacing=1 cellpadding=3 align=center class=tableborder1 style="width:97%">
  <tr> 
    <td class=tablebody2><%	
dim ipageCurrent,ThispageSize,ipageCount,iRecordsShow,n
sql="Select * From bank where savemoney>0 order By username asc"
Set Rs=Server.CreateObject("ADODB.Recordset")
	if Request.QueryString("page")="" Then
		ipageCurrent=1
	else
		ipageCurrent=CInt(Request.QueryString("page"))
	end if
ThispageSize=20
n=(ipageCurrent-1)*ThispageSize
Rs.pageSize=ThispageSize
Rs.cacheSize=ThispageSize
Rs.Open sql,ConnPlus,3,1
ipageCount=Rs.pageCount
if ipageCount>0 Then
response.write "　　页码:　"
dim i
For i=1 to ipageCount
response.write "<a href=?menu=5&page="&i&">"&i&"</a>&nbsp;"
Next
end if
%>
      (按用户名排序)</td>
  </tr>
  <form action="shida_bank.asp?menu=5" method="post">
  <tr>
    <td class=tablebody2>　　查找用户：
      <input name="username" type="text" id="username">
      <input name="mohu" type="checkbox" id="mohu" value="yes">
        模糊查找
        <input type="submit" name="Submit" value="查找"></td>
  </tr></form>
</table>
<% If rs.recordcount>0 Then %>
<table cellspacing=1 cellpadding=3 align=center style="width:90%">
  <% 
Rs.Absolutepage=ipageCurrent
iRecordsShow=0				
Do While iRecordsShow<ThispageSize And Not Rs.Eof
n=n+1
%>
  <form action="shida_bank_do.asp" method="post">
    <tr class=tablebody2> 
      <td align="right" class=tablebody2><font color="#FF0000"><%= n %></font></td>
      <td class=tablebody2><a href="dispuser.asp?name=<%= Rs("username") %>" target="_blank"><%= Rs("username") %></a> </td>
      <td class=tablebody2>存款: 
        <input name="savemoney" type="text" value="<%= Rs("savemoney") %>" size="9" maxlength="9"></td>
      <td class=tablebody2>贷款: 
        <input name="daikuang" type="text" value="<%= Rs("daikuang") %>" size="9" maxlength="9"></td>
      <td class=tablebody2>贷款额度 
        <input name="dkedu" type="text" value="<%= Rs("dkedu") %>" size="5" maxlength="3">
        倍(社区现金的倍数)</td>
      <td class=tablebody2>冻结: 
        <select name="lock" id="lock">
          <option value="0">否</option>
          <option value="1"<% If Rs("lock") Then response.write " selected"%>>是</option>
        </select> </td>
      <td class=tablebody2> <input type="submit" name="Submit" value="修改"> <input type="reset" name="Submit" value="重置"> 
        <input name="username" type="hidden" id="username" value="<%= Rs("username") %>"> 
        <input name="action" type="hidden" id="action" value="edituser"></td>
    </tr>
  </form>
  <% 
iRecordsShow=iRecordsShow+1
Rs.MoveNext
Loop %>
</table>
<% End If
Rs.close
end sub

sub menu5_find()
dim theuser,themohu,i
	theuser=request.form("username")
	themohu=request.form("mohu")
	if themohu="yes" then
		sql="Select * From bank where username like '%"&theuser&"%'"
		else
		sql="Select * From bank where username='"&theuser&"'"		
	end if
	Set Rs=Server.CreateObject("ADODB.Recordset")