銀行網(wǎng)站應(yīng)用方案
發(fā)表時間：2023-08-19 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：
[摘要]這篇文章介紹銀行網(wǎng)站應(yīng)用設(shè)計，包括銀行線上查詢系統(tǒng)、信用卡線上查詢系統(tǒng)等應(yīng)用的點子、設(shè)計實例、以及詳細(xì)解說，讓您快速地設(shè)計出各種銀行的網(wǎng)站應(yīng)用。銀行網(wǎng)站資料庫應(yīng)用銀行使用網(wǎng)站資料庫，可以透過Inte...
這篇文章介紹銀行網(wǎng)站應(yīng)用設(shè)計，包括銀行線上查詢系統(tǒng)、信用卡線上查詢系統(tǒng)等應(yīng)用的點子、設(shè)計實例、以及詳細(xì)解說，讓您快速地設(shè)計出各種銀行的網(wǎng)站應(yīng)用。
銀行網(wǎng)站資料庫應(yīng)用
銀行使用網(wǎng)站資料庫，可以透過Internet、或Intranet提供以下的應(yīng)用∶
* 銀行線上查詢*
* 信用卡線上查詢*
右上角標(biāo)示*的應(yīng)用，本節(jié)將提供設(shè)計的范例，并詳加解說。
執(zhí)行本章資料庫的范例，所用的資料庫可為Microsoft Access、Microsoft SQL Server、或Text檔案（讀者可修改成其他支援ODBC的資料庫，詳見1-6-5節(jié)），須於NT安裝IIS 3.0，并於「控制臺」中的「ODBC」，新建一個名稱為「BookSamp」的資料來源，驅(qū)動程式為「Microsoft Access Driver」、「SQL Server」、或「Microsoft Text 驅(qū)動程式」。詳見附錄 范例磁片。
1
銀行線上查詢系統(tǒng)
「銀行線上查詢系統(tǒng)」，可以透過Internet，提供查詢銀行存款等多項的功能。
透過Internet，連線上「銀行線上查詢系統(tǒng)」，輸入帳戶號碼與密碼，即可查詢銀行存款馀額、存提款明細(xì)表、外幣匯率、轉(zhuǎn)帳、存貸款利率、貸款，以及金融卡遺失申報等金融服務(wù)。
設(shè)計實例
讓我們執(zhí)行一個實例。
( 范例 data3.asp 銀行馀額線上查詢系統(tǒng)
若要查詢資料，於用戶端使用瀏覽器，瀏覽本書所附安裝於網(wǎng)站伺服器的data3.asp，於「帳戶號碼」處輸入帳戶號碼，譬如輸入帳戶號碼123456789後，按下「馀額線上查詢」按鈕，即可顯示查詢的結(jié)果如下，包括帳戶號碼、姓名、銀行馀額∶
輸入錯誤的帳戶號碼時，必須告訴人家，譬如輸入帳戶號碼123451234，顯示「找不到」如下∶
設(shè)計實例詳細(xì)解說
建立資料表
首先使用Microsoft Access、Microsoft SQL Server 、Text檔案、或任何一種支援ODBC的資料庫，建立一個資料表Bank。
於欄名ID、NAME、MONEY，分別輸入帳戶號碼、姓名、銀行馀額的資料。
使用Microsoft Access建立一個資料表Bank，如下∶
或使用Microsoft SQL Server建立一個資料表Bank，如下∶
或使用Text檔案建立一個資料表Bank，如下∶
設(shè)計輸入表單
接著，設(shè)計輸入表單form，以讓客戶輸入帳戶號碼ID1，按下「馀額線上查詢」按鈕submit時，即使用POST的方式將輸入資料傳送到網(wǎng)站伺服器，并執(zhí)行於「form action=...」所設(shè)定的data3.asp檔案（與form為同一個ASP檔案），程式碼如下∶
<form action="data3.asp" method="post">
帳戶號碼: <INPUT TYPE=TEXT VALUE="123456789" NAME=ID1 SIZE=10>
<INPUT TYPE=submit VALUE="馀額線上查詢" name="Action">
</form>
網(wǎng)站伺服器執(zhí)行data3.asp檔案，首先經(jīng)由Request.Form("ID1")取得客戶所輸入的帳戶號碼ID1，若ID1非空白時，表示為表單輸入所呼叫執(zhí)行。
查詢資料庫
使用「Server.CreateObject」建立連線的物件，并使用「Open」開啟待存取查詢資料庫BookSamp。
再使用SELECT的SQL指令查詢資料庫的資料，設(shè)定SQL指令，查詢?yōu)镮D符合帳戶號碼Request.Form("ID1")的資料，下個「Execute」指令，即可開始執(zhí)行存取查詢資料庫的動作，并將查詢結(jié)果儲存到RecordSets物件RS。
程式碼如下∶
<%
IF Request.Form("ID1") THEN
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "BookSamp","sa",""
SQL = "SELECT ID,NAME,MONEY FROM Bank WHERE ID=" & Request.Form("ID1")
Set RS = Conn.Execute(SQL)
接著，要顯示查詢的結(jié)果了。
首先，由「 IF RS.EOF THEN ...」判斷是否找到ID為帳戶號碼Request.Form("ID1")的資料，若RS.EOF為TRUE，則顯示「找不到此帳戶號碼」。
程式碼，如下∶
查詢結(jié)果:<br>
<% IF RS.EOF THEN %>
<FONT COLOR="#FF0000">找不到此帳戶號碼 <% =Request.Form("ID1") %> !</FONT>
若找到ID為帳戶號碼Request.Form("ID1")的資料，則顯示查詢的結(jié)果，包括帳戶號碼、姓名、銀行馀額，分別由RecordSets物件的RS(0)、RS(1) 、RS(2) 取得。
RS.Fields.Count表示RecordSets物件的欄位數(shù)，由「For i = 0 to RS.Fields.Count - 1」取得RS(i) 各欄位的資料。配合<TABLE>表格的HTML語法，將結(jié)果填入表格的各欄位當(dāng)中。
若還有下一筆資料，使用RS.MoveNext移到下一筆的位置。
程式碼，如下∶
<% ELSE %>
<FONT COLOR="#0000FF">
帳戶號碼 <% =Request.Form("ID1") %> <BR>
<% =RS(1) %>, 您的銀行馀額為 <% =RS(2) %> !<BR>
</FONT>
<TABLE COLSPAN=8 CELLPADDING=5 BORDER=1>
<TR>
<TD BGCOLOR="#800000"><FONT>帳戶號碼</FONT></TD>
<TD BGCOLOR="#800000"><FONT>姓名</FONT></TD>
<TD BGCOLOR="#800000"><FONT>銀行馀額</FONT></TD>
</TR>
<% Do While Not RS.EOF %>
<TR>
<% For i = 0 to RS.Fields.Count - 1 %>
<TD BGCOLOR="f7efde" VALIGN=TOP><FONT COLOR="#0000"><% = RS(i) %></FONT></TD>
<% Next %>
</TR>
<%
RS.MoveNext
Loop
RS.Close
Conn.Close
%>
</TABLE>
<% END IF %>
最後，使用RS.Close關(guān)閉RecordSet，使用Conn.Close關(guān)閉資料庫。
全部的程式碼，如下∶
<HTML>
<HEAD>
<TITLE>銀行馀額線上查詢系統(tǒng)</TITLE>
<META HTTP-EQUIV="content-type" CONTENT="text/html;charset=big5">
</HEAD>
<CENTER>
<BODY BGCOLOR=#FFFFFF>
<FONT SIZE=+2 COLOR="#0000FF">銀行馀額線上查詢系統(tǒng)</FONT>
<%
IF Request.Form("ID1") THEN
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "BookSamp","sa",""
SQL = "SELECT ID,NAME,MONEY FROM Bank WHERE ID=" & Request.Form("ID1")
Set RS = Conn.Execute(SQL)
%>
<HR>
查詢結(jié)果:<br>
<% IF RS.EOF THEN %>
<FONT COLOR="#FF0000">找不到此帳戶號碼 <% =Request.Form("ID1") %> !</FONT>
<% ELSE %>
<FONT COLOR="#0000FF">
帳戶號碼 <% =Request.Form("ID1") %> <BR>
<% =RS(1) %>, 您的銀行馀額為 <% =RS(2) %> !<BR>
</FONT>
<TABLE COLSPAN=8 CELLPADDING=5 BORDER=1>
<TR>
<TD BGCOLOR="#800000"><FONT>帳戶號碼</FONT></TD>
<TD BGCOLOR="#800000"><FONT>姓名</FONT></TD>
<TD BGCOLOR="#800000"><FONT>銀行馀額</FONT></TD>
</TR>
<% Do While Not RS.EOF %>
<TR>
<% For i = 0 to RS.Fields.Count - 1 %>
<TD BGCOLOR="f7efde" VALIGN=TOP><FONT COLOR="#0000"><% = RS(i) %></FONT></TD>
<% Next %>
</TR>
<%
RS.MoveNext
Loop
RS.Close
Conn.Close
%>
</TABLE>
<% END IF %>
<HR>
<% END IF %>
<BR>
<form action="data3.asp" method="post">
帳戶號碼: <INPUT TYPE=TEXT VALUE="123456789" NAME=ID1 SIZE=10>
<INPUT TYPE=submit VALUE="馀額線上查詢" name="Action">
</form>
<HR>
</CENTER>
</BODY>
</HTML>
2
信用卡線上查詢系統(tǒng)
「信用卡線上查詢系統(tǒng)」，可以透過Internet，提供線上查詢信用卡等多項的功能。
透過Internet，連線上「信用卡線上查詢系統(tǒng)」，輸入信用卡號碼，即可查詢信用卡消費明細(xì)表、消費額度、累積點數(shù)，以及促銷活動、線上購物、信用卡申請、信用卡申報遺失等服務(wù)。
設(shè)計實例
讓我們執(zhí)行一個實例。
( 范例data9.asp 信用卡消費線上查詢
若要查詢資料，於用戶端使用瀏覽器，瀏覽本書所附安裝於網(wǎng)站伺服器的data1.asp，於「信用卡號」處輸入信用卡號，譬如信用卡號1234567890123456後，按下「查詢消費明細(xì)」按鈕，即可顯示查詢的結(jié)果如下，包括日期、姓名、消費明細(xì)、消費金額∶
若無消費時，譬如輸入信用卡號1234567890000000，顯示「無消費」如下∶
設(shè)計實例詳細(xì)解說
建立資料表
首先使用Microsoft Access、Microsoft SQL Server 、Text檔案、或任何一種支援ODBC的資料庫，建立一個資料表CreditCard。
於欄名DATE、ID、NAME、DETAILS、QTY、AMOUNT分別輸入消費日期、信用卡號、姓名、消費明細(xì)、數(shù)量、消費金額的資料。
使用Microsoft Access建立一個資料表CreditCard，如下∶∶
或使用Microsoft SQL Server建立一個資料表CreditCard，如下∶
或使用Text檔案建立一個資料表CreditCard，如下∶
設(shè)計輸入表單
接著，設(shè)計輸入表單form，以讓查詢者輸入信用卡號ID1，按下「查榜」按鈕submit時，即使用POST的方式將輸入資料傳送到網(wǎng)站伺服器，并執(zhí)行於「form action=...」所設(shè)定的data9.asp檔案（與form為同一個ASP檔案），程式碼如下∶
<form action="data9.asp" method="post">
信用卡號: <INPUT TYPE=TEXT VALUE="1234567890123456" NAME=ID1 SIZE=16>
<INPUT TYPE=submit VALUE="查詢消費明細(xì)" name="Action">
</form>
網(wǎng)站伺服器執(zhí)行data9.asp檔案，首先經(jīng)由Request.Form("ID1")取得查詢者所輸入的信用卡號ID1，若ID1非空白時，表示為表單輸入所呼叫執(zhí)行。
查詢資料庫
使用「Server.CreateObject」建立連線的物件，并使用「Open」開啟待存取查詢資料庫BookSamp。
再使用SELECT的SQL指令查詢資料庫的資料，設(shè)定SQL指令，查詢?yōu)镮D符合信用卡號Request.Form("ID1")的資料，下個「Execute」指令，即可開始執(zhí)行存取查詢資料庫的動作，并將查詢結(jié)果儲存到RecordSets物件RS。
程式碼如下∶
<%
IF Request.Form("ID1") THEN
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "BookSamp","sa",""
SQL = "SELECT DATE,NAME,DETAILS,AMOUNT FROM CreditCard WHERE ID=" & Request.Form("ID1")
Set RS = Conn.Execute(SQL)
%>
接著，要顯示查詢的結(jié)果了。
首先，由「 IF RS.EOF THEN ...」判斷是否找到ID為信用卡號Request.Form("ID1")的消費資料，若RS.EOF為TRUE，則顯示「信用卡號...無消費!」。
程式碼，如下∶
信用卡消費查詢結(jié)果:<br>
<% IF RS.EOF THEN %>
<FONT COLOR="#0000FF">信用卡號 <% =Request.Form("ID1") %> 無消費!</FONT>
若ID為信用卡號Request.Form("ID1")的消費資料，則顯示查詢的結(jié)果，包括日期、姓名、消費明細(xì)、消費金額，分別由RecordSets物件的RS(0)、RS(1) 、RS(2)、RS(3) 取得。
RS.Fields.Count表示RecordSets物件的欄位數(shù)，由「For i = 0 to RS.Fields.Count - 1」取得RS(i) 各欄位的資料。配合<TABLE>表格的HTML語法，將結(jié)果填入表格的各欄位當(dāng)中。
總計消費金額的計算，RS(3)為消費金額，由「IF i = 3 THEN... TOTAL = TOTAL + RS(3)」將所有RS(3) 的消費金額加總，以得到總計的和。
若還有下一筆資料，使用RS.MoveNext移到下一筆的位置。
程式碼，如下∶
<% ELSE %>
<FONT COLOR="#FF0000">
信用卡號 <% =Request.Form("ID1") %> <BR>
<% = RS(1) %> 先生(小姐), 您上個月的消費明細(xì)表, 詳見下表:<BR>
</FONT>
<TABLE COLSPAN=8 CELLPADDING=5 BORDER=1>
<TR>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>日期</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>姓名</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>消費明細(xì)</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>消費金額</FONT></TD>
</TR>
<% TOTAL=0 %>
<% Do While Not RS.EOF %>
<TR>
<% For i = 0 to RS.Fields.Count - 1 %>
<% IF i = 3 THEN %>
<TD BGCOLOR="f7efde" ALIGN=RIGHT><FONT COLOR="#0000">$ <% = RS(i) %></FONT></TD>
<% Else %>
<TD BGCOLOR="f7efde" VALIGN=TOP><FONT COLOR="#0000"><% = RS(i) %></FONT></TD>
<% END IF %>
<% Next %>
</TR>
<%
TOTAL = TOTAL + RS(3)
RS.MoveNext
Loop
RS.Close
Conn.Close
%>
</TABLE>
<BR>
總計: $ <% = TOTAL %>
<% END IF %>
最後，使用RS.Close關(guān)閉RecordSet，使用Conn.Close關(guān)閉資料庫。
全部的程式碼，如下∶
<HTML>
<HEAD>
<TITLE>信用卡消費 線上查詢系統(tǒng)</TITLE>
<META HTTP-EQUIV="content-type" CONTENT="text/html;charset=big5">
</HEAD>
<CENTER>
<BODY BGCOLOR=#FFFFFF>
<FONT SIZE=+2 COLOR="#0000FF">信用卡消費 線上查詢系統(tǒng)</FONT>
<%
IF Request.Form("ID1") THEN
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "BookSamp","sa",""
SQL = "SELECT DATE,NAME,DETAILS,AMOUNT FROM CreditCard WHERE ID=" & Request.Form("ID1")
Set RS = Conn.Execute(SQL)
%>
<HR>
信用卡消費查詢結(jié)果:<br>
<% IF RS.EOF THEN %>
<FONT COLOR="#0000FF">信用卡號 <% =Request.Form("ID1") %> 無消費!</FONT>
<% ELSE %>
<FONT COLOR="#FF0000">
信用卡號 <% =Request.Form("ID1") %> <BR>
<% = RS(1) %> 先生(小姐), 您上個月的消費明細(xì)表, 詳見下表:<BR>
</FONT>
<TABLE COLSPAN=8 CELLPADDING=5 BORDER=1>
<TR>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>日期</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>姓名</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>消費明細(xì)</FONT></TD>
<TD ALIGN=CENTER BGCOLOR="#800000"><FONT>消費金額</FONT></TD>
</TR>
<% TOTAL=0 %>
<% Do While Not RS.EOF %>
<TR>
<% For i = 0 to RS.Fields.Count - 1 %>
<% IF i = 3 THEN %>
<TD BGCOLOR="f7efde" ALIGN=RIGHT><FONT COLOR="#0000">$ <% = RS(i) %></FONT></TD>
<% Else %>
<TD BGCOLOR="f7efde" VALIGN=TOP><FONT COLOR="#0000"><% = RS(i) %></FONT></TD>
<% END IF %>
<% Next %>
</TR>
<%
TOTAL = TOTAL + RS(3)
RS.MoveNext
Loop
RS.Close
Conn.Close
%>
</TABLE>
<BR>
總計: $ <% = TOTAL %>
<% END IF %>
<HR>
<% END IF %>
<BR>
<form action="data9.asp" method="post">
信用卡號: <INPUT TYPE=TEXT VALUE="1234567890123456" NAME=ID1 SIZE=16>
<INPUT TYPE=submit VALUE="查詢消費明細(xì)" name="Action">
</form>
<HR>
</CENTER>
</BODY>
</HTML>
