z_bank_clientevents.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #include file="include/config.asp" -->
<!-- #include file="INCLUDE/skin.asp" -->
<!--#include file="include/conn.asp"-->
<!--#include file="z_bank_data.asp"-->
<!--#include file="z_bank_const.asp"-->
<%
'=========================================================
' File: bank_ClientEvents.asp
' Version:1.0
' Date: 2003-7-20
' Script Written by 冰语，倚天电子，http://et8.126.com
'=========================================================
' Copyright (C) 2002,2003 et8.126.Com. All rights reserved.
' Web: ,http://et8.126.com
' Email: [e-mail]
'=========================================================
dim Pcount
dim page
dim total,bankuser
BankUser = trim(request("bankuser"))
if not isnumeric(request("page")) or request("page")="" then
    page=1
else
    page=cint(request("page"))
end if

if session("joekoe_online_admin")<>"joekoe_admin" then
    if not FoundBankUserID and not FoundBankUser then
        founderr=true
        Errmsg=Errmsg+"<br>"+"<li>你还没有在该银行开户，若想单查该银行的用户，请到该银行开户，若想查某用户在哪些银行开户，请选所有银行，然后输入用户名。</li>"
    end if
end if
if session("joekoe_online_admin")<>"joekoe_admin" then
   if  BankID=0 and BankUser="" then
      founderr=true
      Errmsg=Errmsg+"<br>"+"<li>不允许查询所有银行，请键入具体要查询的名字。</li>"
   end if
end if
if request("action")="events" and not OpenEventsLog then
    if not IsBankMaster and session("joekoe_online_admin")<>"joekoe_admin" then
            founderr=true
        Errmsg=Errmsg+"<br>"+"<li>该银行没有开放事件记录。</li>"
    end if
end if
if FoundErr then
    tit_fir="<a href='z_bank_index.asp'>社区银行</a>"
    tit="银行错误信息"
    call web_head(1,0,2,0,0)
        call bank_error()
        call web_end(0)
else
    if request("action")="delEvents" then
        tit_fir="<a href='z_bank_index.asp'>社区银行</a>"
        tit="删除事件记录"
        call web_head(1,0,2,0,0)
        call delEvents()
    elseif request("action")="freezeuser" then
        tit_fir="<a href='z_bank_index.asp'>社区银行</a>"
        tit="冻结用户"
        call web_head(1,0,2,0,0)
        call FreezeUser()
    elseif request("action")="events" then
        tit_fir="<a href='z_bank_index.asp'>社区银行</a>"
        tit="客户事件"
        call web_head(1,0,2,0,0)
        call BankEvents()
    else
        tit_fir="<a href='z_bank_index.asp'>社区银行</a>"
        tit="用户查询"
        call web_head(1,0,2,0,0)
        call search()
    end if
    if FoundErr then
        call bank_error()
    end if
    call web_end(0)
end if

sub BankEvents()
  if format_power(login_mode,0)="admin" then
      csql="select * from bankevent order by eventid desc"
  elseif IsBankMaster then
      csql="select * from bankevent where bankid="&BankID&" order by eventid desc"
  else
      csql="select * from bankevent where bankid="&BankID&" and name1='"&login_username&"' order by eventid desc"
  end if
  set crs=server.CreateObject("adodb.recordset")
  crs.Open csql,cjconn,1,1
  if crs.BOF and crs.EOF then
      founderr=true
      Errmsg=Errmsg+"<br>"+"<li>没有找到您要查询的内容。"
  else
%>
<div align="center">
  <center>
<table cellpadding=0 border=1 width="98%" bordercolor=<%response.write web_var(web_color,3)%> height="27"><tr>
  <td class=bg_3 height="23">
  <p align="center">以下是您所查询到的记录。<%if format_power(login_mode,0)="admin" and BankID=0 then Response.Write "如果想知道事件属哪个银行，把址栏上的bankid=?改为该银行的ＩＤ，也可先进入所想查的银行，再点事件记录。"%></td></tr></table>
  </center>
</div>
<form action=z_bank_ClientEvents.asp?bankid=<%=BankID%>&action=delEvents method=post>
<div align="center">
  <center>
<TABLE cellPadding=3  border="1" bordercolor=<%response.write web_var(web_color,3)%> width="98%" style="border-collapse: collapse" cellspacing="0">
<TR valign=middle>
<Th height=25 width=60>事件ID</Th>
<Th width=120>操作人</Th>
<Th width=120>接受人（银行）</Th>
<Th width=120>事件</Th>
<Th width=120>交易金</Th>
<Th width=*>操作时间</Th>
<%if format_power(login_mode,0)="admin" then Response.Write "<Th width=40>管理</Th>"%>
</TR>
<%
      crs.PageSize = 20
      total = crs.recordcount
      Pcount = crs.pagecount
      if page < 1 then page = 1
      if page > Pcount then page = Pcount
      crs.move (page-1)*crs.pagesize
      ii = 0
      do while not crs.eof and ii < crs.pagesize
%>
  <TR> 
    <TD align=middle class=tablebody2 width=60><%=crs(0)%>　</TD> 
    <TD align=middle class=tablebody1 width=120><%=crs(2)%>　</TD> 
    <TD align=middle class=tablebody2  width=120><%=crs(3)%><%if crs(3)="" then Response.Write bankname%>　</TD> 
    <TD align=middle class=tablebody1 width=120><%=crs(4)%>　</TD>
    <TD align=middle class=tablebody2  width=120><%=crs(5)%>　</TD> 
    <TD align=middle class=tablebody1 width=*><%=crs(6)%>　</TD>
    <%if format_power(login_mode,0)="admin" then Response.Write "<TD align=middle class=tablebody2  width=40><input type=checkbox name=del value="&crs(0)&"></TD>"%>
</TR> 
<%
          ii = ii+1
          crs.movenext
      loop
      Response.Write "</table>"
      call PageFooter
      if format_power(login_mode,0)="admin" then
          Response.Write "<br><table cellpadding=0 cellspacing=0 border=0  align=center><tr><td><input type=submit name=s value=删除 onclick=""return confirm('是否删除所选定的记录？');""> 清空该银行的记录：<input type=checkbox name=delAll value=1>　</td></tr></table>"
      end if
      Response.Write "</form>"
  end if
  crs.Close
  set crs = nothing
end sub

sub search()
  dim Bank
  if format_power(login_mode,0)="admin" and bankid=0 and BankUser="" then
      Bank=""
  elseif bankID > 0 and BankUser<>"" then
      Bank=" where u.bankid="&BankID&" and u.name='"&BankUser&"' "
  elseif bankID=0 and BankUser<>"" then
      Bank=" where u.name='"&BankUser&"' "
  else
      Bank=" where u.bankid="&BankID&" "
  end if
  if format_power(login_mode,0)="admin"  and request("vt")="DelUser" then
      csql="select b.bankname,u.bankuserid,u.name,u.CurrDeposit,u.TimeDeposit,u.PaymentForGoods,u.freeze from bankuser u inner join bank b on b.bankid=u.bankid and b.bankmaster<>u.name "&Bank&" order by u.bankuserid desc"
  else
      csql="select b.bankname,u.bankuserid,u.name,u.CurrDeposit,u.TimeDeposit,u.PaymentForGoods,u.freeze from bankuser u inner join bank b on b.bankid=u.bankid "&Bank&" order by u.bankuserid desc"
  end if
  set crs=server.CreateObject("adodb.recordset")
  crs.Open csql,cjconn,1,1
  if crs.BOF and crs.EOF then
      founderr=true
      Errmsg=Errmsg+"<br>"+"<li>没有找到您要查询的内容。"
  else
%>
  </center>
</div>
<div align="center">
  <center>
<table cellpadding=0 border=2 width="98%" bordercolor=<%response.write web_var(web_color,3)%> height="30"><tr>
  <td height="26" class=bg_3>
  <p align="center">以下是您所查询到的记录</td></tr></table>
  </center>
</div>
<form action=z_bank_ClientEvents.asp?bankid=<%=Bankid%>&action=freezeuser&vt=<%=request("vt")%> method=post>
<div align="center">
  <center>
<TABLE cellPadding=3 class=bg_3 width="98%" border="2" bordercolor=<%response.write web_var(web_color,3)%> style="border-collapse: collapse" cellspacing="0">
<TR valign=middle>
<Th height=25 width=120>所在银行</Th>