⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 bank.asp

📁 JSP ACCESS版的论坛源码 深圳盈盈通
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/char.asp"-->
<!--#include file="inc/stats.asp"-->
<!--#include file="inc/grade.asp"-->

<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0">
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb_2312">
<link rel="stylesheet" type="text/css" href="forum.css">
<title><%=ForumName%>--社区银行</title>
</head>
<!--#include file="inc/theme.asp"-->
<body bgcolor="#ffffff" alink="#333333" vlink="#333333" link="#333333" topmargin="0" leftmargin="0">
<br>
<TABLE border=0 width="95%" align=center>
  <TBODY>
  <TR>
    <TD vAlign=top width=30%><a href="<%=HostURL%>"><img border="0" src="<%=logo%>"></a></TD>
    <TD valign=middle align=top>
&nbsp;&nbsp;<img src="<%=picurl%>closedfold.gif" border=0>&nbsp;&nbsp;<a href="index.asp"><%=ForumName%></a><br>
&nbsp;&nbsp;<img src="<%=picurl%>bar.gif" border=0 width=15 height=15><img src="<%=picurl%>openfold.gif" border=0>&nbsp;&nbsp;社区银行</a>
      </TD></TR></TBODY></TABLE> 

<br>
<%
if membername = "" then 
Errmsg=Errmsg+"<br>"+"<li>请先<a href=login.asp>登陆!</a>"
call error
response.end
end if
%>
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td bgColor=<%=Tablebackcolor%>>
      <table width="100%" border="0" cellspacing="1" cellpadding="4">
        <tr>
          <td bgColor=<%=Tabletitlecolor%>>我想要存款:</td>
          <td bgColor=<%=Tabletitlecolor%>>我想要取款:</td>
          <td bgColor=<%=Tabletitlecolor%>>我想要转帐:</td>
        </tr>
        <tr align="center" valign="top"> 
          <form action="bankedit.asp"><td bgcolor="#ffffff" height="2"> 
            数目:<input type="text" name="save" maxlength="10" size="10">&nbsp; <input type="submit" value="确 定"><input type="reset" name="Submit2" value="重 写"></td></form>
          <form action="bankedit.asp"><td bgcolor="#ffffff" height="2"> 
            数目:<input type="text" name="m_output" maxlength="10" size="10">&nbsp;<input type="submit" value="确 定"><input type="reset" name="Submit2" value="重 写"></td></form>
          <td bgcolor="#ffffff" height="2">赞不开放!:)人气太差了:(</td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<br>
<%=lvzhe_user_info(membername)%>
<br>
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td bgColor=<%=Tablebackcolor%>>
      <table width="100%" border="0" cellspacing="1" cellpadding="4">
        <tr>
          <td bgColor=<%=Tabletitlecolor%> colspan=2>社区10大存户:</td>
        </tr>
<%
set rs = server.createobject("Adodb.recordset")
sql = "select top 10 * from [user] order by bankwealth desc "
rs.open sql,conn,1,1
i = i + 1
do while not rs.eof
%>
        <tr>
          <td bgcolor="#ffffff" width="18%">姓名:<%=rs("username")%></td>
          <td bgcolor="#ffffff" width="82%">存款:<%=rs("bankwealth")%></td>
        </tr>
<%
i = i + 1
if i > 11 then exit do
rs.movenext
loop
rs.close
set rs= nothing
%>
      </table>
    </td>
  </tr>
</table>

<!--#include file="footer.asp"-->
</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -