这篇文章介绍股市网站应用
设计，包括股市成交线上查询
系统、线上股市买卖交易系统等应用的点子、设计实例、以及详细解说，让您快速地设计出各种股市的网站应用。
股市网站资料库应用
股市使用网站资料库，可以透过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，连线上
证券公司的「股市成交线上查询系统」，输入帐户号码，即可查询成交的结果，包括成交的
股票名称、和数量。
并可以提供股市大盘分析、即时技术分析、收盘价格、股市消息等股市
资讯。
设计实例
让我们执行一个实例。
( 范例 data2.asp 股市成交线上查询
若要查询成交资料，於用户端使用
浏览器，浏览本书所附安装於网站伺服器的data2.asp。
於「帐号」处输入帐号後，譬如输入帐号123456，按下「成交查询」按钮，即可显示查询的结果如下，包括成交日期、股票名称、买进卖出、成交数量、成交价格∶
找不到成交记录时，譬如输入帐号654321，显示如下∶
设计实例详细解说
建立资料表
首先使用Microsoft Access、Microsoft SQL Server 、Text档案、或任何一种支援ODBC的资料库，建立一个资料表Stock。
於栏名DATE、ID、TYPE、STOCK、QTY、PRICE分别输入成交日期、帐号、买进卖出、股票名称、成交数量、成交价格的资料。
使用Microsoft Access建立一个资料表Stock，如下∶
或使用Microsoft SQL Server建立一个资料表Stock，如下∶
或使用Text档案建立一个资料表Stock，如下∶
设计输入表单
接著，设计输入表单form，以让查询者输入帐号ID1，按下「成交查询」按钮submit时，即使用POST的方式将输入资料传送到网站伺服器，并执行於「form action=...」所设定的data2.asp档案（与form为同一个ASP档案），程式码如下∶
帐号:
网站伺服器执行data2.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,STOCK,TYPE,QTY,PRICE FROM Stock WHERE ID=" & Request.Form("ID1")
Set RS = Conn.Execute(SQL)
%>
接著，要显示查询的结果了。
首先，由「 IF RS.EOF THEN ...」判断是否找到ID为帐号Request.Form("ID1")的资料，若RS.EOF为TRUE，则显示「报歉 , 帐号 ...未成交!」。
程式码，如下∶
成交查询结果:
<% IF RS.EOF THEN %>
报歉 , 帐号 <% =Request.Form("ID1") %> 未成交!
若找到ID为帐号Request.Form("ID1")的成交资料时，则显示查询的结果，包括成交日期、股票名称、买进卖出、成交数量、成交价格，分别由RecordSets物件的RS(0)、RS(1) 、RS(2)、RS(3) 、RS(4) 取得。
RS.Fields.Count表示RecordSets物件的栏位数，由「For i = 0 to RS.Fields.Count - 1」取得RS(i) 各栏位的资料。配合表格的HTML语法，将结果填入表格的各栏位当中。
若还有下一笔资料，使用RS.MoveNext移到下一笔的位置。
程式码，如下∶
<% ELSE %>
恭喜您, 帐号 <% =Request.Form("ID1") %>
有成交, 如下表:
日期
股票
买卖
成交数量
成交价格
|
<% Do While Not RS.EOF %>
<% For i = 0 to RS.Fields.Count - 1 %>
<% = RS(i) %>
<% Next %>
|
<%
RS.MoveNext
Loop
RS.Close
Conn.Close
%>
<% END IF %>
最後，使用RS.Close关闭RecordSet，使用Conn.Close关闭资料库。
全部的程式码，如下∶
股市成交线上查询系统
股市成交线上查询系统
<%
IF Request.Form("ID1") THEN
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "BookSamp","sa",""
SQL = "SELECT DATE,STOCK,TYPE,QTY,PRICE FROM Stock WHERE ID=" & Request.Form("ID1")
Set RS = Conn.Execute(SQL)
%>
成交查询结果:
<% IF RS.EOF THEN %>
报歉 , 帐号 <% =Request.Form("ID1") %> 未成交!
<% ELSE %>
恭喜您, 帐号 <% =Request.Form("ID1") %>
有成交, 如下表:
日期
股票
买卖
成交数量
成交价格
|
<% Do While Not RS.EOF %>
<% For i = 0 to RS.Fields.Count - 1 %>
<% = RS(i) %>
<% Next %>
<%
RS.MoveNext
Loop
RS.Close
Conn.Close
%>
<% END IF %>
<% END IF %>
帐号: