shida_bank.asp

银行+服务插件 for Dvbbs

	Rs.Open sql,ConnPlus,3,1
	if rs.recordcount=0 then setAlert("没有找到任何结果。") end if
%>
<br>
<div align="center">欢迎使用电子银行服务</div>
<br>
<table cellspacing=1 cellpadding=3 align=center class=tableborder1 style="width:97%">
  <form action="shida_bank.asp?menu=5" method="post">
  <tr>
    <td class=tablebody2>　　查找用户：
        <input name="username" type="text" id="username" value="<%=theuser%>">
      <input name="mohu" type="checkbox" id="mohu" value="yes" <% if themohu="yes" then response.write "checked"%>>
        模糊查找
        <input type="submit" name="Submit" value="查找"></td>
  </tr></form>
</table>
<table cellspacing=1 cellpadding=3 align=center style="width:90%">
  <% for i = 1 to rs.recordcount
%>
  <form action="shida_bank_do.asp" method="post">
    <tr class=tablebody2> 
      <td align="right" class=tablebody2><font color="#FF0000"><%= i %></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>
  <% 
Rs.MoveNext
next %>
</table>
<%
Rs.close
end sub

sub menu3()
%>
<br>
<div align="center">欢迎来到社区服务中心,你现有的现金<font color="#FF0000"><%=shida_bank(7)%></font>元。我们将给您提供优质的服务,请选择您的服务项目吧!</div>
<br>
<table cellspacing=1 cellpadding=3 align=center class=tableborder1 style="width:97%">
<%if cint(fuwu_setting(1))=1 then%>
  <form action="shida_bank_do.asp" method="post">
    <tr > 
      <td align=left height=30 class=tablebody1><b>购买经验值</b> 请输入您要购买多少经验值: <input name=str id="str"> <input type=submit value=购买 name=submit>
        单价:<font color="#FF0000"><%=shida_fuwu(1)%></font>元 　　　　我的经验值: <font color="#FF0000"><%= shida_bank(17) %> 
        <input name="action" type="hidden" id="action" value="buyfuwu">
        <input name="lei" type="hidden" id="lei" value="1">
        </font></td>
    </tr>
  </form>
<%end if%>
<%if cint(fuwu_setting(0))=1 then%>
  <form action="shida_bank_do.asp" method="post">
    <tr > 
      <td align=left height=30 class=tablebody1><b>购买魅力值</b> 请输入您要购买多少魅力值: <input name=str id="str"> <input type=submit value=购买 name=submit class=tablebody1>
        单价:<font color="#FF0000"><%=shida_fuwu(0)%></font>元 　　　　我的魅力值: <font color="#FF0000">&nbsp;<%= shida_bank(18) %> 
        <input name="action" type="hidden" id="action" value="buyfuwu">
        <input name="lei" type="hidden" id="lei" value="0">
        </font></td>
    </tr>
  </form>
<%end if%>
<%if cint(fuwu_setting(3))=1 then%>
  <form action="shida_bank_do.asp" method="post">
    <tr > 
      <td align=left height=30 class=tablebody1><b>购买发贴数</b> 请输入您要购买多少发贴数: <input name=str id="str"> <input type=submit value=购买 name=submit>
        单价:<font color="#FF0000"><%=shida_fuwu(3)%></font>元 　　　　我的发贴数: <font color="#FF0000">&nbsp;<%= shida_bank(19) %> 
        <input name="action" type="hidden" id="action" value="buyfuwu">
        <input name="lei" type="hidden" id="lei" value="3">
        </font></td>
    </tr>
</form>
<%end if%>
<%if cint(fuwu_setting(8))=1 then%>
<form action="shida_bank_do.asp" method="post">
    <tr > 
      <td align=left height=30 class=tablebody1><b>购买精华数</b> 请输入您要购买多少精华数: 
        <input name=str id="str"> <input type=submit value=购买 name=submit>
        单价:<font color="#FF0000"><%=shida_fuwu(8)%></font>元 　　　　我的精华数: <font color="#FF0000">&nbsp;<%= shida_bank(21) %> 
        <input name="action" type="hidden" id="action" value="buyfuwu">
        <input name="lei" type="hidden" id="lei" value="8">
        </font></td>
    </tr>
  </form>
<%end if%>
<%if cint(fuwu_setting(2))=1 then%>
  <form action="shida_bank_do.asp" method="post">
    <tr > 
      <td align=left height=30 class=tablebody1><b>购买<font color="#FF0000">威望值</font></b> 请输入您要购买多少威望值: <input name=str id="str"> 
        <input type=submit value=购买 name=submit>
        单价:<font color="#FF0000"><%=shida_fuwu(2)%></font>元 　　　　我的威望值: <font color="#FF0000">&nbsp;<%= shida_bank(20) %> 
        <input name="action" type="hidden" id="action" value="buyfuwu">
        <input name="lei" type="hidden" id="lei" value="2">
        </font></td>
    </tr>
  </form>
<%end if%>
<%if cint(fuwu_setting(6))=1 then%>
<form action="shida_bank_do.asp" method="post">
  <tr > 
    <td align=left height=30 class=tablebody1><b><font color="#FF0000">K人</font></b>(魅力-100，经验-100)，请输入您要K的人的ID: 
      <input name=str id="str"> <input type=submit value=购买 name=submit>
      单价:<font color="#FF0000"><%=shida_fuwu(6)%></font>元 　<font color="#FF0000"> 
      <input name="action" type="hidden" id="action" value="buyfuwu">
      <input name="lei" type="hidden" id="lei" value="6">
      </font></td>
  </tr></form>
<%end if%>
<%if cint(fuwu_setting(7))=1 then%>
  <form name="form8" method="post" action="shida_bank_do.asp">          
<tr><td align=left height=30 class=tablebody1><b>删除已读短消息</b>  每次删除将得到银行 <font color=red><%=shida_fuwu(7)%>元×短信息条数 </font> 环保奖金  <input type=submit value=删除 name="b1" onClick="javascript:{if(confirm('您确定执行删除操作吗?')){return true;}return false;}">
        (<font color="#FF0000">注意：此功能将删除你的所有已读邮件，不可恢复！</font>) <font color="#FF0000">
        <input name="action" type="hidden" id="action" value="buyfuwu">
        <input name="lei" type="hidden" id="lei" value="7">
        </font></td>
    </tr>          
<input type=hidden value="8" name=menu>
</form>
<%end if%>    
<%if cint(fuwu_setting(4))=1 then%>
  <tr> 
    <td align=left height=30 class=tablebody2> <b>公告发布</b> 公告发布每次需要<font color="#FF0000"><%=shida_fuwu(4)%></font>元</td>
  </tr>
  <tr> 
    <td align=center class=tablebody2><form action="shida_bank_do.asp" method="post">
        <table cellspacing=1 cellpadding=3 class=tableborder1 style="width:70%">
		<tr> 
      <th colspan="2">公告发布</th>
    </tr>
    <tr> 
      <td width="25%" class=tablebody2>发布版面:</td>
      <td align=left class=tablebody1> 
        <% set rs=server.createobject("adodb.recordset") 
sql="select boardid,boardtype from Dv_Board"          
   rs.open sql,conn,1,1          
%>
        <select name="boardid" size="1">
          <option value="0">论坛首页</option>
          <%
	do while not rs.eof
        response.write "<option value='"+CStr(rs("BoardID"))+"'>"+rs("Boardtype")+"</option>"+chr(13)+chr(10)
	rs.movenext
	loop
	rs.close
%>
        </select> </td>
    </tr>
    <tr> 
      <td width="25%" valign=top class=tablebody2>标题：</td>
      <td width="75%" class=tablebody1> <input type=text name=title size=36> </td>
    </tr>
    <tr> 
      <td width="25%" valign=top class=tablebody2>内容：</td>
      <td width="75%" class=tablebody1> <textarea cols=70 rows=6 name="content"></textarea><input name="action" type="hidden" id="action" value="buyfuwu"> 
        <input name="lei" type="hidden" id="lei" value="4"> 
      </td>
    </tr>
    <tr> 
      <td colspan="2" align=center class=tablebody2><input type="submit" name="Submit" value="发布公告"> 
              <input type="reset" name="Submit2" value="重新填写"></td>
    </tr>
  </table>
      </form></td></tr>
<%end if%>
<%if cint(fuwu_setting(5))=1 then%>
  <tr> 
    <td height=25 class=tablebody2><b>短消息群发</b> 每次<font color=red><%=shida_fuwu(5)%></font>元</td>
  </tr>
  <tr> 
    <td align=center height=43 class=tablebody2> <form action="shida_bank_do.asp" method="post">
        <table cellspacing=1 cellpadding=3 class=tableborder1 style="width:70%">
          <tr> 
            <th colspan="2">短消息群发</th>
          </tr>
          <tr> 
            <td width="30%" class=tablebody2>消息标题</td>
            <td width="70%" class=tablebody1> <input type="text" name="title" size="50"> 
            </td>
          </tr>
          <tr> 
            <td width="30%" class=tablebody2>接收方选择</td>
            <td width="70%" class=tablebody1> <select name=str size=1 id="str">
                <option value="1">所有在线用户</option>
                <option value="2">所有贵宾</option>
                <option value="3">所有版主</option>
                <option value="4">所有管理员</option>
              </select> </td>
          </tr>
          <tr> 
            <td width="30%" height="20" valign="top" class=tablebody2> <p>消息内容</p></td>
            <td width="70%" height="20" class=tablebody1> <textarea name="content" cols="70" rows="10" wrap="VIRTUAL"></textarea> 
            </td>
          </tr>
          <tr> 
            <td colspan=2 align=center height="23" class=tablebody2><input type="submit" name="Submit" value="发送消息"> 
              <input type="reset" name="Submit2" value="重新填写"> <font color="#FF0000"> 
              <input name="action" type="hidden" id="action" value="buyfuwu">
              <input name="lei" type="hidden" id="lei" value="5">
              </font> </td>
          </tr>
        </table>
      </form></td>
  </tr>
<%end if%>
</table>
<%
end sub

sub menu4()
%>
<br>
<br>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1 style="width:97%">
  <tr> 
    <th colspan=4 height=20 align=left>银行管理中心---银行基本设置</th>
  </tr>
  <tr> 
    <td align=center colspan=4 class=tablebody1 height=10></td>
  </tr>
  <form name="form2" method="post" action="shida_bank_do.asp">
    <tr> 
      <td align=right width="20%" class=tablebody2>存款的利息：</td>
      <td align=left width="30%" class=tablebody1><input name=savelilv id="savelilv" value="<%=shida_bank(0)%>">
        %</td>
      <td align=right width="20%" class=tablebody2>存款服务：</td>
      <td align=center width="30%" class=tablebody1> <input type=radio name="bank_setting_3" value=1 <%if cint(bank_setting(3))=1 then%>checked<%end if%>>
        开通&nbsp; <input type=radio name="bank_setting_3" value=0 <%if cint(bank_setting(3))=0 then%>checked<%end if%>>
        关闭&nbsp; </td>
    </tr>
    <tr> 
      <td align=right class=tablebody2>贷款的利息：</td>
      <td align=left class=tablebody1><input name=daylilv id="daylilv" value="<%=shida_bank(1)%>">
        %</td>
      <td align=right class=tablebody2>贷款服务：</td>
      <td align=center class=tablebody1> <input type=radio name="bank_setting_4" value=1 <%if cint(bank_setting(4))=1 then%>checked<%end if%>>
        开通&nbsp; <input type=radio name="bank_setting_4" value=0 <%if cint(bank_setting(4))=0 then%>checked<%end if%>>
        关闭&nbsp; </td>
    </tr>
    <tr> 
      <td align=right class=tablebody2>银行的储备资金：</td>
      <td align=left class=tablebody1><input name=chubei value="<%=shida_bank(3)%>">
        元</td>
      <td align=right class=tablebody2>取款服务：</td>
      <td align=center class=tablebody1> <input type=radio name="bank_setting_5" value=1 <%if cint(bank_setting(5))=1 then%>checked<%end if%>>
        开通&nbsp; <input type=radio name="bank_setting_5" value=0 <%if cint(bank_setting(5))=0 then%>checked<%end if%>>
        关闭&nbsp; </td>
    </tr>
    <tr> 
      <td align=right class=tablebody2>转帐的手续费：</td>
      <td align=left class=tablebody1><input name=zhuanlilv id="zhuanlilv" value="<%=shida_bank(2)%>">
        %</td>
      <td align=right class=tablebody2>转帐服务：</td>
      <td align=center class=tablebody1> <input type=radio name="bank_setting_6" value=1 <%if cint(bank_setting(6))=1 then%>checked<%end if%>>
        开通&nbsp; <input type=radio name="bank_setting_6" value=0 <%if cint(bank_setting(6))=0 then%>checked<%end if%>>
        关闭&nbsp; </td>
    </tr>
    <tr> 
      <td align=right class=tablebody2>最长贷款天数：</td>
      <td align=left class=tablebody1><input name=maxday id="maxday" value="<%=shida_bank(4)%>">
        天</td>
      <td align=right class=tablebody2><font color=red>银行状态：</font></td>
      <td align=center class=tablebody1> <input type=radio name="bankopen" value=1 <%if shida_bank(5) then%>checked<%end if%>> 
        <font color=red>营业</font>&nbsp; <input type=radio name="bankopen" value=0 <%if not shida_bank(5) then%>checked<%end if%>> 
        <font color=red>关闭</font>&nbsp; </td>
    </tr>
    <tr> 
      <td align=right class=tablebody2>计息起始天数：</td>
      <td align=left class=tablebody1><input name="StartLixiDay" value="<%=shida_bank(6)%>">
        天</td>
      <td align=right class=tablebody2>营业时间</td>
      <td align=center class=tablebody1> <input type=radio name="bank_setting_2" value=0 <%if cint(bank_setting(2))=0 then%>checked<%end if%>>
        全天候&nbsp; <input type=radio name="bank_setting_2" value=1 <%if cint(bank_setting(2))=1 then%>checked<%end if%>>
        定时&nbsp; <input name="bank_setting_0" value="<%=bank_setting(0)%>" size=10> 
      </td>
    </tr>
    <tr> 
      <td align=right class=tablebody2>默认信誉系数：</td>
      <td align=left class=tablebody1><input name=bank_setting_1 id="bank_setting_1" value="<%=bank_setting(1)%>">
        倍</td>
      <td align=right class=tablebody2>&nbsp;</td>
      <td align=center class=tablebody1>&nbsp;</td>
    </tr>
    <tr> 
      <td align=center colspan=4 class=tablebody1><input type=submit value=修改 name=submit> 
        <input type=reset value=重设 name=submit> <input name="action" type="hidden" id="action" value="editbank"></td>
    </tr>
  </form>
  <tr> 
    <td align=center colspan=4 class=tablebody1 height=10></td>
  </tr>
  <form name="form2" method="post" action="shida_bank_do.asp">
    <tr>