<form id="hz9zz"></form>
  • <form id="hz9zz"></form>

      <nobr id="hz9zz"></nobr>

      <form id="hz9zz"></form>

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

      銀行網站應用方案

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


      日韩精品一区二区三区高清