網(wǎng)站建設(shè)與管理項(xiàng)目十二-在ASP中使用數(shù)據(jù)庫(kù)多課件

項(xiàng)目十二

在ASP中使用數(shù)據(jù)庫(kù)多表操作項(xiàng)目背景

在程序開發(fā)過程中，不僅需要對(duì)單一數(shù)據(jù)表進(jìn)行查詢，還要進(jìn)行多表查詢，用戶通過多表查詢，從多張表中提取出需要的數(shù)據(jù)。

比如學(xué)生信息與學(xué)生的成績(jī)是兩張不同的數(shù)據(jù)庫(kù)表，但在動(dòng)態(tài)網(wǎng)站開發(fā)過程中，常常要通過學(xué)生的信息去查詢或修改其學(xué)生的成績(jī)；又如學(xué)生的成績(jī)與學(xué)科也是不同的數(shù)據(jù)庫(kù)表，也經(jīng)常去查找學(xué)生某一學(xué)科的成績(jī)。

任務(wù)12.1使用內(nèi)連接查詢記錄

任務(wù)12.2使用外連接查詢記錄

任務(wù)12.3使用分頁(yè)技術(shù)技術(shù)導(dǎo)讀本項(xiàng)目技術(shù)重點(diǎn)：●會(huì)使用內(nèi)連接查詢數(shù)據(jù)庫(kù)表●會(huì)使用外連接查詢數(shù)據(jù)庫(kù)表●會(huì)使用分頁(yè)技術(shù)●了解什么是Web編程，理解B/S和C/S編程模式的優(yōu)缺點(diǎn)

12.1任務(wù)一使用內(nèi)連接查詢記錄一、任務(wù)描述

兩表之間的內(nèi)連接查詢記錄，可以實(shí)現(xiàn)兩張不同表之間的關(guān)聯(lián)，在顯示的效果中，可以用一條記錄查看兩張表中內(nèi)容，內(nèi)連接查詢可以輕松達(dá)到這樣的效果，如圖12-1-1所示。圖12-1-1內(nèi)連接查詢二、任務(wù)分析

查詢數(shù)據(jù)庫(kù)兩張表的記錄時(shí)，可以在FORM子句中，使用INNERJOIN…ON…建立內(nèi)連接，也可以在WHERE子句中，指定連接條件建立內(nèi)連接。

這兩種都是非常常用的連接查詢方法。三、知識(shí)準(zhǔn)備12.1.1內(nèi)連接查詢基礎(chǔ)知識(shí)

可以在FORM子句中使用INNERJOIN…ON…建立內(nèi)連接，也可以在WHERE子句中指定連接條件建立內(nèi)連接，例如：<%Conn.Execute("selecta.UserName,b.BookName,b.DatetmfromUserInfoasainnerjoinSellSheetasbona.UserID=b.UserID")%>

也可以用下面的語句實(shí)現(xiàn)。<%Conn.Execute("selecta.UserName,b.BookName,b.DatetmfromUserInfoasa,SellSheetasbwherea.UserID=b.UserID")%>

下面在SQL語句FROM后面使用INNERJOIN和ON關(guān)鍵字關(guān)聯(lián)數(shù)據(jù)表“UserInfo”和“SellSheet”，并根據(jù)輸入

的用戶名稱進(jìn)行查詢。

程序代碼如下。<%IfTrim(Request("txt_name"))<>""Thentxt_name=Trim(Request("txt_name"))Setrs=Server.CreateObject("ADODB.Recordset")Setrs=Server.CreateObject("ADODB.Recordset")sqlstr="selecta.UserName,b.BookName,b.DatetmfromUserInfoasainnerjoinSellSheetasbona.UserID=b.UserIDwherea.UserNamelike＇%"&txt_name&"%＇"rs.opensqlstr,Conn,1,1%>12.1.2內(nèi)連接查詢?cè)敿?xì)語法

使用SQL連接兩張表的基本語法是：select*FROMtable1INNERJOINtable2ONtable1.field1compoprtable2.field2部

分說

明table1,table2要組合其中的記錄的表的名稱field1，field2要聯(lián)接的字段的名稱。如果它們不是數(shù)字，則這些字段的數(shù)據(jù)類型必須相同，并且包含同類數(shù)據(jù)，但是，它們不必具有相同的名稱compopr任何關(guān)系比較運(yùn)算符：“=”、“<”、“>”、“<=”、“>=”或者“<>”表12-1INNERJOIN的操作內(nèi)容

下例代碼顯示了通過CategoryID字段，連接Categories和Products表的過程。SELECTCategoryName,ProductNameFROMCategoriesINNERJOINProductsONCategories.CategoryID=Products.CategoryID;

也可以在JOIN語句中，鏈接多個(gè)ON子句，基本語法如下。SELECTfieldsFROMtable1INNERJOINtable2ONtable1.field1compoprtable2.field1ANDONtable1.field2compoprtable2.field2ORONtable1.field3compoprtable2.field3;

也可以通過如下語法，嵌套JOIN語句，基本語法如下：SELECTfieldsFROMtable1INNERJOIN(table2INNERJOIN[(]table3[INNERJOIN[(]tablex[INNERJOIN...)]

ONtable3.field3compoprtablex.fieldx)]ONtable2.field2compoprtable3.field3)

ONtable1.field1compoprtable2.field2;12.1.3使用UNION進(jìn)行聯(lián)合查詢

使用UNION運(yùn)算符遵循的規(guī)則如下。

（1）在使用UNION運(yùn)算符組合的語句中，所有選擇列表的表達(dá)式數(shù)目必須相同（列名、算術(shù)表達(dá)式、聚集函數(shù)等）。

（2）在使用UNION組合的結(jié)果集中的相應(yīng)列，必須具有相同數(shù)據(jù)類型，或者兩種數(shù)據(jù)類型之間，必須存在可能的隱性數(shù)據(jù)轉(zhuǎn)換，或者提供了顯式轉(zhuǎn)換。

（3）結(jié)果集中列的名字或者別名，是由第一個(gè)SELECT語句的選擇列表決定。

程序代碼如下。<%IfTrim(Request("txt_name"))<>""Thentxt_name=Trim(Request("txt_name"))Setrs=Server.CreateObject("ADODB.Recordset")sqlstr="selectUserID,UserNamefromUserInfowhereUserName=＇"&txt_name&"＇unionselectUserID,BookNamefromSellSheetwhereUserName=＇"&txt_name&"＇"rs.opensqlstr,Conn,1,1%>

注意：對(duì)數(shù)據(jù)表進(jìn)行聯(lián)合查詢時(shí)，結(jié)果集中行的最大數(shù)量是各表行數(shù)之“和”，而對(duì)數(shù)據(jù)表進(jìn)行連接查詢時(shí)，結(jié)果集中行的最大數(shù)量是各表行數(shù)之“積”。四、任務(wù)實(shí)施

步驟1創(chuàng)建ASP網(wǎng)頁(yè)圖12-1-2新建ASP網(wǎng)頁(yè)

步驟2建立兩個(gè)數(shù)據(jù)庫(kù)表圖12-1-3數(shù)據(jù)庫(kù)表a圖12-1-4數(shù)據(jù)庫(kù)表b

步驟3輸入代碼<%dimconnSetconn=Server.CreateObject("ADODB.connection")sql="Driver={MicrosoftAccessDriver(*.mdb)};DBQ="&Server.MapPath("database/db_database.mdb")conn.open(sql)%><%setrs=Server.createobject("ADODB.Recordset") sqlstr="select*fromainnerjoinbona.aid=b.bid" rs.opensqlstr,conn

whilenotrs.eof %>

兩表ID相同的字段為<br><%=rs("aid")%><%=rs("adate")%><%=rs("bdate")%><% rs.movenext wendrs.closeconn.closesetconn=nothing%>圖12-1-5網(wǎng)頁(yè)代碼

步驟4測(cè)試代碼圖12-1-6運(yùn)行結(jié)果12.2任務(wù)二使用外連接查詢記錄一、任務(wù)描述

使用外連接查詢記錄，也可以實(shí)現(xiàn)要求返回左側(cè)或右側(cè)數(shù)據(jù)集合中非匹配的數(shù)據(jù)，此方法多用于兩表或多表間的對(duì)比，測(cè)試效果圖如圖12-2-1所示。圖12-2-1使用外連接查詢記錄二、任務(wù)分析

外連接是對(duì)內(nèi)連接的擴(kuò)充，除了將兩個(gè)數(shù)據(jù)集合中重疊部分以內(nèi)的數(shù)據(jù)行連接起來之外，還可以根據(jù)要求返回左側(cè)或右側(cè)數(shù)據(jù)集合中非匹配的數(shù)據(jù)，即左外連接（LEFTOUTERJOIN）和右外連接（RIGHTOUTERJOIN）。三、知識(shí)準(zhǔn)備12.2.1左外連接LEFTOUTERJOIN其參考程序代碼如下。<%IfTrim(Request("txt_name"))<>""Thentxt_name=Trim(Request("txt_name"))Setrs=Server.CreateObject("ADODB.Recordset")sqlstr="selecta.UserName,b.BookName,b.DatetmfromUserInfoasaleftouterjoinSellSheetasbona.UserID=b.UserIDwherea.UserNamelike＇%"&txt_name&"%＇"rs.opensqlstr,Conn,1,1%>12.2.2右外連接RIGHTOUTERJOIN基本的參考程序代碼如下。<%IfTrim(Request("txt_name"))<>""Thentxt_name=Trim(Request("txt_name"))Setrs=Server.CreateObject("ADODB.Recordset")sqlstr="selecta.UserName,b.BookName,b.DatetmfromUserInfoasarightouterjoinSellSheetasbona.UserID=b.UserIDwhereb.BookNamelike＇%"&txt_name&"%＇"rs.opensqlstr,Conn,1,1%>四、任務(wù)實(shí)施

步驟1創(chuàng)建ASP網(wǎng)頁(yè)圖11-2-2新建ASP網(wǎng)頁(yè)

步驟2建立兩個(gè)數(shù)據(jù)庫(kù)表圖12-2-3數(shù)據(jù)庫(kù)表a圖12-2-4數(shù)據(jù)庫(kù)表b

步驟3輸入代碼<%dimconnSetconn=Server.CreateObject("ADODB.connection")sql="Driver={MicrosoftAccessDriver(*.mdb)};DBQ="&Server.MapPath("database/db_database.mdb")conn.open(sql)%><%setrs=Server.createobject("ADODB.Recordset") sqlstr="select*fromaleftjoinbona.aid=b.bid" rs.opensqlstr,conn

whilenotrs.eof %>

左外連接LEFTOUTERJOIN<br><%=rs("aid")%><%=rs("adate")%><%=rs("bdate")%><% rs.movenext wend rs.closeconn.closesetconn=nothing%>圖12-2-5網(wǎng)頁(yè)代碼

步驟4測(cè)試代碼圖11-2-6運(yùn)行結(jié)果12.3任務(wù)三使用分頁(yè)技術(shù)一、任務(wù)描述 ASP使用分頁(yè)技術(shù)的作用，顯示指定行記錄，在記錄集較多的時(shí)候，一般都會(huì)用到分頁(yè)技術(shù)，特別是在大型的網(wǎng)站上面，尤為常用，分頁(yè)技術(shù)的顯示效果如圖12-3-1所示。圖12-3-1分頁(yè)技術(shù)最終效果二、任務(wù)分析

在動(dòng)態(tài)網(wǎng)頁(yè)讀取數(shù)據(jù)庫(kù)中的記錄時(shí)，有些記錄的總數(shù)有可能有上百條、上千條，甚至是上萬條，這對(duì)于一個(gè)頁(yè)面的顯示帶來了很多不方便的地方。

而pagesize這個(gè)屬性，通過相關(guān)的技術(shù)編程，可以實(shí)現(xiàn)記錄的分頁(yè)功能。三、知識(shí)準(zhǔn)備12.3.1ASP分布技術(shù)代碼解析1．連接數(shù)據(jù)庫(kù)

基本的參考代碼如下所示。<%Setconn=Server.CreateObject("Adodb.Connection")connstr="PRovider=Microsoft.JET.OLEDB.4.0;DataSource="&Server.MapPath("data.mdb")conn.openconnstrSetrs=Server.CreateObject("Adodb.Recordset")sql="Select*frominfo"rs.opensql,conn,1,1%>2．創(chuàng)建分頁(yè)基本參考代碼如下。<%rs.pagesize=4curpage=Request.QueryString("curpage")ifcurpage=""thencurpage=1rs.absolutepage=curpage%>3．分頁(yè)記錄循環(huán)以下為基本參考代碼。<%fori=1tors.pagesizeifrs.eofthenexitforendif%><%=rs("record_info")%><br><%rs.movenextnext%>4．分頁(yè)鏈接如下代碼所示。"當(dāng)前第<%=curpage%>頁(yè)，共有<%=rs.pagecount%>頁(yè)，共有：<%=rs.recordcount%>條記錄"以下代碼顯示了基本的參考內(nèi)容。<%ifcurpage=1then%>首頁(yè)。<%else%><ahref="?curpage=1">首頁(yè)</a><%endif%><%ifcurpage=1then%>上一頁(yè)。<%else%><ahref="?curpage=<%=cur1%>">上一頁(yè)</a><%endif%><%ifrs.pagecount<curpage+1then%>下一頁(yè)。<%else%><ahref="?curpage=<%=curpage+1%>">下一頁(yè)</a><%endif%><%ifrs.pagecount<curpage+1then%>尾頁(yè)。<%else%><ahref="?curpage=<%=rs.pagecount%>">尾頁(yè)</a><%endif%>12.3.2建立Access數(shù)據(jù)庫(kù)1．創(chuàng)建數(shù)據(jù)庫(kù)圖12-3-2Access數(shù)據(jù)庫(kù)軟件2．保存名稱圖12-3-3保存數(shù)據(jù)庫(kù)表3．設(shè)計(jì)字段名稱和數(shù)據(jù)類型圖12-3-4數(shù)據(jù)庫(kù)表設(shè)計(jì)字段和數(shù)據(jù)類型4．輸入數(shù)據(jù)圖12-3-5輸入相應(yīng)數(shù)據(jù)四、任務(wù)實(shí)施

步驟1新建AdobeDreamweaver頁(yè)面圖12-3-6新建ASP網(wǎng)頁(yè)

步驟2輸入代碼<%Setconn=Server.CreateObject("ADODB.Connection")strcon="provider=microsoft.jet.oledb.4.0;datasource="&_server.mappath("mdb.mdb")conn.OpenstrconSetrs=Server.CreateObject("ADODB.Recordset")sql="select*fromtableorderbyiddesc"rs.Opensql,conn,1page=1＇設(shè)置變量PAGE=1rs.PageSize=4＇每頁(yè)顯示記錄數(shù)ifNotIsEmpty(Request("Page"))then＇如果PAGE已經(jīng)初始化...Page=CInt(Request("Page"))＇接收PAGE并化為數(shù)字型賦給PAGE變量if