asp程序設(shè)計(jì)習(xí)題答案參考

1、文檔供參考，可復(fù)制、編制，期待您的好評(píng)與關(guān)注！ 簡(jiǎn)答題第1章 ASP.NET概述 P18(1)名詞解釋靜態(tài)網(wǎng)頁(yè)：一般指用超文本標(biāo)記語言HTML來實(shí)現(xiàn)，以htm或html做后綴名的網(wǎng)頁(yè)文件，這些網(wǎng)頁(yè)文本中不存在需要服務(wù)器段解釋的代碼；所有人瀏覽到的同一網(wǎng)頁(yè)不會(huì)有任何區(qū)別。動(dòng)態(tài)網(wǎng)頁(yè)：所謂動(dòng)態(tài)網(wǎng)頁(yè)，就是服務(wù)器端可以根據(jù)客戶端的不同請(qǐng)求動(dòng)態(tài)產(chǎn)生網(wǎng)頁(yè)內(nèi)容。它根據(jù)不同類型的客戶端請(qǐng)求生成不同的頁(yè)面，具有交互性。動(dòng)態(tài)網(wǎng)頁(yè)是用標(biāo)準(zhǔn)html代碼和動(dòng)態(tài)語言(如：asp，jsp，php，等)編寫的。服務(wù)器端：在萬維網(wǎng)中提供網(wǎng)頁(yè)服務(wù)的一端稱為服務(wù)器端?？蛻舳耍航邮芊?wù)的一端稱為客戶端。名稱空間：所謂名稱空間就是將多個(gè)

2、提供相似功能的類組成邏輯上相關(guān)的一些單元，以便于管理和記憶。例如system.io類包含了用來處理輸入輸出操作的類。應(yīng)用程序：在同一臺(tái)電腦上，添加了虛擬目錄的文件夾就被當(dāng)成一個(gè)獨(dú)立的網(wǎng)站對(duì)待，這個(gè)獨(dú)立的網(wǎng)站就成為一個(gè)應(yīng)用程序。所以用新建一個(gè)應(yīng)用程序的時(shí)候，該軟件會(huì)自動(dòng)幫你生成一個(gè)文件夾，并且在IIS中添加相應(yīng)的虛擬目錄。（1）請(qǐng)比較靜態(tài)網(wǎng)頁(yè)和動(dòng)態(tài)網(wǎng)頁(yè)的工作原理:靜態(tài)網(wǎng)頁(yè)和動(dòng)態(tài)網(wǎng)頁(yè)在客戶端看來是除了發(fā)送請(qǐng)求是的后綴名外沒有其它任何區(qū)別，主要是服務(wù)器端的區(qū)別。靜態(tài)網(wǎng)頁(yè)服務(wù)器在接收了客戶端的請(qǐng)求后直接讀取相應(yīng)的網(wǎng)頁(yè)文件返回給客戶端，而動(dòng)態(tài)網(wǎng)頁(yè)服務(wù)器在接收到了客戶端發(fā)來的請(qǐng)求后先找到相應(yīng)文件然后根據(jù)相

3、應(yīng)參數(shù)將文件編譯成標(biāo)準(zhǔn)的html代碼，在返回給客戶端。第2章 VB.NET程序設(shè)計(jì)基礎(chǔ) P62(2)有100個(gè)和尚吃100個(gè)饅頭,大和尚1人吃4個(gè),小和尚4人吃1個(gè),問有多少個(gè)大和尚和多少個(gè)小和尚? sub page_load() dim m,n,big_monk,small_monk as integer message.text="可能的組合是：<br>" for m=1 to 100 big_monk=m small_monk=100-m if 4*big_monk+small_monk/4.0=100 then message.text+="大

4、和尚：" & big_monk & "個(gè)，小和尚" & small_monk & "個(gè)；<br>" end if next end sub第3章、服務(wù)器控件 P983、普通的HTML標(biāo)記、HTML服務(wù)器控件、Web服務(wù)器控件有什么聯(lián)系和區(qū)別？ HTML服務(wù)器控件和WEB服務(wù)器控件都是從普通HTML發(fā)展過來的，只要給普通HTML代碼添加id和runat=server屬性就變成了HTML服務(wù)器控件，WEB服務(wù)器控件是.net提供的一套全新的控件，它的設(shè)計(jì)合理使用更簡(jiǎn)便，但是目前還沒有和HTML完全一一對(duì)應(yīng)

5、。推薦使用WEB服務(wù)器控件。3、 什么時(shí)候該使用HTML標(biāo)記、HTML服務(wù)器控件、Web服務(wù)器控件？ 在不需要和服務(wù)器端交互的程序中應(yīng)該盡量使用普通html代碼，這樣會(huì)減輕服務(wù)器負(fù)擔(dān)，在需要交互時(shí)盡量使用web服務(wù)器控件，實(shí)在沒有可用的web服務(wù)器控件再考慮html控件。第4章 內(nèi)部對(duì)象P1364、請(qǐng)敘述response的write方法的兩種寫法的區(qū)別及注意事項(xiàng)。 write的兩種寫法：<%response.write(“string”)%> and <%=”string”%>.見：P1114、請(qǐng)將response的write方法與利用標(biāo)簽控件輸出信息進(jìn)行比較。利用re

6、sponse.write方法和label都可以輸出信息，但是label相對(duì)比較容易控制輸入的位置和格式。建議用label。4、請(qǐng)敘述redirect方法、execute方法、tranfer方法、超鏈接四者的聯(lián)系和區(qū)別。 redirect雖然是在服務(wù)器端運(yùn)行，但是重定向?qū)嶋H上發(fā)生在客戶端，但是execute和transfer的重定向是發(fā)生在服務(wù)器端的；execute的重定向完畢后會(huì)返回本頁(yè)面繼續(xù)執(zhí)行下面的程序，但是transfer則不；超鏈接則是純粹的客戶端行為。4、請(qǐng)敘述Session對(duì)象和application對(duì)象各自的作用和最主要的區(qū)別。 session用來在不同的頁(yè)面?zhèn)鬟f同一個(gè)人的信息，

7、而application則在同一頁(yè)面儲(chǔ)存不同用戶的信息。第5章：數(shù)據(jù)庫(kù)基礎(chǔ)知識(shí) P1535、請(qǐng)敘述為什么要采用數(shù)據(jù)庫(kù)來管理數(shù)據(jù)。 采用數(shù)據(jù)庫(kù)來管理數(shù)據(jù)的理由：數(shù)據(jù)庫(kù)是目前最多使用的操作數(shù)據(jù)的方法，因?yàn)閿?shù)據(jù)庫(kù)用戶不再需要知道數(shù)據(jù)的具體存放格式和方法，只要通過標(biāo)準(zhǔn)的數(shù)據(jù)查詢語言來操作數(shù)據(jù)，這樣的數(shù)據(jù)管理快速高效而且易于保存，備份和恢復(fù)。沒有理由還是用前兩種手段來管理數(shù)據(jù)。5、在insert語句中，能否為自動(dòng)編號(hào)字段賦值，為什么？ Insert語句中，不需要為自動(dòng)編號(hào)字段賦值，因?yàn)閿?shù)據(jù)庫(kù)會(huì)自動(dòng)進(jìn)行。第6章 ASP.NET存取數(shù)據(jù)庫(kù) P1826、某數(shù)據(jù)庫(kù)程序可以顯示記錄，但不能添加記錄，請(qǐng)問可能是什么

8、原因？ 可以顯示但是不能添加記錄最可能的原因就是程序?qū)?shù)據(jù)庫(kù)文件只有讀權(quán)限但是沒有寫權(quán)限。6、更新記錄時(shí)可否先刪除、再插入記錄？這樣有什么缺點(diǎn)？（提示：自動(dòng)編號(hào)字段的值可能會(huì)改變） 應(yīng)該是“修改記錄時(shí)可否”；這樣多做一步，服務(wù)器負(fù)擔(dān)加重，而且用update可以只修改一項(xiàng)，但是先刪除后添加就必修把每一項(xiàng)都添加了才能達(dá)到同樣的效果，再者自動(dòng)編號(hào)值會(huì)變化。6、在查詢記錄的時(shí)候，如果只想顯示部分字段的內(nèi)容，應(yīng)該怎么做？如果只想顯示部分記錄，又該怎么做？（提示：參考第五章的SQL語句） 不要使用*，而使用 select 要查詢的字段1，要查詢的字段2 from 表 where 條件語句，就可以只查詢部分

9、字段了，只想顯示部分記錄，只要控制好查詢條件就行了，或者在顯示的時(shí)候做一下判斷。第7章 深入進(jìn)行數(shù)據(jù)庫(kù)編程 P2357、如何在datagrid控件中加上驗(yàn)證控件？ 可以使用TemplateColumn自定義列來給DataGrid添加控件驗(yàn)證功能。7、如何用repeater控件雖更新和刪除記錄？ 雖然Repeater組件不支持更新和查詢，但是可以通過LINKBUTTON添加CommandName 然后根據(jù)不同的Command 進(jìn)行最定義操作，這些操作當(dāng)然可以包括更新和查詢。7、請(qǐng)比較 DataGrid、DataList、Repeater控件的聯(lián)系和區(qū)別？DataGrid提供了最多的功能，如允許訪

10、問者對(duì)記錄編輯、排序或分頁(yè)。同時(shí)它也是最容易使用的，甚至于簡(jiǎn)單到只需要將之添加到頁(yè)面中而不必額外編寫代碼。不過這些易用性是以性能的損失為代價(jià)的。DataGrid在三種控件中是效率最低的，特別是在使用Web Form的情況下。 通過使用模板，DataList提供了比DataGrid更加優(yōu)秀的界面效果。不過這需要以犧牲一定的開發(fā)時(shí)間為代價(jià)。為了添加排序、分頁(yè)和編輯功能，程序員不得不花費(fèi)比使用DataGrid更多的精力來進(jìn)行編碼，雖然它的性能要優(yōu)于DataGrid。 最后，Repeater允許對(duì)數(shù)據(jù)記錄作最大限度的HTML定制。通常，使用Repeater來顯示數(shù)據(jù)記錄比使用DataGrid和Data

11、List要耗費(fèi)更長(zhǎng)的開發(fā)時(shí)間。另外，它不支持內(nèi)建的編輯、排序和分頁(yè)功能。所幸的是，Repeater在性能上要優(yōu)于其它兩種控件，特別是明顯優(yōu)于DataGrid。第8章 文件和文件夾操作 P2588、請(qǐng)比較file 和fileinfo對(duì)象 比較file和fileinfo對(duì)象：file對(duì)象能實(shí)現(xiàn)對(duì)整個(gè)文件的移動(dòng)，刪除等更改；而fileinfo對(duì)象只能顯示出某文件的信息，不能更改。8、請(qǐng)比較分別用application對(duì)象、數(shù)據(jù)庫(kù)和文本文件實(shí)現(xiàn)計(jì)數(shù)器的優(yōu)劣。 Application對(duì)象作計(jì)數(shù)器好處是方便快捷，但是會(huì)隨著服務(wù)器的重新啟動(dòng)而清零；數(shù)據(jù)庫(kù)可以記錄很多登陸信息，不只是有幾個(gè)人登陸，而且可以很方

12、便的記錄登陸時(shí)間，IP等等信息，但是查詢數(shù)據(jù)庫(kù)會(huì)消耗過多資源；用文本文件可以很方便的查看，更改，不利的一面是不能記錄太多的信息。程序題第三章 服務(wù)器控件 P983、請(qǐng)開發(fā)一個(gè)簡(jiǎn)單的計(jì)算器，輸入兩個(gè)數(shù)后可以求兩個(gè)數(shù)的和、差等。Sub Enter_Click(sender As Object, e As EventArgs) all.visible=falsedim i,j as integerdim m as stringi=Cint(num1.text)j=Cint(num2.text)m=sign.selecteditem.textdim result as integerif m=&quo

13、t;+" then result=i+jelse result=i-jend ifmessage.text=i & m & j & "=" & result &"!" End Sub3、請(qǐng)綜合使用本章講授的控件，開發(fā)一個(gè)個(gè)人注冊(cè)頁(yè)面。要求輸入用戶名、用戶姓名、密碼、出生日期、電話、E-mail等個(gè)人信息，并要求進(jìn)行必要的驗(yàn)證。如有可能，再加上提交個(gè)人照片欄目。正確提交后，顯示輸入的有關(guān)信息。 sub enter_click(sender as object,e as eventargs) dim erro

14、r_1 as exception if page.isvalid=true then registerform.visible=false '隱藏注冊(cè)填寫欄目，顯示注冊(cè)成功信息。 dim strname,strpassword,stremail,strqq,strphone,strtext as string strname=username.text strpassword=userpassword.text stremail=useremail.text strqq=userqq.text strtext=usertext.text '將信息存入數(shù)據(jù)庫(kù) try dim co

15、nn as new oledbconnection("provider=microsoft.jet.oledb.4.0;data source=C:Inetpubwwwrootfuyudedatainfo.mdb") dim strsql as string strsql="insert into users (user_name,user_password,user_email,user_qq,user_text) values('" & strname & "','" & strpa

16、ssword & "','" & stremail & "','" & strqq & "','" & strtext & "')" dim cmd as new oledbcommand(strsql,conn) conn.open() cmd.ExecuteNonQuery() conn.close() message.text="<br><br>注冊(cè)成功!thank

17、s,<p/>從這里<a href=login.aspx><font color=green>登陸</font></a>" catch error_1 message.text="您輸入的用戶名已經(jīng)存在 或者在保存數(shù)據(jù)時(shí)發(fā)生了其它錯(cuò)誤，請(qǐng)你重新輸入，具體錯(cuò)誤為：<p/>" & error_1.tostring() end try end ifend sub 3、請(qǐng)開發(fā)一個(gè)簡(jiǎn)單的在線考試程序，可以包括若干道單選題、多選題、單擊交卷按鈕后就可以根據(jù)標(biāo)準(zhǔn)答案在線評(píng)分。<script la

18、nguage="vb" runat="server">Sub enter_click(ByVal sender As System.Object, ByVal e As System.EventArgs)Dim defen As Integerdefen = 0If danxuan1.SelectedIndex = 2 Thendefen += 20End IfIf danxuan2.SelectedIndex = 3 Thendefen += 20End IfIf danxuan3.SelectedIndex = 0 Thendefen += 2

19、0End IfIf duoxuan1.Items(0).Selected And duoxuan1.Items(1).Selected And (Not duoxuan1.Items(2).Selected) And (Not duoxuan1.Items(3).Selected) Thendefen += 20End IfIf duoxuan2.Items(0).Selected And duoxuan2.Items(1).Selected And duoxuan2.Items(2).Selected And (Not duoxuan1.Items(3).Selected) Thendefe

20、n += 20End Iffenshu.Text = "<font color=red>您得了" + defen.ToString() + "分！</font>"End Sub第四章 內(nèi)部對(duì)象 P1364、請(qǐng)開發(fā)一個(gè)頁(yè)面，顯示來訪者的IP地址。并判斷：如果IP地址以202.118開頭的，則顯示歡迎信息；否則顯示為非法用戶，并終止程序。sub page_load()dim str as stringstr=request.servervariables("remote_addr")response.write(&

21、quot;您的ip地址為： " & str & "<br>")'定義一個(gè)數(shù)組來保存分割后的字符串dim str_splited() as stringstr_splited=str.split(".")if str_splited(0)="202" and str_splited(1)="118" then response.write("歡迎您的到來")else response.write("未經(jīng)允許的IP侵入")end if

22、 end sub 4、請(qǐng)?jiān)谧约旱膫€(gè)人主頁(yè)上加上訪問人數(shù)。Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load'在此處放置初始化頁(yè)的用戶代碼Application.Lock()Application("user_visit_num") += 1Application.UnLock()Dim visitednum As Integervisitednum = Application("user_visit_num

23、")message.Text = "您是第<font color=red>" + visitednum.ToString + "</font>位訪客，welcome！"End Sub第六章 ASP.NET存取數(shù)據(jù)庫(kù) P1816、請(qǐng)參照示例開發(fā)一個(gè)簡(jiǎn)單的留言板程序，可以顯示、添加和刪除信息。 strSql = "select * from info" conn.Open() cmd = New OleDbCommand(strSql, conn) Dim dr As OleDbDataReader =

24、cmd.ExecuteReader() Try Do While dr.Read() liuyan.Text += "留言者：" + dr.Item("author") + "留言內(nèi)容：" + dr.Item("liuyan") + "(" + dr.Item("posttime").ToString + ")" + "<a href='2.aspx?action=del&id=" + dr.Item("

25、id").ToString + "'><font color=red>刪除留言</font></a><br>" Loop If liuyan.Text = "" Then liuyan.Text = "暫時(shí)沒有留言！" End If Catch ex As Exception liuyan.Text = "程序出錯(cuò)" + ex.Message End Try conn.Close() End Sub Sub add(ByVal sender A

26、s Object, ByVal e As System.EventArgs) '添加留言 Dim _author, _liuyan As String _author = author.Text.ToString _liuyan = addliuyan.Text.ToString If Not _author = "" And Not _liuyan = "" Then strSql = "insert into info (author,liuyan) values ('" + _author + "

27、9;,'" + _liuyan + "')" conn.Open() cmd = New OleDbCommand(strSql, conn) cmd.ExecuteNonQuery() conn.Close() End If End Sub6、請(qǐng)參照示例開發(fā)用戶注冊(cè)和登錄模塊。 If Session("UserName") = "" Then welcome.Text = "您還沒有登陸，請(qǐng)選擇<a href=reg.aspx>注冊(cè)</a>或者<a href=logi

28、n.aspx>登陸</a>" Else welcome.Text = "歡迎您：" + Session("UserName") End If End SubSub Login(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim myname As String = _myName.Text Dim mypass As String = _myPasswd.Text If Not myname = "" And Not mypass

29、= "" Then message.Text = checkuser(myname, mypass) If message.Text = "ok" Then Session("UserName") = myname Response.Redirect("default.aspx") End If Else message.Text = "請(qǐng)?zhí)顚懲暾男畔?quot; End If End Sub Function checkuser(ByVal n As String, ByVal p As String

30、) As String Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("myuser.mdb") Dim strSql As String = "select * from myusers where username='" + n + "' and userpasswd='" + p + "'" conn.O

31、pen() Dim cmd As New OleDbCommand(strSql, conn) Dim dr As OleDbDataReader = cmd.ExecuteReader() If dr.Read() Then Return "ok" Else Return "信息出錯(cuò)，請(qǐng)確認(rèn)" End If conn.Close() End Function Sub reg(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim myname As String = _myName

32、.Text Dim mypass As String = _myPasswd.Text If Not myname = "" And Not mypass = "" Then message.Text = saveuser(myname, mypass) If message.Text = "ok" Then Session("UserName") = myname Response.Redirect("default.aspx") End If Else message.Text = &quo

33、t;請(qǐng)?zhí)顚懲暾男畔?quot; End If End Sub Function saveuser(ByVal n As String, ByVal p As String) As String Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("myuser.mdb") Dim strSql As String = "insert into myusers(username,userpassw

34、d) values ('" + n + "','" + p + "')" conn.Open() Dim cmd As New OleDbCommand(strSql, conn) Try cmd.ExecuteNonQuery() Return "ok" Catch ex As Exception Return "注冊(cè)出錯(cuò)，請(qǐng)聯(lián)系管理員" + ex.ToString End Try conn.Close() End Function第七章 深入進(jìn)行數(shù)據(jù)庫(kù)編程 P2357、

35、請(qǐng)利用數(shù)據(jù)庫(kù)在首頁(yè)開發(fā)一個(gè)計(jì)數(shù)器。Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) '在此處放置初始化頁(yè)的用戶代碼 If Page.IsPostBack = False Then '鏈接數(shù)據(jù)庫(kù) 讀取并更新數(shù)據(jù)() Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("log.mdb") Dim strsql

36、 As String strsql = "select * from info" Dim cmd As New OleDbCommand(strsql, conn) conn.Open() Dim dr As OleDbDataReader = cmd.ExecuteReader() dr.Read() message.Text = dr.Item("visitednumber") conn.Close() 'strsql = "update info(visitednumber) values('" + (messa

37、ge.Text + 1).ToString + "')" strsql = "update info set visitednumber = " + (message.Text + 1).ToString '+ "where id=1" cmd = New OleDbCommand(strsql, conn) conn.Open() cmd.ExecuteNonQuery() conn.Close() End Ifa End Sub第八章 文件及文件夾操作 P2578、請(qǐng)開發(fā)一個(gè)故事接龍網(wǎng)頁(yè)Sub Page_Load(

38、ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '在此處放置初始化頁(yè)的用戶代碼 Dim myfile As String = Server.MapPath("story.txt") Dim sw As StreamWriter Dim sr As StreamReader If File.Exists(myfile) = False Then sw = New StreamWriter(myfile, False, Encoding.Default) sw

39、.Close() story.Text = "故事就從你開始." Else sr = New StreamReader(myfile, Encoding.Default) story.Text = sr.ReadToEnd() sr.Close() End If End Sub Sub AddTheStory(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim addwhat As String addwhat = "<p>" + addstory.Text Dim

40、myfile As String = Server.MapPath("story.txt") Dim sw As New StreamWriter(myfile, True, Encoding.Default) sw.Write(addwhat) addstory.Text = "" sw.Close() Response.Redirect("1.aspx") End Sub8、請(qǐng)?jiān)谧约旱膫€(gè)人主頁(yè)首頁(yè)上添加計(jì)數(shù)器。Sub Page_Load(Sender As Object, E As EventArgs)Dim visitNumbe

41、r As Long '定義計(jì)數(shù)器變量Dim myfile As String=Server.Mappath("counter2.txt") '定義文件路徑變量Dim sw As StreamWriter '聲明StreamWriter對(duì)象變量Dim sr As StreamReader '聲明StreamReader對(duì)象變量If File.Exists(myfile)=False Then'如果該文件不存在，就建立文件，并寫入1。sw=New StreamWriter(myfile,False,Encoding.Default)sw.Writel