八SQLServer系統(tǒng)應用實例

第8章ＳＱLServeｒ系統(tǒng)應用實例8.１SQLSeｒvｅr2000應用程序接口8．1。１ＳQLServeｒ2０00應用程序接口概述8．１．2ODBC應用程序接口8．1．3ＯLEＤＢ通用數(shù)據訪問接口8。1。4Ａ８。2在VB中使用ＡDO對象開發(fā)SQLＳervｅr應用程序8．2.1使用AＤＯ對象訪問SＱLServｅｒ數(shù)據庫8。２。2數(shù)據庫應用程序實例—-—教學管理系統(tǒng)8.３基于Web的ＳQLＳerveｒ應用系統(tǒng)開發(fā)8．3．1Web數(shù)據庫應用概述８。3。2A8。4Web數(shù)據庫開發(fā)實例-—教學管理系統(tǒng)8。4.1系統(tǒng)簡介8．４．2程序代碼與說明本章主要內容在實際應用環(huán)境中，使用企業(yè)管理器和查詢分析器訪問數(shù)據庫中的數(shù)據往往是數(shù)據庫管理員，大部分的用戶還是通過程序員開發(fā)的各種應用程序間接訪問SQＬSeｒｖeｒ數(shù)據庫。SＱLServer具有優(yōu)秀的數(shù)據庫管理性能，但它并不具備圖形用戶界面的設計功能，因此不能滿足客戶端用戶數(shù)據連接和數(shù)據操作的要求。SQLＳeｒｖｅr在數(shù)據庫應用中一般作為應用系統(tǒng)的后端，而前端圖形界面的設計與操作一般使用可視化開發(fā)工具,如ViｓualBasiｃ、Ｄelphi、ＰｏwerＢuｉlｄｅｒ等來完成。如果需要將數(shù)據和應用程序在網上發(fā)布,可使用AＳＰ、AＳP．NET、PＨＰ等來實現(xiàn).本章重點１、VB前臺語言，ＳQＬSｅrｖer建立數(shù)據庫，設計《教學管理系統(tǒng)》2、ASＰ前臺語言,ＳQLServer２0０0后臺,設計《教學管理系統(tǒng)》本章難點ADＯ對象的應用授課方法講授＋實驗+作業(yè)學時：８課時授課過程如下:８。1SQLSｅrvｅr２000?應用程序接口:數(shù)據庫應用程序通過ＳQLServer2000應用程序接口向SQＬServer服務器發(fā)送SＱL語句，實現(xiàn)數(shù)據庫的訪問.要編寫SＱＬSｅrｖer200０數(shù)據庫應用程序,必須學習使用SQＬＳerｖeｒ應用程序接口。8．１。1ＳQLServer20０0應用程序接口概述SQLSeｒｖer2０00提供了豐富的應用程序接口，使程序員可以快速地開發(fā)數(shù)據庫應用程序。下面我們介紹SQＬServｅｒ常用的應用程序接口。1、嵌入式SQL嵌入式SQＬ語言就是將ＳＱＬ語句直接嵌入到程序的源代碼中,與其他程序設計語言（例如C語言）語句混合使用。嵌入式ＳQＬ的操作過程如下:使用ＳQLServer的預編譯程序將嵌入的SQL語句轉換為能被程序設計語言的編譯器識別的函數(shù)調用；使用程序設計語言的編譯器對轉換后的文件進行編譯，然后連接為可執(zhí)行程序，即可執(zhí)行.2、ＯＤBC開放數(shù)據庫連接ＯＤＢＣ是OｐｅnＤａt(yī)aｂaseCｏnｎectiｖiｔy的縮寫,稱為開放數(shù)據庫系統(tǒng)互連，是微軟公司在90年代初開發(fā)和定義的一套數(shù)據庫訪問標準,用于訪問關系型數(shù)據庫。使用ＯDBC開發(fā)的應用程序可以訪問多種數(shù)據庫管理系統(tǒng)的數(shù)據庫，例如SQＬSｅｒveｒ、Oraｃle和ＤB2等.３、OLＥDＢ通用數(shù)據訪問接口ＯLＥDＢ是微軟９0年代后期開發(fā)的數(shù)據訪問通用接口，它不僅提供了對關系型數(shù)據庫的訪問,還提供了對各種各樣數(shù)據源的訪問,例如Excｅｌ電子表格、ｄBase的ＩSＡM文件、電子郵件等。4、JＤBCＪａva數(shù)據庫接口ＪDBC(JavaＤataＢａsｅＣｏnnectｉviｔy）是由ＳUN公司制定的基于Ｊaｖａ語言的數(shù)據庫訪問接口，用于實現(xiàn)Ｊava程序訪問SQLSｅrveｒ20０0數(shù)據庫，該接口程序未包含在安裝盤中，需到微軟公司的網站上下載。8。１．2ODＢC應用程序接口OＤBC是微軟公司在９0年代初期開發(fā)的一種數(shù)據庫應用程序接口，用于訪問關系型數(shù)據庫，使用ODＢC開發(fā)的應用程序可以訪問多種數(shù)據庫管理系統(tǒng)的數(shù)據庫，例如SQLＳeｒveｒ、Orａcle和DB2等.ODBC由一組具有精確定義的函數(shù)組成，稱ＯDBCAPＩ函數(shù),用來對數(shù)據庫進行操作。在應用程序中,可以直接使用這些函數(shù),而數(shù)據庫的底層操作由各個數(shù)據庫的驅動程序來完成.由于ODBC對數(shù)據庫應用程序具有良好的適應性和可移植性，所以OＤBC在推出后就得到了廣泛的應用。1、ODＢCSQＬＳervｅr2００0包含本機ＳＱLSｅｒverＯDBC驅動程序，可由OＤBC應用程序用于訪問ＳQLＳｅrvｅr中的數(shù)據。在ＳQＬServer200０中，除isｑl外的所有其它SQＬSerｖｅr實用工具也都使用OＤＢCAPI和ＳＱＬSｅrverＯDＢC驅動程序。2、ODBC體系結構ODＢＣ數(shù)據庫應用程序由應用程序、驅動程序管理器、驅動程序和數(shù)據源4個部分組成，如圖所示。數(shù)據庫應用程序驅動程序管理器數(shù)據庫應用程序驅動程序管理器SQLServer數(shù)據源Oracle數(shù)據源FoxPro數(shù)據源DB2數(shù)據源SQLServer驅動程序Oracle驅動程序FoxPro驅動程序DB2驅動程序應用程序執(zhí)行處理并調用ODBC函數(shù)。其主要任務如下：連接數(shù)據庫提交ＳQＬ語句給數(shù)據庫檢索結果并處理錯誤提交或者回滾SＱL語句的事務與數(shù)據庫斷開連接3、驅動程序管理器ＯDBＣ驅動程序管理器是一個驅動程序庫，負責應用程序和驅動程序間的通信。對于不同的數(shù)據庫系統(tǒng),驅動程序管理器將加載相應的驅動程序到內存中,并將后面的SＱＬ請求傳送給正確的ODBＣ驅動程序.ODＢC應用程序不能直接存取數(shù)據庫，應用程序的操作請求需要由驅動程序管理器提交給正確的驅動程序。而驅動程序負責將對數(shù)據庫的請求操作傳送到數(shù)據庫管理系統(tǒng)（ＤBMＳ），并把結果返回給驅動程序管理器。然后驅動程序管理器再將結果返回給應用程序,由應用程序處理,并處理錯誤信息。Apｐlet的安全機制appletapplet瀏覽器SERVER本地程序fileSERVER本機connectionconnection下載applet的與applet無關的本地方法4、數(shù)據源數(shù)據源（DataSourｃeNａme．DＳN)是連接數(shù)據庫驅動程序與數(shù)據庫管理系統(tǒng)(DBＭS)的橋梁，它定義了數(shù)據庫服務器名稱、訪問的數(shù)據庫、登錄名稱和密碼等選項。數(shù)據源分為3類：文件數(shù)據源、系統(tǒng)數(shù)據源和用戶數(shù)據源，最常用的是系統(tǒng)數(shù)據源。通常,應用程序是通過數(shù)據源名來訪問數(shù)據庫。概括地說,使用ＯＤBＣ進行編程之前,要先安裝相應的ODBＣ驅動程序，再配置ODＢＣ數(shù)據源。ODBＣ數(shù)據源包括以不同的格式存儲的數(shù)據，而不僅僅是ＳＱL數(shù)據庫中的數(shù)據.應用程序使用ODBC驅動程序訪問數(shù)據源。ODBC驅動程序是一個動態(tài)鏈接庫（DLL），它接受對ODBCAPI函數(shù)的調用并采取任何必要的操作來處理對數(shù)據源的請求。５、配置ODBC數(shù)據源使用ODBC編程之前,要先安裝相應ＯＤBC驅動程序,再配置ＯDBC數(shù)據源。通常，SQLSｅrvｅr２000ODＢC驅動程序已經內嵌在WINDＯＷS操作系統(tǒng)中。下面,我們仍然以教學數(shù)據庫(teaｃｈdb）為例來介紹配置ＳQLServer的ODBC數(shù)據源，數(shù)據源名為“教學”,操作步驟：(1）在控制面板中，單擊“管理工具”，然后執(zhí)行“數(shù)據源(ODBC)"命令，打開“ODＢC數(shù)據源管理器”對話框，如圖８－2所示.數(shù)據源名ODBC驅動數(shù)據源名ODBC驅動程序圖8－2ＯDＢC數(shù)據源管理器該窗口用來設置ODBC數(shù)據源及其驅動程序等。各主要選項卡的功能如下:用戶ＤSN顯示了當前登錄用戶使用的數(shù)據源清單。系統(tǒng)DNＳ顯示了可以由系統(tǒng)中全部用戶使用的系統(tǒng)數(shù)據源清單.文件ＤＮS顯示了允許連接到一個文件提供程序的數(shù)據源清單。驅動程序顯示了所有已經安裝的各種數(shù)據庫系統(tǒng)的ODBＣ驅動程序.（２）在選項卡中，單擊按鈕，打開“創(chuàng)建新數(shù)據源”對話框，在“名稱”列表框中選擇SＱLＳeｒver，如圖8－3所示.SQLServerODBC驅動程序SQLServerODBC驅動程序程序圖8－3“創(chuàng)建新數(shù)據源”對話框（3)單擊按鈕，打開“建立新的數(shù)據源到SQLＳerｖer“對話框,如圖8—4所示。在“名稱”文本框中輸入新數(shù)據源的名稱,如：教學.在“說明”文本框中輸入對該數(shù)據源的說明,然后在“服務器"下拉列表框中選擇要連接到的服務器如:DBＳERVER。圖８-４“建立新的數(shù)據源到ＳQLSｅｒvｅr”對話框(4）單擊按鈕，系統(tǒng)提示選擇驗證模式，如圖8—5所示。圖８—5選擇驗證模式在此選擇選項，并輸入登錄ID和密碼。（5）單擊按鈕,系統(tǒng)提示用戶設置默認數(shù)據庫等選項，如圖8—6所示。在此,更改默認數(shù)據庫為教學數(shù)據庫teａchdb。圖８－６設置連接的默認數(shù)據庫(６）保持其余默認設置,單擊按鈕，系統(tǒng)提示用戶設置驅動程序使用的語言，字符集區(qū)域設置和日志文件等,如圖８—7所示。圖8-７設置驅動程序使用的語言、字符集等（７）單擊按鈕,出現(xiàn)“ＯDBCMicrosofｔSＱLSｅrver安裝”對話框,如圖８－8所示.其中顯示了新數(shù)據源的配置選項。測試數(shù)據源測試數(shù)據源圖8-８“ODBCMｉｃrｏsoftＳQＬServer安裝"對話框（8）單擊按鈕,打開“SQＬSeｒverODBＣ數(shù)據源測試”對話框，其中顯示了ＳQLServeｒ的驅動程序版本號,并顯示測試是否成功的消息.單擊按鈕，可返回到“ＯDBＣMiｃrｏsoftＳQＬSeｒveｒ安裝"對話框。（９)單擊按鈕，即可創(chuàng)建一個新的數(shù)據源.Applｅt的主要方法構造方法構造方法init()start()完成Applet的初始化操作都是在Applet被激活前執(zhí)行的，因此不能用它們來實現(xiàn)Applet的功能８.１。３OＬEＤB數(shù)據訪問接口ＯLEDB是微軟在90年代后期采用面向對象技術開發(fā)的數(shù)據訪問通用接口,它創(chuàng)建于微軟的OＬE（對象的鏈接與嵌入)技術基礎上。OLＥＤB的優(yōu)點是可以和任何ＶiｓualＳtudiｏ產品協(xié)同工作,例如ＶisuａlC++,VｉsualＢaｓｉc等.它的推出，得到了廣泛的支持?？梢灾苯邮褂肙LＥＤＢ進行數(shù)據庫應用程序開發(fā),為了使用戶方便地使用OLEＤＢ開發(fā)數(shù)據庫應用程序，微軟將OＬEＤBAPI封裝在一個簡化了的基于組件（ＣOM）技術的對象模型AＤＯ（ActiｖeXDａｔaＯbjects）中,通過ADO,程序員可以快速地開發(fā)數(shù)據庫應用程序，使用AＤＯ是SＱLSｅrｖer２000數(shù)據庫應用程序開發(fā)的有效途徑。１、Aｐｐlet的運行控制關系一個使用paint(）方法繪制字符串的Appｌｅt程序Java.applet.AppletJava.applet.Appletpublicvoidinit()publicvoiddestroy()publicvoidstart()publicvoidstop()publicvoidpaint(Graphicsg)２、ＯLEDB體系結構微軟定義了ＯLＢDB的4個層次:數(shù)據提供者使用OLEDBSＤK（軟件開發(fā)工具）創(chuàng)建OLEDB提供者（Prｏvider)的人.數(shù)據消費者訪問數(shù)據庫中信息的應用程序，系統(tǒng)驅動程序或者用戶.數(shù)據服務提供者創(chuàng)建用以增強用戶或者數(shù)據庫管理員使用管理數(shù)據庫能力的獨立應用程序。例如，查詢分析器就是一個數(shù)據服務提供者。部件開發(fā)者創(chuàng)建應用程序模塊或部件，以減少創(chuàng)建數(shù)據庫應用程序所需的編碼工作。例如,VｉsｕaｌBaｓｉc中提供的ADO控件。關系一般來說，數(shù)據庫應用程序即OLＥDＢ消費者是通過ＯLＥDB用戶界面和ＯLEDB提供者（Ｐrｏvider）來訪問數(shù)據源,它們之間的關系如圖8-９所示。數(shù)據源應用程序（OLEDB消費者）OLEDB界面（例如ADO等）OLEDB提供者對于不同的OLEDB提供者,OLEＤＢ提供不同級別的功能,但是它們都支持一個通用的用戶界面。不同的ＯLEDB數(shù)據源使用自己的OLEＤＢ提供者,如圖8－10所示。ＡDO對象模型ADＯ是一個OＬＥDB消費者，它封裝了OLEＤB復雜性，以極為簡單的接口存取數(shù)據,簡化了數(shù)據庫應用程序的編寫，易于使用，性能好,占用內存和磁盤空間少,并且支持基于客戶機／服務器的Ｗeb數(shù)據庫應用程序。使用者只需在程序中建立ADＯ對象，設置對象相應的屬性,調用相關方法，即可完成數(shù)據庫訪問。ADO對象模型ADO的對象模型為層次結構，如圖8－1１所示。其中每個Ｃoｎnｅctiｏｎ,Coｍｍａnｄ，Recoｒdseｔ和Field對象都有集合.ConnectionConnectionErrors集合ErrorCommandParameters集合ParameterRecordsetFields集合Field圖８－11ADＯ的對象模式AＤO提供的對象及功能ADＯ提供的對象及基本功能如表８—１所示。除了上述對象外，ADO還提供了Ｆiｅｌｄs、Parametｅrs、Errｏrs、Pｒopｅrties等集合對象。主要的ＡＤO對象在上述眾多對象中，主要的ADＯ對象有３個：連接對象Conectｉon，數(shù)據查詢對象Coｍmaｎd和查詢所得記錄集對象Ｒecorｄsｅt。Coｎnｅcｔｉon對象Ｃonｎｅｃtion對象用于建立應用程序與數(shù)據源之間的通信連接。如果是網絡環(huán)境下的客戶端/服務器數(shù)據庫系統(tǒng)，該對象可等價于客戶機到數(shù)據庫服務器的實際網絡連接。在建立連接后,可通過Cｏmmand對象與Reｃｏrdsｅt對象來訪問數(shù)據庫中數(shù)據.Cｏnneｃtion對象的主要屬性Coｎｎｅｃtion對象的主要屬性如表8－3所示。Coｎnｅction對象的常用方法Conｎｅction對象的常用方法如表8-4所示，其中Opｅn用于打開Ｃonｎecｔiｏn對象,并建立連接。Ｅxｃｕtｅ方法常用于簡單查詢。對復雜的數(shù)據庫操作應使用Ｃomｍａnd對象.Ｒecordset對象Reｃorｄseｔ對象(記錄集對象）用于存儲Conｎectioｎ對象和Commanｄ對象的查詢結果，應用程序中再利用程序語言來處理該Rｅcｏｒdｓet對象中的記錄，Rｅcｏrdｓet對象主要屬性見表8－５.Reｃｏｒdseｔ對象的常用方法Ｒｅcoｒdｓeｔ對象的常用方法見表8—6，其中Opeｎ用于打開Recordｓet對象,并對Cｏｍmaｎｄ對象或Cｏnｎeｔｉon對象加以引用。Ｒecｏrｄsｅｔ對象有１1個事件,這里也不說明了。Ｃoｍmanｄ對象Ｃommaｎd對象主要用于對數(shù)據庫進行復雜查詢，它的功能強大，并可運行存儲過程和參數(shù)化查詢。Cｏｍmand對象如表８-7所示。Ｃomｍａnd對象Coｍｍand對象最常用方法是Excｕte方法.Ｅxcute方法用于執(zhí)行SQL查詢命令，并返回打開的結果集對象(Ｒecｏrdsｅt)。也可以用Ｅｘcｕte方法執(zhí)行其它的數(shù)據定義命令或存儲過程。Cｏnnection，Cｏmｍａnd，Recorｄseｔ雖然是３個不同的對象,但是三者之間是互相關聯(lián)，分工協(xié)作的。通常，在Connectioｎ對象實現(xiàn)了應用程序與數(shù)據源之間的通信連接后，執(zhí)行Ｃomｍanｄ對象的Eｘcutｅ方法實現(xiàn)數(shù)據庫查詢，數(shù)據庫服務器響應后，再將查詢結果存入Ｒｅcｏrdset對象中.Ｃｏmmaｎd對象必須依賴于Connecｔioｎ對象,而Ｒeｃoｒtｓｅｔ對象要視Conｎeｃtiｏn對象與Ｃommａnｄ對象的狀態(tài)而定。8.２在VＢ中使用ADＯ對象開發(fā)ＳQLSｅrｖeｒ應用程序微軟在ＶｉｓｕaｌBａsiｃ6．０中成功地引入了功能強大的ADO對象作為新的數(shù)據庫訪問標準，它內置了ＳQLSerｖer的ＯLEＤB驅動程序.另外，為了使數(shù)據庫應用程序能實現(xiàn)字段的綁定,ＶｉsuaｌBasiｃ６。0還提供了一個封裝了ADＯ對象的ADODaｔa控件,使用該控件可以開發(fā)簡單的數(shù)據庫訪問程序，復雜的數(shù)據庫訪問程序的開發(fā)仍必須使用ADO對象,ＡDＯＤａt(yī)a控件可以起到輔助作用.8．2．1使用ADＯ對象訪問SQLＳeｒｖeｒ數(shù)據庫在ＶisuａｌBasic6。0中,使用AＤＯ對象進行數(shù)據庫訪問有多種方式，例如：使用Ｃonnectｉｏn對象和Rｅcordset對象配合使用,實現(xiàn)簡單查詢。Connｅction對象、Ｒｅcordsｅt對象和Coｍmand對象配合使用實現(xiàn)復雜查詢。使用Ｃoｍmand對象執(zhí)行SQＬSerｖｅr的存儲過程。ＡDO對象的引用在ＶisｕａｌBａsｉc6。0中使用ADO對象編程之前，必須先設置對AＤＯ類庫的引用?，F(xiàn)以創(chuàng)建一個本書教學數(shù)據庫tｅacｈdb的應用項目為例,其操作步驟:（1）啟動ViｓｕaｌBasic，創(chuàng)建一個新的工程，并將工程名稱設置為“學生管理”，窗體名稱設置為frmＳtｕdｅｎt.Cａｐtioｎ屬性設置為“學生信息”。在菜單中，執(zhí)行命令，打開“引用”對話框,如圖8—１2所示。引用對話框引用對話框圖8—1２ADO的對象的“引用"（２）在“可用的引用"列表框中，找到“MicrｏｓtoftDａｔaＯbjeｃｔs２。6Libｒary"選項,并選中前面的復選框。(3）單擊按鈕，即可在ViｓualＢasｉc6.0中增加對ADO對象的引用。如果要查看ADO提供的對象的屬性、方法和集合等內容,可以在菜單中，執(zhí)行命令,打開“對象瀏覽器”對話框,如圖８-１3所示。在頂部的列表中選擇ＡＤODB,在側窗格即可顯示出ＡＤO中的對象，而右側窗格則顯示出左側窗格中選中的對象的屬性、方法等。各對象的方法、屬性ADO各對象各對象的方法、屬性ADO各對象圖８－13“對象瀏覽器”瀏覽ＡDO對象2.Coｎnectｉon對象、Ｒecｏrdｓｅt對象和Ｃｏmmaｎd對象配合使用實現(xiàn)數(shù)據查詢操作基本步驟如下：（1）定義Coｎｎeｃｔion對象、Ｒeｃoｒdsｅt對象和Commanｄ對象。(2）設置Conｎection對象的連接串CｏnnｅctｉｏnＳtriｎg屬性，準備連接數(shù)據庫.ConnectｉoｎSｔrｉng屬性的常用參數(shù)見表8-8所示。表8—8ConｎectionStrｉnｇ屬性的常用參數(shù)Pｒovｉder參數(shù)指定OLEDB提供者，缺省值是MＳＤAＳQＬ，指ODBＣ資源提供者Ｓｅrvｅｒ屬性SQLServer服務器名，也可用數(shù)據源名DSＮ屬性使用ＯDＢC時，當前機器的OＤＢC數(shù)據源IｎitｉaｌCａt(yī)ａlog屬性設置連接的默認數(shù)據庫，也可用ＤatａBase參數(shù)UsｅrＩD屬性用戶名Ｐａsswoｒd屬性用戶口令（3)使用Ｃonnｅcｔｉon對象的Opeｎ方法建立到數(shù)據源的物理連接。（4）設置Ｃommand對象的ActｉｖeConnecｔiｏn屬性以便同打開的Cｏnnｅcｔioｎ對象進行關聯(lián)。（5)使用Cｏmmand對象的CoｍｍaｎdTexｔ屬性定義要執(zhí)行的SQＬ語句文本.(6)使用Cｏmmaｎｄ對象的Ｅxecute方法執(zhí)行命令并在需要的時候返回給Ｒｅcordsｅt對象.（7）處理Ｒｅcoｒｄset對象中的數(shù)據。(8）關閉連接【例8。1】實現(xiàn)對教學數(shù)據庫ｔeaｃｈｄb中課程表(cｏurse)的瀏覽和添加操作,并使新添加的課程信息在列表框中立即顯示。如圖８－14,圖8—15所示。操作步驟：在VB中新建一個工程,在工程中建一窗口，名為frｍCourse，標題為“課程信息",加入下列控件，如圖8-１4所示。圖８－１4“課程信息”瀏覽界面示例圖8-15“課程信息"插入界面示例窗口中各控件名稱及屬性設置如表8－１１所示。表8—１1控件名稱及屬性控件名稱類型Capｔion屬性說明TｘtC_no文本框左邊為“課程號”標簽TxtC_name文本框左邊為“課程名”標簽ＴｘtC_sｃｏrｅ文本框左邊為“學分”標簽CmdAdd按鈕添加CmdList按鈕瀏覽Ｄａt(yī)aＧｒid1數(shù)據網格(Ｄatａgrid）其中DatａGrid控件，需要在VisualBasiｃ6。０的菜單中運行命令添加部件后，才可在工具箱中找到它的圖標，如圖8—１６,8—17所示。DataGrid控件DataGrid控件圖8－1６添加“部件"對話框圖８－17Dａt(yī)ａＧrｉｄ控件程序代碼：'通用定義ＤimcｎAsNeｗＡDODB.Conｎeｃtioｎ'定義Ｃｏnneｃtｉon對象ＤiｍｒsAｓNｅwADODB。Rｅcｏrdｓet’定義Reｃｏｒｄsｅt對象DimｃmdAsＮeｗADODB．Coｍmand'定義Ｃｏｍmａnd對象’窗體Loａd事件代碼PrivateSuｂFoｒｍ_Ｌoad()ｃｎ.ConｎｅctionTimeｏｕｔ=3０＇設置連接對象屬性ｃn。CｕrsｏrＬｏcaｔｉoｎ=adＵsｅCｌｉentcn．ConnｅcｔｉonStrinｇ="DRIVER＝SQＬＳerｖer；SERVＥR＝dｂｓｅrvｅr；uｉd=sa;pｗd=ｓa;DＡＴABASＥ=tｅａchdb”cn。Ｏpeｎ＇打開連接EndSub'ＣｍdAdd按鈕Clｉｃk事件代碼PｒiｖateSｕbＣmdAｄd_Cｌiｃk（)Ｓｅtcmd．ActiveConnectiｏn=ｃncｍd．ComｍanｄＴexｔ="INＳERTcourｓeVＡＬUＥS（?,?，？)”’帶參數(shù)的SQL語句cｍd．CｒeateParameteｒ，ａdChａｒ，adＰaramＩnpuｔ，4＇參數(shù)１定義cmd。CreatｅＰaｒaｍetｅｒ，adChａr,adPａraｍＩｎpuｔ,10’參數(shù)２定義cmd．CreａｔｅＰａrameteｒ,adIｎteｇer,adＰarａｍInpｕt,4'參數(shù)３定義ｃmd.Pａrametｅrs（0）＝ＴxtC_no.Ｔｅxｔcmｄ．Pａrameterｓ（1）＝TxtC＿nａmｅ。Tｅxtｃmd。Ｐａrａmeｔers(2)=TxｔC_scｏrｅ。Tｅxtｃmd.Execuｔe'運行SQL語句cmｄ．ComｍandText＝”SEＬＥCＴ＊FＲOＭｃourｓe＂Sｅtrs＝ｃmd.ExｅcutｅSetDatａGrｉｄ１。Dａt(yī)aSｏｕrcｅ＝rｓEnｄSub’ＣｍdLｉst按鈕Cliｃｋ事件代碼ＰrｉvaｔeSuｂCmｄLｉst_Clicｋ（）Ｓｅtcmd。ActｉvｅConnection=cｎｃｍd.CｏｍmanｄＴeｘt="SELECT＊FRＯＭｃourse＂Seｔrs=cmd.EｘｅｃｕtｅＳeｔDａt(yī)aGrid１．DataＳourｃe=ｒｓＥｎdＳub代碼說明Ｓｅtｃmd.AcｔｉveConｎection＝cn使打開的Cｏnｎecｔion對象與Ｃomｍand對象關聯(lián).cmd。CommａndTexｔ=“INＳERTｃouｒｓeＶＡＬUＥS（？，?,？）”帶參數(shù)的SQL語句，每個“？”代表一個參數(shù)。cｍd.CreaｔeParameｔｅr，adＣhaｒ，ａｄPaｒａｍＩｎpｕｔ，4定義參數(shù)的類型、長度和方向，此處定義的是字符型,長度為4字節(jié)的輸入參數(shù)，用于表示“課程號"。ｃｍｄ．Paｒａｍeters(0）＝TｘｔＣ＿no.Text為參數(shù)賦值。３。使用Ｃommanｄ對象執(zhí)行存儲過程存儲過程可以具有輸入和輸出參數(shù).在VisuaｌBaｓic中使用Comｍaｎd對象執(zhí)行存儲過程時，應當指定其輸入和輸出參數(shù).【例8．2】在ＳQLServer２00０中建立一個存儲過程名為Chｏice_Queｒy,實現(xiàn)輸入課程名即可顯示教學數(shù)據庫中選修該課程的所有學生名單信息.然后在VisuａlBａsic中，調用該存儲過程，完成相應功能.例8－2存儲過程如圖8—１8所示,在ViｓuａｌBasiｃ中程序設計界面如圖８—１9所示。程序代碼’通用定義DiｍcnAsＮｅwＡDODB.Ｃｏnneｃtｉon’定義Ｃoｎnｅctiｏn對象DｉｍｒsAsＮeｗADOＤB.Rｅcｏrdsｅt’定義Recorｄset對象DiｍｃｍdAsNewADＯDＢ．Commanｄ'定義Cｏmｍand對象DiｍPａrａm０AsＮewＡDODB．Paramｅｔeｒ’param０將作為存儲過程輸入的Ｐａｒameｔer對象’窗體Ｌoａｄ事件代碼ＰｒｉｖateSubFｏrm_Ｌｏａd（）ｃn．ＣonneｃtionTimeｏuｔ＝30＇設置連接對象屬性ｃｎ．CursoｒLocatioｎ=adUｓeCliｅnｔcn．ＣonnectｉonStrｉng＝＂DRＩVＥR=ＳQLServeｒ;SERVＥＲ＝ｄbserｖｅr；uiｄ＝sa；pwd＝sa；DATABＡSE＝ｔeacｈｄｂ”cn．Opｅn'打開連接Ｓetcｍd.ＡctivｅCｏｎnectｉon=ｃnｃｍd.AcｔiveＣoｎnecｔion=cn’為一個有效的Coｎｎeｃｔiｏn對象cｍd.ComｍａndTｙpe=aｄCｍdＳｔoｒeｄProc＇表明執(zhí)行的是一個存儲過程cmd。CｏｍmandText=＂Ｃhoicｅ＿Qｕｅry"’Ｃｈoice＿Ｑuery為要執(zhí)行的存儲過程名'設置輸入的Pａｒａｍeｔer對象Pａｒam０。Direction＝ａdParaｍIｎｐｕt’表明該Pａramｅｔer對象為輸入參數(shù)Pａraｍ０。Tｙpe=adChar'表明該Ｐaramｅter對象為字符類型Ｐaｒam０．Size＝１０＇輸入參數(shù)的長度為６個字節(jié)ｃｍｄ．Pａｒaｍｅters.ＡppendPaｒam０'使用Aｐｐeｎd方法將Ｐａram０加入到Pａraｍeters集合中EｎdSub'CmｄQｕeｒｙ按鈕Ｃlick事件代碼ＰｒivａｔeSubCmdＱueｒy＿Clｉck(）Ｐａram0.Vaｌue=Ｔeｘｔ1．Tｅxt’輸入參數(shù)值Sｅtｒｓ=ｃmｄ.Exｅcuｔe’執(zhí)行存儲過程SeｔＤaｔａＧrid１。DataＳource＝rsEndSuｂ本例中通過使用Ｃommand對象和Pａｒａmeter對象，實現(xiàn)帶參數(shù)的存儲過程的調用,完成復雜的數(shù)據查詢。錯誤處理4.使用Ｅrroｒ對象進行錯誤處理任何AＤO對象的操作都可能會引起一個或多個ＯLEDB提供者錯誤.每個ADＯ對象操作錯誤出現(xiàn)時，一個或多個Errｏr對象將被放到Ｃonneｃｔiｏｎ對象的Erroｒs集合中.當另一個ADＯ操作產生錯誤時,Errors集合將被清空，在其中放入新的Error對象集.通過Errｏｒ對象的屬性可獲得每個錯誤的詳細信息。在ViｓualＢasｉc中可以使用MsgＢｏｘ函數(shù)來提示出現(xiàn)的錯誤信息。８.2．2數(shù)據庫應用程序實例－教學管理系統(tǒng)本實例全部采用ADO對象來進行數(shù)據庫訪問，8.３基于Web的SQＬSｅrvｅｒ開發(fā)８。3.1Ｗeb數(shù)據庫應用概述在過去的一段時間里,基于Ｃ／Ｓ(Client/Seｒvｅr）的網絡計算機模式為實現(xiàn)企業(yè)級的信息共享發(fā)揮了重要的作用。但C/S模式也有弱點，如軟件實現(xiàn)復雜度高、維護代價高、缺乏開放標準、難以跨平臺運行等。隨著計算機網絡技術和Ｉnterｎｅt的迅速發(fā)展，特別是Wｅb技術的興起和普及，Ｃ／Ｓ模式正向基于Ｗeｂ的網絡計算機體系演變，當前基于Weｂ的計算平臺已經成為網絡計算平臺的主流，應用也極為廣泛。例如我們在網站上所見到的用戶登錄系統(tǒng)、客戶留言板、論壇以及企業(yè)產品信息在網站前臺的展示等等,無一不和數(shù)據庫有關。有了Ｗeｂ和數(shù)據庫的聯(lián)接,也使用得人們對Ｗｅｂ頁面的更新和維護變得簡單和快捷?；赪ｅb的計算技術采用B/Ｃ/Ｓ(Ｂｒｏｗser／Cliｅnt/Ｓｅrｖer)三層結構模式，用戶界面統(tǒng)一使用瀏覽器，Web服務器作為信息系統(tǒng)的客戶機，它代表用戶訪問應用服務器——其中最重要的就是數(shù)據庫服務器.這樣,軟件開發(fā)工作主要集中于服務器端應用程序,無須開發(fā)客戶端應用程序。服務器端的所有應用程序都可通過Wｅb瀏覽器在客戶機上運行。由于各種操作系統(tǒng)都支持Wｅb瀏覽器的運行，所以基于Ｗeｂ的應用可以方便地實現(xiàn)跨平臺操作。如圖8—25所示。在基于Web的三層計算模式中，Web服務器訪問數(shù)據庫的技術是應用系統(tǒng)開發(fā)的關鍵。在Wｅb環(huán)境下操作數(shù)據庫的方法有多種，較有代表性的技術是:CＧI(CｏmmｏnＧateｗayＩnteｒｆaｃe，公共網關接口）、WｅbServerAＰI（如NSPI、IＳＰI）及ＡSＰ（AｃtiveSeｒｖｅrＰageｓ，活動服務器頁面）、ＡSＰ.NＥＴ、ＰHＰ等。這里主要介紹如何使用ASＰ技術來操作SQＬServeｒ數(shù)據庫并進行基于Web的初級數(shù)據庫開發(fā)。ＡＳP技術簡介１.什么是AＳＰAＳＰ（ActiveServerＰａge)是微軟公司隨其IIS3.０推出的一種主要用于Web服務器訪問數(shù)據庫的技術，它提供使用VＢＳcript或Ｊscripｔ（Ｍiｃrosｏft的JavａＳcriｐt實現(xiàn)）的服務器端腳本環(huán)境，可用來創(chuàng)建和運行動態(tài)、交互的Ｗeb服務器應用程序。什么是ASPASP提供了一些內建對象,使用這些內建對象可使用腳本的功能更加強大。在ASＰ中還可以使用ＡctiｖｅＸ控件擴展功能，并可使用自己定義的AcｔivｅＸ控件。ＡＳP最吸引人的是它所提供的訪問數(shù)據庫的能力，使用AＤO對象可以很方便地與數(shù)據庫建立連接和操作數(shù)據庫。什么是ASP使用AＳＰ時，在HTML中嵌入服務器端腳本,所形成的文件以.asp為擴展名,這種文件稱為ＡｃtｉveＸ腳本文件。當瀏覽器向Web服務器請求．ａｓp文件時,服務器端腳本將不被發(fā)送到瀏覽器,而是在Weｂ服務器上執(zhí)行.通常用VBScript腳本語言編寫腳本程序嵌入HTML中,也可以將HTML代碼嵌入到ＶＢＳcrｉpt腳本語言里。2．AＳP應用程序運行的環(huán)境――IIS/Web服務器的配置要調試AＳP腳本程序，雙擊該文件的圖標或者在瀏覽器中打開該文件都是不行的,必須通過Ｗeｂ服務器端的處理才能在瀏覽器中瀏覽到相應的頁面。實際上，Ｗｅb服務器在程序執(zhí)行時要掃描ASP腳本文件,執(zhí)行服務器端的腳本，并將執(zhí)行結果替換文件中的服務器端腳本部分，形成HTMＬ發(fā)送到瀏覽器。?IＩS/Weｂ服務器的配置

ASP的執(zhí)行由IIS/Wｅb服務器來完成。要使得Web服務器執(zhí)行指定的腳本,必須進行適當?shù)呐渲?可以將要執(zhí)行的ASP腳本配置成一個站點或者一個虛擬目錄。Wｉｎdows2000Servｅr以上版本（Wｉndｏws２0０0Profｅｓsioｎａl版需要人為添加ＩＩＳ組件)自帶的IIS和Ｗｉndowｓ98的PWS都可以實現(xiàn)。８．4Weｂ數(shù)據庫開發(fā)實例——教學管理系統(tǒng)8．4.1系統(tǒng)簡介系統(tǒng)設計目標通過本系統(tǒng)的開發(fā)，可以使用學生理解Web前臺和后臺數(shù)據庫間的關系。掌握后臺數(shù)據庫的連接方法，以及對后臺數(shù)據庫中的數(shù)據進行初步的處理。通過學習本系統(tǒng)的設計，學生可以對SQLｓｅｒver2000數(shù)據庫對Weｂ的支持有一個較透徹的了解。本系統(tǒng)雖簡單,但已經涵蓋了Web數(shù)據庫的主要內容,所以大家可以在本系統(tǒng)的基礎上進行擴展和創(chuàng)新，使之成為一個真正的教學管理系統(tǒng)。2．數(shù)據庫的準備本系統(tǒng)中所使用的數(shù)據庫就是教材中作為樣例的tｅａchdｂ數(shù)據庫以及它所包含的5張表:studenｔ,course，ｃhoice,teacher和teacｈinｇ。3．系統(tǒng)運行環(huán)境準備配置IＩS，新建一個Web站點，主目錄指向本系統(tǒng)中所有程序所在的文件夾,系統(tǒng)的默認主文檔為indｅx.aｓp。系統(tǒng)結構和各程序間的關系本系統(tǒng)共有1０個程序，各程序的功能及各程序間的關系如圖8—30所示。主界面:inｄeｘ.aｓp這是系統(tǒng)主程序，主要實現(xiàn)系統(tǒng)登錄和學生注冊。在iｎｄｅx．asp界面中輸入學生的學號和姓名，而后在check．ａｓｐ中進行驗證,只有輸入的學號和姓名和studeｎt表中的學號和姓名相一致,才能登錄到本系統(tǒng)中,否則要求注冊。運行界面如圖8－３1所示。／／【程序清單】iｎｄｅｘ.asp〈%＠LＡNGUAGE=”ＶBＳＣRIPＴ＂CODEＰAGＥ=＂93６＂％>＜html>〈ｈｅad〉〈ｍetahｔtp-ｅqｕiv＝＂Conｔent-Tyｐe"coｎｔｅnt＝”text/html；chaｒset=ｇb231２＂>〈tｉtle〉班級教學管理系統(tǒng)〈／ｔiｔｌｅ>〈/heaｄ＞〈bodｙbgｃoｌor=＂＃００99ＦＦ"text=＂＃ＦFFＦ０0＂>〈diｖaｌign="ceｎｔer＂＞＜p〉&ｎbsｐ;〈／p〉<p>〈foｎｔcolor=”#FF０00０"sizｅ=”７"ｆaｃe="隸書”〉歡迎您來到班級教學管理系統(tǒng)!</ｆont〉〈imｇsrc=＂imｇ／ｌine０23．ｇif＂ｗiｄｔｈ="1０0％”ｈeight=＂2”＞〈/ｐ＞〈formｎａme＝”foｒm1"ｍeｔｈｏd＝"post”ａctｉon=”ｃheｃk。asｐ”>〈p＞<fontcｏloｒ＝”#FＦFFＦF＂〉請輸入您的學號:〈／ｆｏnt〉〈ｉnｐuttype=”ｔext”ｎamｅ=＂no”＞〈/p＞<p><fｏｎtcｏlor=”#FFＦFFＦ”＞請輸入您的姓名：＜/ｆoｎt〉＜inｐuｔtype=＂ｔext＂namｅ=”nａme"＞</ｐ＞〈p><iｎｐｕttｙpｅ＝”submｉｔ"ｎame＝＂Subｍit”value=”登錄">〈inｐuｔtｙpｅ＝"ｒｅset”ｎaｍe=＂Submit2＂ｖaｌue＝＂重寫＂〉</ｐ＞＜/form〉<p〉如果您還沒有注冊,請先<ａhｒeｆ＝”regｅｓｔｅr．aｓｐ＂〉注冊!〈/a＞＜/p><ｐ＞〈imgｓrc=＂img／lｉｎe0２3．gif＂wiｄtｈ="100%"heighｔ=＂２”＞＜／p><p〉＆nｂｓp;</ｐ>〈／diｖ〉＜／ｂoｄy>〈/hｔｍl〉2．登錄驗證界面：cheｃk.asp驗證輸入信息，如果成功，出現(xiàn)各分系統(tǒng)的主界面,如果失敗則出現(xiàn)要求注冊的界面。在程序中先進行后臺數(shù)據庫的連接，對ｉndｅｘ．asp頁面上的表單信息進行接收后,到teachdb庫中的表ｓtuｄent中進行查找，如果找到即可登錄成功,如果沒有找到則要求注冊.例如：學號輸入“1０1”，姓名輸入“袁敏",程序運行的結果如圖８-３２所示:程序清單：check.aｓp/／【程序清單】cheｃk.aｓp＜％@Language＝＂VBSｃriｐｔ”％〉〈%setｃｎ=sｅrｖer．creａt(yī)ｅobｊect(”adodb.connｅctｉon＂)cｎ.ｐｒoｖiｄｅr＝＂sqloｌeｄｂ"yyy=＂server=hoｍe—09１C3Ｄ2142；daｔabasｅ=teaｃhdｂ；uid=sa；pwｄ=sa；"cn。openyyysetrs＝ｓｅrｖer．CｒeaｔeObｊect（＂ａdodｂ．reｃoｒdseｔ＂）‘注：以上代碼是連接數(shù)據庫teacｈｄb，并生成記錄集實例。ｔ１＝rｅqｕesｔ．fｏrm（＂no"）ｔ2=ｒｅquｅｓt.ｆorｍ("namｅ＂）‘注：這兩句是接收來自前頁的表單中輸入的學號和姓名。ｓｑl＝"ｓeｌect＊ｆromsｔｕdｅｎｔｗheres_no＝’"＆t1＆＂’aｎdｓ_nａme=＇”&ｔ2＆＂＇”ｓｅtrｓ=ｃn．exeｃｕte（sql)％〉<％ifrs。eoｆ=trueｔhｅｎrespｏnsｅ.wｒite"您還沒有注冊,請先注冊,再登錄!＂elsｅ%〉<HTML＞＜HEＡＤ><MＥTＡＮAME=”GENＥRAＴＯR"Ｃｏnteｎｔ="ＭｉcrｏｓoｆｔVｉsｕalＳtudiｏ6．0＂><metａhttp—ｅｑｕｉv=＂Ｃｏntenｔ－Typｅ"conteｎt＝＂ｔｅxt／html；charｓeｔ=gｂ2３１2"＞＜/HEＡD>〈ＢODYbgｃolｏr＝"＃00９9ＦＦ”>＜ｔablewidtｈ＝”80０”ｈeｉgｈt＝"425＂boｒdｅr＝＂0＂aligｎ＝"ｃｅntｅr"ｃellspaciｎg=”０"＞＜tｒ〉〈tdｗiｄth="800＂heigｈｔ＝”3５１"vａlｉgｎ=＂ｔoｐ"〉〈ｐaｌiｇn=”ｃenteｒ"〉<foｎtcolｏr="＃ＦFFF00＂〉歡迎您：〈／fonｔ>＜fｏntｃolor=＂#FF0０00＂〉＜%=reｑueｓt．foｒm(＂name＂）％＞</foｎｔ><fontcolｏr="#FＦFF0０"〉登錄班級學習管理系統(tǒng)!今天是〈/ｆｏnｔ〉〈%=ｄａt(yī)e(）％〉＜fontｃolor=”#FFFF００＂＞祝您心情愉快！<／font＞</p＞〈pａlign=＂ceｎｔer”＞＜imｇsrc=”ｉmg/ｌｉｎe0２3.gif"ｗidth="１0０%”height=”３”〉</p><pａｌign=”ｃｅntｅr＂〉＆nｂｓｐ;</p＞<pａｌｉｇn=＂center"〉您可以進入以下系統(tǒng):〈/ｐ〉＜ｐａｌiｇn＝＂ｃｅntｅr”〉＜sｔrong＞〈ｆｏntcｏloｒ＝＂#FF000０＂size＝”５”fａcｅ=＂隸書＂＞〈/fｏｎｔ>〈/strong＞〈ｆonｔcｏlor="#FＦ0000"sizｅ＝”5”fａce=＂隸書”><sｔrong＞＜ahref=＂ｘscx。asp"〉學生查詢系統(tǒng)</a>〈／sｔｒｏｎｇ〉＜／ｆoｎt＞＜fontsize=”5">＜ｓtrｏng＞<fontcｏloｒ=”＃FF0000”fａce=”隸書＂>〈ａhrｅf＝＂ｘkcｘ。ａsｐ"〉選課查詢系統(tǒng)〈/a〉〈／fｏnｔ>＜/sｔrong></ｆoｎt〉</p>〈pａlｉgｎ=”cｅnter"＞〈ｆonｔsize=＂5”><stronｇ>＜ｆoｎｔcoｌor＝＂#FF０000"ｆacｅ=”隸書＂〉〈ahrｅf=＂jｓｃx.aｓp"〉教師查詢系統(tǒng)＜/a><／fｏnｔ＞〈/sｔrong>＜stronｇ><fｏntcoｌor=＂#ＦＦ000０＂ｆａｃe=”隸書"＞〈ａhrｅf=＂ｃjcx．aｓp＂〉成績查詢系統(tǒng)＜／a〉〈/fｏnｔ＞〈／stｒong></ｆoｎt＞〈/ｐ>＜ｐaｌｉｇn=”cenｔer">&ｎbsp；＜／p＞＜pａlign=”ｃeｎteｒ”>＆nbsp；＜／p＞＜ｐａlign＝＂ceｎter＂＞請選擇＜/ｐ>＜／td＞</ｔr＞＜／tａｂlｅ＞<p＞＆ｎbsｐ；</ｐ＞〈／ＢＯDY＞</HTML〉〈％enｄiｆ％＞３.學生查詢系統(tǒng):ｘscx。ａsｐ和ｘｓｃｘchｅck.asp單擊“學生查詢系統(tǒng)”,可以進入該系統(tǒng)，在系統(tǒng)中，可以對該班級的學生情況進行查詢,查詢條件可以是studenｔ表中的所有字段,例如要查所有計算機系的學生情況，如圖8-33所示。單擊【確定】后,有關數(shù)據傳送給xｓcｘｃhecｋ．asｐ，得到的結果如圖8—34所示。程序清單:/／xｓcx.aｓp＜％＠LANGＵAＧE=”ＶＢSCRIPT＂ＣＯDEPAGE＝”936＂％〉<htｍl＞〈head＞＜ｍｅtahｔtp-ｅquｉv＝”Conｔeｎｔ－Ｔyｐe"cｏnｔｅnｔ="text/html；chａrｓｅt=gb2312"＞〈tiｔle>無標題文檔＜／titlｅ><／ｈeａd＞〈bodｙbgcoｌor＝＂＃0０CCFF"＞<diｖalｉgn=＂center＂〉＜ｐ〉＆ｎbｓp;〈/ｐ〉＜ｐ〉〈ｆontcolｏｒ="＃FF0000"ｓiｚｅ=”６"face＝”隸書”>〈sｔｒｏnｇ＞歡迎光臨學生查詢系統(tǒng)〈/stronｇ></foｎt＞</ｐ〉＜p〉＜ｉｍｇsrc＝"img/line0２３.giｆ＂wｉdｔh＝＂520”height="3"＞＜/p>〈p〉請輸入您的查詢條件（下列條件之一）〈/p＞＜forｍnａme＝"form1"mｅthoｄ＝＂post＂acｔiｏn＝”xscｘｃhｅｃk．ａｓp＂＞<p＞學生姓名:〈inputtypｅ＝＂teｘt”name＝"name"〉＜／p＞＜p〉學生學號：<iｎｐutｔｙpｅ＝＂tｅxt＂ｎame＝"ｎo”＞〈/ｐ〉〈p＞學生性別:<ｉｎpｕttyｐe=＂teｘt"name="sex">＜/ｐ〉〈ｐ＞出生日期：〈inputtｙpｅ=”ｔext＂nａｍe=”bｉrtｈｄaｙ"></ｐ＞<ｐ＞所在系部:〈ｉnputtｙpe="text”ｎame=＂depａrtmenｔ”>＜/ｐ〉<p〉＜inpｕtｔｙｐｅ＝"suｂｍit"naｍe="Ｓｕｂmit"vａlue＝＂確定”〉＜ｉｎpｕttｙpe=＂sｕbｍiｔ"naｍｅ=”Ｓubmit２”ｖａlue=＂重寫"＞</p>〈p＞&ｎｂｓp;＜／ｐ＞</fｏrｍ>〈p>〈ｉｍgsrc=＂ｉｍｇ/line023．giｆ”widtｈ=”52０"heiｇht="3"〉</p><／dｉv〉〈／ｂodｙ＞<／ｈｔmｌ〉HYＰEＲLＩNＫ”xｓcxcheck。asｐ.ｔxt＂xｓｃｘｃheck．asp／／ｘｓｃxｃheck。asp〈%@ＬＡＮGUＡGE="VBSＣRIＰT＂CＯDEPAGE=”９36＂%＞<％setcn＝sｅrveｒ．ｃｒeatｅｏbｊｅｃt（"ａdodb．cｏnneｃｔiｏn”）cn．ｐrｏvｉder=＂sqloｌeｄｂ＂yyy="ｓerｖer＝ａa007；database=teachｄb;ｕiｄ=ｓa；ｐｗd＝sａ;"ｃn。ｏpenyｙｙseｔrｓ=ｓｅｒｖeｒ．CｒｅaｔeObｊeｃt(”adodb．rｅcｏｒｄset”)t１=rｅｑｕｅst.ｆorm（"nａme”）ｔ2=reｑｕesｔ.fｏrｍ(”no"）ｔ３=ｒｅquest．ｆｏrm(”ｓｅｘ”）t４=rｅquｅｓt。ｆorｍ("ｂｉｒthｄay")t5=reｑuｅsｔ.form（＂departmeｎｔ”）sql=”seｌect＊froｍｓtudｅntwheres＿ｎａｍｅ＝＇"&t1&”’ｏrs＿nｏ='"＆t２＆"'oｒs_ｓeｘ＝＇”＆t3＆＂'ors_ｂｉrthdａy=’”＆t4&”'oｒs_deｐａｒｔｍｅｎt=’"&ｔ5＆"'"ｓetrs=cn。eｘeｃｕtｅ(sｑl)%〉<html〉<head＞<ｍetahｔtp－eｑｕiｖ=”Cｏｎtｅnt—Type"ｃｏntenｔ=＂ｔｅxｔ／html;ｃｈarseｔ＝gｂ２３12＂〉<title＞無標題文檔〈/titlｅ></ｈｅaｄ>＜bodyｂgcolor="#00FFＦF”＞＜ｐ＞<sｔrｏng>您要找的學生情況如下：</ｓtronｇ></ｐ＞＜ｐ〉&nｂｓp；</p＞＜％ｒｅsponsｅ．writｅ"<center>＜ｔablｅborｄｅｒ=1>＂fori＝０toｒs.fｉｅｌds．ｃount—1respoｎsｅ．wrｉｔe"〈td〉”&rs．ｆｉelds(i）．ｎame＆"</tｄ〉＂nｅｘｔrｅsponｓe。wｒｉte＂<／tr>"whilｅｎotrｓ.eofrｅsponsｅ.ｗｒitｅ”〈tr>"foｒi=0torｓ。fｉｅｌds．coｕnｔ—１ｒeｓｐｏnse．wrｉtｅ"〈td〉”＆rs.fieｌｄs（ｉ).ｖaｌuｅ&”＜/ｔｄ＞"neｘtresponse。wriｔｅ"〈／tr>”ｒs.movｅnextｗenｄrespoｎse．write＂<／taｂｌe>〈/ｃｅｎter＞”rｓ．ｃｌｏｓｅ％＞〈p>＆nbsｐ;＜/p><／body>〈/ｈtｍl〉4。選課查詢系統(tǒng):進入到選課查詢系統(tǒng)中，輸入某個學生的學號,可以查詢該學生所選修的課程;輸入課程號碼,可以查看有哪些同學選修該門課程.程序運行結果如圖８-３5和圖8－３６所示。xｋcx.asp／／xkcx.aｓp〈％@LANGUAＧＥ="VＢＳＣRIPＴ"ＣODEPAGＥ="93６”％＞<htmｌ＞〈ｈeａd＞〈metahttｐ—ｅqｕｉv＝"Ｃｏnｔｅnt－Tｙpe”ｃontent=＂ｔｅxt/hｔml;ｃharset=gb２３１２”><ｔitle>無標題文檔〈/tｉtｌe〉</heaｄ〉<bodybｇｃolｏｒ=＂#0０CCFF＂〉〈diｖａlign=＂cｅnｔer”>＜p>＆nｂsp;</p〉<ｐ>〈foｎtcｏlor＝"#ＦF0000”size="6"face＝＂隸書”〉＜stroｎg〉歡迎光臨選課查詢系統(tǒng)＜/ｓｔrｏng〉＜/font＞</ｐ＞〈p><imgsrc="ｉmg/linｅ０23。ｇif"widtｈ=”520＂ｈeight＝＂３＂＞＜/ｐ＞〈p＞請輸入您的查詢條件（下列條件之一)〈／p>〈formnａme＝”ｆｏrm1”method=”ｐosｔ"ａｃtｉon="xkcxcheck.asｐ”>＜p>＆ｎbsｐ；</ｐ〉<p>學生學號:〈ｉnｐｕttypｅ="text＂namｅ=＂nｏ"＞＜／p〉<p>課程名稱：〈ｉｎｐutｔｙpe="texｔ”ｎamｅ=”ｃno"＞〈／p＞〈p〉＆nbsp;〈／p〉＜p＞<inｐutｔyｐe=＂submit＂nａme="Sｕbmit"ｖalue=＂確定”>＜inpuｔtypｅ="sｕｂｍｉｔ”ｎａｍe＝”Sｕｂmiｔ２＂vａlue=”重寫">〈/p>＜p〉＆ｎｂｓｐ;〈/p><／form〉<ｐ><imgsrc＝”img／ｌine0２3．ｇｉf”width=”５20"height="3"＞＜／ｐ>〈/div〉</body＞<／ｈtｍl＞HYPＥRLＩNK"xkcxcｈｅcｋ．asp.txｔ＂xｋcxchｅcｋ．asｐ/／ｘｋｃｘcｈeｃｋ．ａsp〈%@LAＮＧUＡGＥ＝”VBSCRIPT＂CODＥPＡGE=＂936”％＞<%setcn=servｅｒ。crｅａt(yī)eｏｂjecｔ（”ａdoｄｂ．coｎnｅctioｎ”）cｎ.ｐｒoviｄer＝”sqloledb"ｙyｙ=”server=aa0０7；dａt(yī)ａbasｅ＝tｅａchｄb；uid＝sa；pｗd=sａ；＂cn。openｙyyｓetｒs＝serｖer。CｒｅaｔeObｊecｔ（"aｄodb。recｏｒdsｅt＂）t1=rｅｑｕest.ｆｏrm("no”）ｔ2＝ｒeqｕest.form（"cｎo”）sｑl="ｓeｌect*ｆromchoicewheｒes＿ｎo='”&t１＆"'ｏrｃ_no=＇”＆t2&”＇”ｓｅｔrs=cn.execute(ｓql)%＞〈ｈtｍl＞＜heａd〉<mｅｔaｈｔtp—ｅquiv＝"Content—Tｙpe”contｅnt="ｔeｘｔ/htmｌ;ｃharseｔ=gｂ2３12＂＞＜ｔｉtlｅ>無標題文檔〈/titｌe>〈／ｈｅad〉〈ｂoｄyｂｇcｏlor=”＃00FＦFF＂＞〈ｐaｌign="cｅnｔeｒ">＜stｒoｎg＞您查找的選課資料如下：</ｓtrｏng>＜／p〉<divaｌｉgn=”ｃenｔeｒ"〉＜%reｓponse.write＂<centeｒ＞<tableｂｏｒｄｅr=1＞”fｏｒi=０torｓ。fｉelds．coｕｎｔ—1rｅｓpoｎse．wrｉte”〈td〉"&rs．fiｅldｓ（i).ｎame＆"〈／td>"ｎｅｘtｒesponｓｅ．ｗｒite"＜/ｔｒ>"ｗhiｌenoｔｒs。eofresｐｏｎsｅ。write"＜ｔr>"fori=０toｒs。ｆielｄｓ．coｕnｔ—1response.write"<ｔd〉”＆ｒs。ｆｉeｌds(ｉ）．ｖａｌue＆"＜／tｄ>"ｎｅxｔrｅｓpｏnse。wｒiｔｅ"〈／ｔr>"rｓ.ｍovenextweｎdresｐｏｎse。ｗｒｉte"</ｔａble〉</ceｎｔer>＂rｓ．ｃlｏsｅ%></ｄiv＞〈p>＆nbｓp;＜/p></body＞〈/html>５.教師查詢系統(tǒng)：進入到教師查詢系統(tǒng)中，輸入某個教師的有關資料,就可以查出該教師的基本情況.查詢條件可以ｔeacｈeｒ表中所有字段.程序運行和結果如圖8—3７和圖8—38所示。／/jscx。asｐ＜%@ＬANＧUAＧE=”VＢSCRIＰＴ"CODEＰAＧＥ=＂936”％＞<html><ｈｅaｄ>〈meｔahｔtp-eqｕiv="Content-Tｙpe＂content="text／hｔｍl；cｈａrｓｅt=gb２312”>〈tｉtle〉無標題文檔＜/ｔiｔｌe〉<／hｅaｄ>＜bｏdｙbgｃoｌｏr="＃00CCFＦ”＞＜divaliｇｎ="ｃeｎter”><ｐ＞<fｏntｃolor="#FF0000”size＝＂6＂face=＂隸書"＞〈sｔroｎｇ＞歡迎光臨教師查詢系統(tǒng)〈/strong＞</fonｔ>＜/p>〈p>＜ｉｍgsrc="img／lｉｎｅ0２3。gｉf”ｗidth=＂5２0"ｈeｉｇhｔ="３”〉</p>〈p＞請輸入您的查詢條件（下列條件之一）〈／p>〈ｆ="fｏrｍ1”mｅthod＝”post"acｔiｏn="jscxchｅck．asp”>〈p＞教師姓名：〈inｐｕｔｔyｐｅ＝”tｅxt＂name="naｍe＂＞〈／p＞<ｐ〉教師編號:＜inｐuｔtｙpe="tｅxt＂ｎａｍe="no">＜/p>＜p>教師性別：<inpuｔtyｐe＝"ｔｅxt＂name=＂sｅx”＞〈／ｐ>〈p〉教師職稱：<iｎpｕｔtype=＂ｔeｘt＂naｍe=”duty”>＜／p〉<p＞＜inｐｕtｔypｅ="ｓｕbｍit"name＝”Sｕｂmｉt"valuｅ=”確定"＞〈ｉnpｕtｔype=”rｅseｔ＂name=＂Ｓubmｉｔ2＂ｖaluｅ＝”重寫"><／p〉〈p〉〈imｇｓrc="img/ｌine０23．giｆ"widtｈ=”５２0＂hｅiｇht＝"3"＞＜／p＞〈/ｆｏrm＞＜/div><／boｄｙ〉〈／ｈtml＞//ｊsｃxchｅcｋ．ａｓp〈%＠LＡＮGUAＧE＝”VBSＣRＩPT"CＯＤEＰAGE=”9３6”％〉<％ｓetcｎ=ｓervｅ”sｑloledb＂yyｙ＝”ｓeｒｖer=aa0０7；ｄａt(yī)aｂasｅ=teachdb;uid＝ｓａ;pｗd=sａ;”cｎ．openｙｙysｅtrｓ＝ｓerveｒ．Creａt(yī)ｅObjｅｃｔ（”adodｂ。rｅcｏｒdｓet"）ｔ１=rｅｑｕest.ｆoｒm(＂namｅ")ｔ2=ｒequｅｓt.fｏｒm("no"）t3=rｅqｕｅst。form（＂sex”）t４=reｑuest。foｒm（"duty")sqｌ="ｓelect＊froｍtｅａcherwｈerｅｔ＿nａｍe＝＇＂＆ｔ1＆”'ort_no=＇”＆t2&”'oｒt_ｓex＝'"&t３＆”'orｔ＿dutｙ=＇"&ｔ4＆”’”seｔｒｓ=cn。eｘｅcute(sｑl）%><hｔｍｌ＞〈hｅad＞<meｔａｈｔt