六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

銀行網站應用方案

[摘要]這篇文章介紹銀行網站應用設計,包括銀行線上查詢系統、信用卡線上查詢系統等應用的點子、設計實例、以及詳細解說,讓您快速地設計出各種銀行的網站應用。銀行網站資料庫應用銀行使用網站資料庫,可以透過Inte...

這篇文章介紹銀行網站應用設計,包括銀行線上查詢系統、信用卡線上查詢系統等應用的點子、設計實例、以及詳細解說,讓您快速地設計出各種銀行的網站應用。

銀行網站資料庫應用
銀行使用網站資料庫,可以透過Internet、或Intranet提供以下的應用∶
* 銀行線上查詢*
* 信用卡線上查詢*
右上角標示*的應用,本節將提供設計的范例,并詳加解說。
執行本章資料庫的范例,所用的資料庫可為Microsoft Access、Microsoft SQL Server、或Text檔案(讀者可修改成其他支援ODBC的資料庫,詳見1-6-5節),須於NT安裝IIS 3.0,并於「控制臺」中的「ODBC」,新建一個名稱為「BookSamp」的資料來源,驅動程式為「Microsoft Access Driver」、「SQL Server」、或「Microsoft Text 驅動程式」。詳見附錄 范例磁片。

1
銀行線上查詢系統
「銀行線上查詢系統」,可以透過Internet,提供查詢銀行存款等多項的功能。
透過Internet,連線上「銀行線上查詢系統」,輸入帳戶號碼與密碼,即可查詢銀行存款馀額、存提款明細表、外幣匯率、轉帳、存貸款利率、貸款,以及金融卡遺失申報等金融服務。
設計實例
讓我們執行一個實例。
( 范例 data3.asp 銀行馀額線上查詢系統
若要查詢資料,於用戶端使用瀏覽器,瀏覽本書所附安裝於網站伺服器的data3.asp,於「帳戶號碼」處輸入帳戶號碼,譬如輸入帳戶號碼123456789後,按下「馀額線上查詢」按鈕,即可顯示查詢的結果如下,包括帳戶號碼、姓名、銀行馀額∶ 
輸入錯誤的帳戶號碼時,必須告訴人家,譬如輸入帳戶號碼123451234,顯示「找不到」如下∶ 

設計實例詳細解說
建立資料表
首先使用Microsoft Access、Microsoft SQL Server 、Text檔案、或任何一種支援ODBC的資料庫,建立一個資料表Bank。
於欄名ID、NAME、MONEY,分別輸入帳戶號碼、姓名、銀行馀額的資料。
使用Microsoft Access建立一個資料表Bank,如下∶ 
或使用Microsoft SQL Server建立一個資料表Bank,如下∶ 
或使用Text檔案建立一個資料表Bank,如下∶ 

設計輸入表單
接著,設計輸入表單form,以讓客戶輸入帳戶號碼ID1,按下「馀額線上查詢」按鈕submit時,即使用POST的方式將輸入資料傳送到網站伺服器,并執行於「form action=...」所設定的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>
網站伺服器執行data3.asp檔案,首先經由Request.Form("ID1")取得客戶所輸入的帳戶號碼ID1,若ID1非空白時,表示為表單輸入所呼叫執行。
查詢資料庫
使用「Server.CreateObject」建立連線的物件,并使用「Open」開啟待存取查詢資料庫BookSamp。
再使用SELECT的SQL指令查詢資料庫的資料,設定SQL指令,查詢為ID符合帳戶號碼Request.Form("ID1")的資料,下個「Execute」指令,即可開始執行存取查詢資料庫的動作,并將查詢結果儲存到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)
接著,要顯示查詢的結果了。
首先,由「 IF RS.EOF THEN ...」判斷是否找到ID為帳戶號碼Request.Form("ID1")的資料,若RS.EOF為TRUE,則顯示「找不到此帳戶號碼」。
程式碼,如下∶
查詢結果:<br>
<% IF RS.EOF THEN %>
<FONT COLOR="#FF0000">找不到此帳戶號碼 <% =Request.Form("ID1") %> !</FONT>
若找到ID為帳戶號碼Request.Form("ID1")的資料,則顯示查詢的結果,包括帳戶號碼、姓名、銀行馀額,分別由RecordSets物件的RS(0)、RS(1) 、RS(2) 取得。
RS.Fields.Count表示RecordSets物件的欄位數,由「For i = 0 to RS.Fields.Count - 1」取得RS(i) 各欄位的資料。配合<TABLE>表格的HTML語法,將結果填入表格的各欄位當中。
若還有下一筆資料,使用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關閉RecordSet,使用Conn.Close關閉資料庫。
全部的程式碼,如下∶
<HTML>
<HEAD>
<TITLE>銀行馀額線上查詢系統</TITLE>
<META HTTP-EQUIV="content-type" CONTENT="text/html;charset=big5">
</HEAD>
<CENTER>
<BODY BGCOLOR=#FFFFFF>
<FONT SIZE=+2 COLOR="#0000FF">銀行馀額線上查詢系統</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>
查詢結果:<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
信用卡線上查詢系統
「信用卡線上查詢系統」,可以透過Internet,提供線上查詢信用卡等多項的功能。
透過Internet,連線上「信用卡線上查詢系統」,輸入信用卡號碼,即可查詢信用卡消費明細表、消費額度、累積點數,以及促銷活動、線上購物、信用卡申請、信用卡申報遺失等服務。
設計實例
讓我們執行一個實例。
( 范例data9.asp 信用卡消費線上查詢
若要查詢資料,於用戶端使用瀏覽器,瀏覽本書所附安裝於網站伺服器的data1.asp,於「信用卡號」處輸入信用卡號,譬如信用卡號1234567890123456後,按下「查詢消費明細」按鈕,即可顯示查詢的結果如下,包括日期、姓名、消費明細、消費金額∶ 
若無消費時,譬如輸入信用卡號1234567890000000,顯示「無消費」如下∶ 

設計實例詳細解說
建立資料表
首先使用Microsoft Access、Microsoft SQL Server 、Text檔案、或任何一種支援ODBC的資料庫,建立一個資料表CreditCard。
於欄名DATE、ID、NAME、DETAILS、QTY、AMOUNT分別輸入消費日期、信用卡號、姓名、消費明細、數量、消費金額的資料。
使用Microsoft Access建立一個資料表CreditCard,如下∶∶ 
或使用Microsoft SQL Server建立一個資料表CreditCard,如下∶ 
或使用Text檔案建立一個資料表CreditCard,如下∶ 

設計輸入表單
接著,設計輸入表單form,以讓查詢者輸入信用卡號ID1,按下「查榜」按鈕submit時,即使用POST的方式將輸入資料傳送到網站伺服器,并執行於「form action=...」所設定的data9.asp檔案(與form為同一個ASP檔案),程式碼如下∶
<form action="data9.asp" method="post"> 
信用卡號: <INPUT TYPE=TEXT VALUE="1234567890123456" NAME=ID1 SIZE=16>
<INPUT TYPE=submit VALUE="查詢消費明細" name="Action">
</form>
網站伺服器執行data9.asp檔案,首先經由Request.Form("ID1")取得查詢者所輸入的信用卡號ID1,若ID1非空白時,表示為表單輸入所呼叫執行。
查詢資料庫
使用「Server.CreateObject」建立連線的物件,并使用「Open」開啟待存取查詢資料庫BookSamp。
再使用SELECT的SQL指令查詢資料庫的資料,設定SQL指令,查詢為ID符合信用卡號Request.Form("ID1")的資料,下個「Execute」指令,即可開始執行存取查詢資料庫的動作,并將查詢結果儲存到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)
%>
接著,要顯示查詢的結果了。
首先,由「 IF RS.EOF THEN ...」判斷是否找到ID為信用卡號Request.Form("ID1")的消費資料,若RS.EOF為TRUE,則顯示「信用卡號...無消費!」。
程式碼,如下∶
信用卡消費查詢結果:<br>
<% IF RS.EOF THEN %>
<FONT COLOR="#0000FF">信用卡號 <% =Request.Form("ID1") %> 無消費!</FONT>
若ID為信用卡號Request.Form("ID1")的消費資料,則顯示查詢的結果,包括日期、姓名、消費明細、消費金額,分別由RecordSets物件的RS(0)、RS(1) 、RS(2)、RS(3) 取得。
RS.Fields.Count表示RecordSets物件的欄位數,由「For i = 0 to RS.Fields.Count - 1」取得RS(i) 各欄位的資料。配合<TABLE>表格的HTML語法,將結果填入表格的各欄位當中。
總計消費金額的計算,RS(3)為消費金額,由「IF i = 3 THEN... TOTAL = TOTAL + RS(3)」將所有RS(3) 的消費金額加總,以得到總計的和。
若還有下一筆資料,使用RS.MoveNext移到下一筆的位置。
程式碼,如下∶
<% ELSE %>
<FONT COLOR="#FF0000">
信用卡號 <% =Request.Form("ID1") %> <BR>
<% = RS(1) %> 先生(小姐), 您上個月的消費明細表, 詳見下表:<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>消費明細</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關閉RecordSet,使用Conn.Close關閉資料庫。
全部的程式碼,如下∶
<HTML>
<HEAD>
<TITLE>信用卡消費 線上查詢系統</TITLE>
<META HTTP-EQUIV="content-type" CONTENT="text/html;charset=big5">
</HEAD>
<CENTER>
<BODY BGCOLOR=#FFFFFF>
<FONT SIZE=+2 COLOR="#0000FF">信用卡消費 線上查詢系統</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>
信用卡消費查詢結果:<br> 
<% IF RS.EOF THEN %>
<FONT COLOR="#0000FF">信用卡號 <% =Request.Form("ID1") %> 無消費!</FONT> 
<% ELSE %>
<FONT COLOR="#FF0000">
信用卡號 <% =Request.Form("ID1") %> <BR>
<% = RS(1) %> 先生(小姐), 您上個月的消費明細表, 詳見下表:<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>消費明細</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="查詢消費明細" name="Action">
</form>
<HR>
</CENTER>
</BODY>
</HTML>


主站蜘蛛池模板: 桃花视频在线观看免费迅雷 | 亚洲免费视频观看 | 色婷婷在线观看视频 | 欧美怡红院免费的全部视频 | 色天天综合久久久久综合片 | 在线观看国产黄色 | 青草久久精品亚洲综合专区 | 四虎www成人影院观看 | 亚洲精品综合网 | 日日夜夜网站 | 情欲天堂 | 日本欧美一区二区三区在线观看 | 日本特黄特色aaa大片免费欧 | 青草青草久热精品视频在线观看 | 日本免费色 | 色综合久久六月婷婷中文字幕 | 永久国产 | 香港三级欧美国产精品 | 亚洲高清免费观看 | 圣爱天堂网| 日本三级韩国三级欧美三级 | 中文国产成人精品久久一 | 日本视频三区 | 青娱乐精品视频 | 四虎永久在线观看免费网站网址 | 五月天丁香在线 | 综合久久网 | 四虎最新永久免费网址 | 日日夜夜网站 | 日本黄色网址免费 | 亚洲欧美日韩国产 | 日日摸夜夜搂人人要 | 天天综合色天天综合网 | 伊人久久中文字幕久久cm | 在线国产二区 | 天天搞夜夜操 | 日本免费一二三区 | 日本在线视频免费观看 | 色妹子在线 | 日韩成人在线观看 | 色婷婷激婷婷深爱五月老司机 |