動態(tài)網(wǎng)頁制作作業(yè)(含答案)

1、動 態(tài) 網(wǎng) 頁 制 作 作 業(yè)姓名：常小梅動態(tài)網(wǎng)頁制作作業(yè)一、選擇題（每小題2分，共40分）1請判斷下列語句執(zhí)行完畢后，a、b、c的值 （B）(A) 11,11,11 (B) 2,11,11 (C) 11,2,11 (D) 11,11,22執(zhí)行完語句a=2，a的類型為 （B）(A) 數(shù)值型 (B) 字符串型 (C) 布爾型 (D) 日期型3執(zhí)行完如下語句后，a的值為： （D）(A) 0 (B) 1 (C) 3 (D) 44執(zhí)行完如下語句后，Sum的值為： （C）(A) 0 (B) 5 (C) 15 (D) 205執(zhí)行完 a=5 Mod 3 語句后，a的值為： （B）(A) 0 (B) 2 (C

2、) 3 (D) 56執(zhí)行完 a=53 And ac 語句后，a的值為： （A）(A) True (B) False (C) 1 (D) 07下面 a=Trim( vbscript) & Rtrim( good) 語句后，a的值： （B）(A) vbscript good (B) vbscript good (C) vbscriptgood(D) vbscriptgood8下面哪個函數(shù)可以返回當前的日期和時間： （A）(A) Now (B) Date (C) Time (D) DateTime9對于利用 Dim a(4,5) 語句定義的二維數(shù)組，Ubound(a,1)將返回 （B）(A) 0 (

3、B) 4 (C) 5 (D) 610對于Request對象，如果省略獲取方法，如Request(“user_name”)，將按什么順序依次檢查是否有信息傳入： （B）（A）Form、QueryString、Cookies、Server Variables、ClientCertificate（B）QueryString、Form、Cookies、Server Variables、ClientCertificate （C）Cookies、QueryString、Form、Server Variables、ClientCertificate （D）Form、QueryString、Cookies、S

4、erver Variables、ClientCertificate11下面哪條語句可以返回訪問者的IP地址 （A）(A) Request.ServerVariables(REMOTE_ADDR)(B) Request.ServerVariables(REMOTE_IP)(C) Request.ClientCertificate(REMOTE_ADDR )(D) Request.ClientCertificate (REMOTE_IP )12執(zhí)行完如下語句后，頁面上顯示的內(nèi)容為： （A）C (A) A (B) AB (C) AC (D) ABC13請問下面程序段執(zhí)行完畢，頁面上顯示內(nèi)容是什么：

5、（C）%Response.Write “新浪”%(A) 新浪 (B) 新浪(C) 新浪（超鏈接） (D) 該句有錯，無法正常輸出14Session對象的默認有效期為多少分鐘？ （C）(A) 10 (B) 15 (C) 20 (D) 應(yīng)用程序從啟動到結(jié)束15請問下面程序段執(zhí)行完畢，頁面上顯示內(nèi)容是什么： （B）%Response.Write Server.HTMLEncode(“新浪”)%(A) 新浪 (B) 新浪(C) 新浪（超鏈接） (D) 該句有錯，無法正常輸出16當使用事務(wù)處理時，假如要提交事務(wù)處理，應(yīng)該利用如下方法： （C）(A) BeginTrans (B) EndTrans (C)

6、 CommitTrans (D) RollBackTrans17如果剛打開了一個含有1條記錄的記錄集，那么 Bof的值為 （C）(A) 1 (B) True (C) False (D) NULL18使用W3 Jmail組件發(fā)送E-mail時，附件必須位于 （B）(A) 客戶端 (B) 服務(wù)器端 (C) 服務(wù)器端和客戶端 (D) 服務(wù)器端或客戶端19對于文件上傳組件，如果希望獲取上傳文件的大小，應(yīng)該怎樣用？ （A）(A) Upload.Files(upfile).Size(B) Upload.Form(upfile).Size (C) Request.Files(upfile).Size (D)

7、 Request.Form(upfile).Size20對于如下的文件超鏈接組件中使用的超鏈接數(shù)據(jù)文件，文件路徑和說明之間應(yīng)該用（ B ）隔開。webcourse/www_1.htm第一講利用工具軟件制作網(wǎng)頁webcourse/www_2.htm第二講網(wǎng)頁制作高級功能webcourse/www_3.htm第三講利用源代碼開發(fā)網(wǎng)頁(A) 空格 (B) Tab (C) (D) Space二、填空題（每空1分，共40分）ASP文件就是在普通的HTML文件中插入 VBScript 或JavaScript腳本語言。如果操作系統(tǒng)是Windows 2000，一般需要安裝 IIS 組件才能運行ASP程序。執(zhí)行

8、完 a= Left(vbscript,2) & Mid(vbscript,3,4) & Right(vbscript,2) 后，a的值為 vbscript 。語句 a=DateAdd( d ,10,Date() 將返回10天后是幾號。語句 b=Int(10 * Rnd或Rndc ) +1) 將返回1到10之間的隨機整數(shù)。在文件開頭添加 % Option Explicit% 語句后，則所有的變量都必須先聲明才能使用。在數(shù)據(jù)庫的表中，縱的一行叫做一個 字段 ，橫的一行叫做一個 記錄 。原來用一個數(shù)組users保存學(xué)生名單，現(xiàn)在新轉(zhuǎn)來一位同學(xué)“張峰”，需要將其名字添加到該數(shù)組中，請?zhí)顚懴旅娉绦蚨沃械?/p>

9、空格。下面是一個函數(shù)，用來返回從a到b的立方和，請?zhí)顚懫渲械目崭?。下面這段語句，將根據(jù)今天是星期幾，分別在頁面上顯示一幅圖片，星期一、二顯示p1.jpg，其它時間顯示p2.jpg。請?zhí)顚懲暾旅娴某绦颉?Dim thedatheday= Weekday (Date()Select Case thedayCase 2,3 Response.Write Case Else Response.Write End Select %很多網(wǎng)站要求客戶必須登錄后才能訪問，如果客戶沒有登錄，就直接訪問網(wǎng)站的某個頁面，應(yīng)該將其引導(dǎo)到首頁。請據(jù)此填寫下面的空格。下面的程序段用來計算客戶是第幾次訪問本站。請?zhí)顚懫渲?/p>

10、的空格。假如Application(UserOnLine)中保存了一個數(shù)組，該數(shù)組中保存了在線用戶的名稱，下面的程序段從其中讀取所有用戶名，并顯示在頁面上，請?zhí)顚懫渲械目崭?。對于如下圖的數(shù)據(jù)表link，請?zhí)顚懴旅娴腟QL語句中的空格：圖1查詢2003年1月1日到2004年1月1日之間的提交的網(wǎng)站，并按提交日期將序排列strSql=Select * From link Where submit_date Between #2003-1-1# And #2004-1-1# Order By submit_date Desc 查詢2004年1月1日以后提交的網(wǎng)站總數(shù)目strSql=Select Co

11、unt(*)As Total From link Where submit_date #2004-1-1#針對上面圖1所示，下面要在頁面上按提交日期降序排列所有的網(wǎng)站，請?zhí)顚懴旅娉绦蚨沃械目崭?。假設(shè)數(shù)據(jù)庫文件wwwlink.mdb和本文件存放在同一個文件夾下，數(shù)據(jù)表名為link。網(wǎng)站名稱網(wǎng)站地址提交日期a href= target=_blank 針對上面圖1所示，下面是分頁顯示所有網(wǎng)站的名稱的語句，每頁顯示10條記錄，請?zhí)顚懫渲械目崭瘛?Dim db,rs,strSql建立Connection對象Set db=Server.CreateObject(ADODB.Connection)db.Op

12、en Dsn=addr 這里利用數(shù)據(jù)源連接建立Recordset對象Set rs=Server.CreateObject(ADODB.Recordset)strSql =Select * From users order by name Ascrs.Open strSql,db,1 如果記錄集不是空的，就執(zhí)行分頁顯示If Not rs.Bof And Not rs.Eof Then下面一段判斷當前顯示第幾頁，如是第一次打開，為1，否則由傳回參數(shù)決定Dim page_no If Request.QueryString(page_no)= Then page_no=1 Elsepage_no= C

13、Int (Request.QueryString (page_no) End If下面一段開始分頁顯示，指向要顯示的頁，然后逐條顯示當前頁的所有記錄。rs. PageSize =10 rs. AbsolutePage =page_no Dim I I=10 Do While And I=I-1Response.Write rs(name) & rs.MoveNextLoop下面一段在下方顯示頁數(shù)信息，從1到總頁數(shù)循環(huán)ElseResponse.Write 該記錄集為空End If%下面這段程序，打開本文件夾下的文本文件test.txt，并讀取其中所有的內(nèi)容顯示在頁面上，請?zhí)顚懫渲械目崭瘛?Dim

14、 fso Set fso=Server.CreateObject(Scripting.FileSystemObject)Dim TextFile Set TextFile= fso. (Server.MapPath(test.txt)Do While Not TextFile. Response.Write TextFile.ReadLine Response.Write Loop%三、編程題（每空10分，共30分）1請編寫代碼，在頁面上顯示如下圖形。注意：只要寫出主要代碼即可*2利用Recodset對象也可以插入記錄，現(xiàn)在針對圖1所示的數(shù)據(jù)表，利用插入一條記錄：其中網(wǎng)站名稱為“搜狐”，網(wǎng)站地

15、址為“”，網(wǎng)站簡介為“門戶網(wǎng)站”，提交日期為當天。注意：只給出主要代碼即可，程序的開頭部分已經(jīng)給出。%Dim db, strConnstrConn=Dbq= & Server.Mappath(address.mdb) & ;Driver=Microsoft Access Driver (*.mdb)Set db=Server.CreateObject(ADODB.Connection)3針對圖1，現(xiàn)在有兩個文件add_form.asp和add.asp，這兩個文件用來向表中添加記錄，add_form.asp已經(jīng)給出，請你完成add.asp。要求：（1）只要完成添加記錄的主要代碼；（2）網(wǎng)站簡介（

16、intro）可以省略，其它字段均不可以省略。Add_form.asp網(wǎng)站名稱網(wǎng)站地址網(wǎng)站簡介add.asp（請在下面完成add.asp，開頭部分語句和最后一條語句已經(jīng)給出，只要在中間添加語句即可）% If Request.Form(name) And Request.Form(URL) Then以下連上數(shù)據(jù)庫，建立一個Connection對象實例dbDim db Set db=Server.CreateObject(ADODB.Connection) db.Open Dbq= & Server.Mappath(wwwlink.mdb) & ;Driver=Microsoft Access Dr

17、iver (*.mdb);End If%一、選擇題（每小題2分，共30分）1小王正在家里通過撥號上網(wǎng)訪問搜狐網(wǎng)站，此時誰是服務(wù)器端，誰是客戶端？(B)小王的機器是服務(wù)器端，搜狐網(wǎng)站是客戶端 (B) 搜狐網(wǎng)站是服務(wù)器端，小王的機器是客戶端 (C)小王的機器既是服務(wù)器端，又是客戶端 （D）以上說法全不對2某同學(xué)開發(fā)了一個顯示來訪時間的ASP文件，存放在C:inetpubwwwroot下，請問此時如果在資源管理器中雙擊該文件，該文件可以正常顯示嗎？(B)(A) 可以 (B) 不可以3下列哪個變量名稱是正確的？(C)(A) 111 (B) _sum (C) ab_1 (D)a?b4執(zhí)行完如下語句后，a

18、的值為：(C)(A) 10.223344 (B) 10.2 (C) 10.223 (D) 10.0005下列哪個函數(shù)可以將數(shù)值轉(zhuǎn)換為字符串？(C)(A) Cdate (B)Cint (C) CStr (D) CDbl6 請問Int(3.45)和Int(-3.45)的值分別是什么？(D)(A) 4、-4 (B)3、-4 (C) 3、3 (D) 3、-37 執(zhí)行完如下語句后，sum的值為?(C)% Dim sum,I Sum=0 I=1 Do While I=10Sum=sum+II=I+1If (I Mod 5=0) thenExit do End ifLoop%(A) 55 (B) 15 (C

19、) 10 (D) 458下列幾個是Response對象的方法，哪個是用來輸出二進制信息的。(B)(A) BinaryRead (B) BinaryWrite (C) Flush (D) Write9 Aplication對象的默認有效期為多少分鐘？(D)(A) 10 (B) 15 (C) 20 (D) 應(yīng)用程序從啟動到結(jié)束10問下面程序段執(zhí)行完畢，頁面上顯示的內(nèi)容是什么？(A)(A) 張紅 (B)王剛 (C) 王剛張紅 (D) 語法有錯，無法正常輸出11如有一個數(shù)據(jù)庫，其中有表table，包括3個字段name（文本型）、grade（數(shù)字型）、birthday（日期/時間型），請問下面哪句能正確

20、執(zhí)行？ (A)（其中 varName=”林亞” varGrade=98 varBirthday=#1983-1-1#）(A). strSql=Insert Into table(name,grade,intro) Values(& varName & , & varGrade & ,# & varBirthday & #)(B). strSql=Insert Into table(name,grade,intro) Values( & varName & , & varGrade & ,# & varBirthday & #)(C). strSql=Insert Into table(name

21、,grade,intro) Values( & varName & , & varGrade & , & varBirthday & )(D).strSql=Insert Into table(name,grade,intro) Values(varName, varGrade,# var Birthday#)12問下面程序段執(zhí)行完畢，頁面上顯示內(nèi)容是什么：(B)%Response.Write Server.HTMLEncode(“新浪”)%(A) 新浪 (B) 新浪(C) 新浪（超鏈接） (D) 該句有錯，無法正常輸出13使用事務(wù)處理時，假如要回滾事務(wù)處理，應(yīng)該利用如下方法：(D)(A) B

22、eginTrans (B) EndTrans (C) CommitTrans (D) RollBackTrans14設(shè)定義了記錄集rs, 如果希望打開的記錄集可以前后移動指針，并且可讀可寫，則應(yīng)該為下面哪一句？(B)rs.Open strSql,db (B)rs.Open strSql,db,1,3 (C)rs.Open strSql,db,3 (D)rs.Open strSql,db,115在使用下載組件時，若下載組件是dll文件形式（test.dll），并且我們將該文件存放到C:temptest.dll下，則注冊時還要在運行窗口輸入（ C ） (A) Run C:temptest.dll

23、(B) Run test.dll (C) Regsvr32 C:temptest.dll (D) Regsvr32 test.dll二、填空題（每空3分，共42分）VBScript 中用關(guān)鍵字 Const 來聲明常量。在VBScript中，我們用檢驗函數(shù) IsNumeric 來判斷變量是數(shù)字類型。在VBScript 中，過程有兩種，一種是Sub子程序，一種是Function 函數(shù)，兩者的區(qū)別在于 Sub子程序 只執(zhí)行程序而不返回值，而 Function 函數(shù) 可以將執(zhí)行代碼后的結(jié)果返回給請求程序。執(zhí)行完 a= InStr(“ ”,”)后，a的值為 8 。語句 a=DateDiff( “d” ,

24、Date(),#1/1/2006#) 將返回離2006年元旦還有多少天。在執(zhí)行程序時，有時我們不希望因為程序發(fā)生錯誤而導(dǎo)致程序終止，也不希望將錯誤暴露在訪問者的面前，這時我們就要用到容錯語句 On Error Resume Next ,這條語句表示，如果碰到錯誤，就跳過去繼續(xù)執(zhí)行下一句。ASP的五大內(nèi)部對象包括 Response 、Request、Session、Applicatio、Server 下面的程序段用Cookies來完成設(shè)置關(guān)鍵字user_name的值和有效期，請?zhí)顚懫渲械目崭?。Session對象有它的有效期，默認為 20 分鐘，另外，我們可以利用Session的一個屬性 Time

25、out 可以修改Session對象的有效期時長。Server對象有一個屬性 ScriptTimeout ，可以用來設(shè)定腳本文件的最長執(zhí)行時間，其默認值為90秒。對于W3 Jmail郵件發(fā)送組件，如果信箱是，密碼是123456，發(fā)信服務(wù)器是smtp.163.dom。請寫出執(zhí)行發(fā)送郵件的語句 Jmail.send(jjshang99:123456) 對于如下圖的數(shù)據(jù)表link，請?zhí)顚懴旅娴腟QL語句中的空格：圖1查詢提交日期大于2003-1-1的前三條數(shù)據(jù)記錄，并按提交日期的降序排列strSql=Select top 3 * From link Where submit_date #2003-1-

26、1# Order By submit_date 查詢網(wǎng)站名字中有“網(wǎng)”字的記錄strSql=Select * From link Where desc “針對上面圖1所示，下列程序?qū)⑼瓿蓪ink表中內(nèi)容的更新，所需要更新的字段假設(shè)已經(jīng)從另外一個表單文件中取得，另假設(shè)數(shù)據(jù)庫文件wwwlink.mdb和本文件存放在同一個文件夾下，請?zhí)顚懴旅娉绦蚨沃械目崭瘛?，?shù)據(jù)表名為link。網(wǎng)站名稱網(wǎng)站地址提交日期 下面是利用文件存取組件完成新建一個文本文件test.txt的過程，請?zhí)顚懫渲械目崭?。三、編程題（第一題8分，第二題8分，第三題12分）1有100個和尚吃100個饅頭，大和尚1人吃4個，小和尚4人吃

27、1個，問有多少個大和尚和多少個小和尚？大小和尚吃饅頭問題%Dim I,J,ren,mantouFor I=1 To 100 大和尚從1到100循環(huán)For J=1 To 100 小和尚從1到100循環(huán)ren=I+J 計算總?cè)藬?shù)mantou=I*4+J*0.25 計算總饅頭數(shù)If ren=100 And mantou=100 ThenResponse.write大人= & I & 小孩= & JEnd IfNextNext%2請使用ASP提供的計數(shù)器組件，在頁面上顯示“您是第”X “位訪客”。（只要寫出主要代碼即可）3假設(shè)有數(shù)據(jù)庫address,內(nèi)有表link,該表中包含字段：姓名（name va

28、rchar(50)）,電話(tel varchar(20),email(email varchar(50)，請分頁將link表中的數(shù)據(jù)顯示出來，且每頁顯示記錄8條。查詢?nèi)砍蓡T成員列表姓名電話email0 循環(huán)直到當前頁結(jié)束或文件結(jié)尾I=I-1下面將利用表格輸出名單Response.Write Response.Write & rs(name) & Response.Write & rs(tel) & Response.Write & rs(email) & Response.Write rs.MoveNextLoopResponse.Write 表格結(jié)束 Response.Write 請選擇

29、數(shù)據(jù)頁: 輸出有關(guān)頁數(shù)信息，從1到總頁數(shù)循環(huán)，如不是當前頁，就加上超鏈接For I=1 To page_total If I=page_no Then Response.Write I &  ElseResponse.Write & I &  End IfNextEnd If關(guān)閉對象rs.CloseSet rs=nothingdb.CloseSet db=nothing% 一選擇題（每題2分，共40分）BBDCB ABABB AACCB CCBAB二填空題（每題1分，共40分）VBScriptIIS“vbscript”dRnd或Rnd()字段 記錄Preserve (說明：這樣

30、就可以保留原有數(shù)據(jù)，否則就不能保留)0 Sum+I3 CubeWeekday 2,3 Response.Write Response.Write “” Response.RedirectVarNumber=” Response.Cookies(“number”) Response.Cookies(“number”).Expires Ubound UserOnLine(I)Between Desc Count(*)Dbq= & Server.Mappath(wwwlink.mdb) & ;Driver=Microsoft Access Driver (*.mdb)Select * From link Order By Submit_date DescNot rs.Eofrs.MoveNextstrSql,db,1Not rs.Bof And Not rs.EofCIntPageSizeAbsolutePage一選擇題（每題2分，共40分） BBCCC DCBDA ABDBC二填空題（每題1分，共40分）ConstisNumericSub子程序 、Function 函數(shù)8“d” On Error Resume NextResponse 、Request、Session