| 07級(jí)計(jì)算機(jī)專業(yè)ASP練習(xí)題 |
| |
| 一、選擇題 1．請(qǐng)判斷下列語(yǔ)句執(zhí)行完畢后，a、b、c的值 <% a="1" + 1 b="1" + "1" c="1" & "1" %> (A) "11","11","11" (B) 2,"11","11" (C) "11",2,"11" (D) "11","11",2 2．執(zhí)行完語(yǔ)句a="2"，a的類(lèi)型為 (A) 數(shù)值型 (B) 字符串型 (C) 布爾型 (D) 日期型 3．執(zhí)行完如下語(yǔ)句后，a的值為： <% Dim a a=3 a=a+1 %> (A) 0 (B) 1 (C) 3 (D) 4 4．執(zhí)行完如下語(yǔ)句后，Sum的值為： <% Dim a(5),Sum Sum=0 For I=0 To 5 a(I)=I Sum=Sum+a(I) Next %> (A) 0 (B) 5 (C) 15 (D) 20 5．執(zhí)行完 a=5 Mod 3 語(yǔ)句后，a的值為： (A) 0 (B) 2 (C) 3 (D) 5 6．執(zhí)行完 a=5>3 And "a"<"c" 語(yǔ)句后，a的值為： (A) True (B) False (C) 1 (D) 0 7．下面 a=Trim(" vbscript") & Rtrim(" good") 語(yǔ)句后，a的值： (A) " vbscript good" (B) "vbscript good" (C) " vbscriptgood" (D) "vbscriptgood" 8．下面哪個(gè)函數(shù)可以返回當(dāng)前的日期和時(shí)間： (A) Now (B) Date (C) Time (D) DateTime 9．對(duì)于利用 Dim a(4,5) 語(yǔ)句定義的二維數(shù)組，Ubound(a,1)將返回 (A) 0 (B) 4 (C) 5 (D) 6 10．對(duì)于Request對(duì)象，如果省略獲取方法，如Request(“user_name”)，將按什么順序依次檢查是否有信息傳入： （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、Server Variables、ClientCertificate 11．下面哪條語(yǔ)句可以返回訪問(wèn)者的IP地址 (A) Request.ServerVariables("REMOTE_ADDR") (B) Request.ServerVariables("REMOTE_IP") (C) Request.ClientCertificate("REMOTE_ADDR ") (D) Request.ClientCertificate ("REMOTE_IP ") 12．執(zhí)行完如下語(yǔ)句后，頁(yè)面上顯示的內(nèi)容為： <% Response.Write "A" Response.End Response.Write "B" %> C (A) A (B) AB (C) AC (D) ABC 13．請(qǐng)問(wèn)下面程序段執(zhí)行完畢，頁(yè)面上顯示內(nèi)容是什么： <% Response.Write “<a >新浪</a>” %> (A) 新浪 (B) <a >新浪</a> (C) 新浪（超鏈接） (D) 該句有錯(cuò)，無(wú)法正常輸出 14．Session對(duì)象的默認(rèn)有效期為多少分鐘？ (A) 10 (B) 15 (C) 20 (D) 應(yīng)用程序從啟動(dòng)到結(jié)束 15．請(qǐng)問(wèn)下面程序段執(zhí)行完畢，頁(yè)面上顯示內(nèi)容是什么： <% Response.Write Server.HTMLEncode(“<a >新浪</a>”) %> (A) 新浪 (B) <a >新浪</a> (C) 新浪（超鏈接） (D) 該句有錯(cuò)，無(wú)法正常輸出 16．當(dāng)使用事務(wù)處理時(shí)，假如要提交事務(wù)處理，應(yīng)該利用如下方法： (A) BeginTrans (B) EndTrans (C) CommitTrans (D) RollBackTrans 17．如果剛打開(kāi)了一個(gè)含有1條記錄的記錄集，那么 Bof的值為 (A) 1 (B) True (C) False (D) NULL 18．使用W3 Jmail組件發(fā)送E-mail時(shí)，附件必須位于 (A) 客戶端 (B) 服務(wù)器端 (C) 服務(wù)器端和客戶端 (D) 服務(wù)器端或客戶端 19．對(duì)于文件上傳組件，如果希望獲取上傳文件的大小，應(yīng)該怎樣用？ (A) Upload.Files("upfile").Size (B) Upload.Form("upfile").Size (C) Request.Files("upfile").Size (D) Request.Form("upfile").Size 20．對(duì)于如下的文件超鏈接組件中使用的超鏈接數(shù)據(jù)文件，文件路徑和說(shuō)明之間應(yīng)該用（ ）隔開(kāi)。 webcourse/www_1.htm 第一講利用工具軟件制作網(wǎng)頁(yè) webcourse/www_2.htm 第二講網(wǎng)頁(yè)制作高級(jí)功能 webcourse/www_3.htm 第三講利用源代碼開(kāi)發(fā)網(wǎng)頁(yè) (A) 空格 (B) Tab (C) (D) Space 二、填空題 1. ASP文件就是在普通的HTML文件中插入 或JavaScript腳本語(yǔ)言。 2. 如果操作系統(tǒng)是Windows 2000，一般需要安裝 組件才能運(yùn)行ASP程序。 3. 執(zhí)行完 a= Left("vbscript",2) & Mid("vbscript",3,4) & Right("vbscript",2) 后，a的值為 。 4. 語(yǔ)句 a=DateAdd(" ",10,Date()) 將返回10天后是幾號(hào)。 5. 語(yǔ)句 b=Int(10 * ) +1) 將返回1到10之間的隨機(jī)整數(shù)。 6. 在文件開(kāi)頭添加 語(yǔ)句后，則所有的變量都必須先聲明才能使用。 7. 在數(shù)據(jù)庫(kù)的表中，縱的一行叫做一個(gè) ，橫的一行叫做一個(gè) 。 8. 原來(lái)用一個(gè)數(shù)組users保存學(xué)生名單，現(xiàn)在新轉(zhuǎn)來(lái)一位同學(xué)“張峰”，需要將其名字添加到該數(shù)組中，請(qǐng)?zhí)顚?xiě)下面程序段中的空格。 <% Dim users() Redim users(40) users(0)="王軍" users(1)="李俊" …… Redim users(41) users(41)="張峰" %> 9. 下面是一個(gè)函數(shù)，用來(lái)返回從a到b的立方和，請(qǐng)?zhí)顚?xiě)其中的空格。 <% Function Cube(a,b) Dim I,Sum Sum= For I= a To b Sum= Next =Sum End Function %> 10. 下面這段語(yǔ)句，將根據(jù)今天是星期幾，分別在頁(yè)面上顯示一幅圖片，星期一、二顯示p1.jpg，其它時(shí)間顯示p2.jpg。請(qǐng)?zhí)顚?xiě)完整下面的程序。 <% Dim theday theday= (Date()) Select Case theday Case "<img src='p1.jpg'>" Case Else "<img src='p2.jpg'>" End Select %> 11. 很多網(wǎng)站要求客戶必須登錄后才能訪問(wèn)，如果客戶沒(méi)有登錄，就直接訪問(wèn)網(wǎng)站的某個(gè)頁(yè)面，應(yīng)該將其引導(dǎo)到首頁(yè)。請(qǐng)據(jù)此填寫(xiě)下面的空格。 <% If Session("UserName")= Then "index.asp" End If %> 12. 下面的程序段用來(lái)計(jì)算客戶是第幾次訪問(wèn)本站。請(qǐng)?zhí)顚?xiě)其中的空格。 <% Dim varNumber varNumber=Request.Cookies("number") If Then varNumber=1 Else varNumber=varNumber+1 End If . =varNumber . =#2030-1-1# Response.Write "您是第" & varNumber & "次訪問(wèn)本站" %> 13. 假如Application("UserOnLine")中保存了一個(gè)數(shù)組，該數(shù)組中保存了在線用戶的名稱，下面的程序段從其中讀取所有用戶名，并顯示在頁(yè)面上，請(qǐng)?zhí)顚?xiě)其中的空格。 <% Dim UserOnLine,Number UserOnLine=Application("UserOnLine") Number= (UserOnLine) '返回該數(shù)組的最大下標(biāo) For I=0 To Number Response.Write Next %> 14. 對(duì)于如下圖的數(shù)據(jù)表link，請(qǐng)?zhí)顚?xiě)下面的SQL語(yǔ)句中的空格： 圖1 查詢2003年1月1日到2004年1月1日之間的提交的網(wǎng)站，并按提交日期將序排列 strSql="Select * From link Where submit_date #2003-1-1# And #2004-1-1# Order By submit_date " 查詢2004年1月1日以后提交的網(wǎng)站總數(shù)目 strSql="Select As Total From link Where submit_date > #2004-1-1#" 15. 針對(duì)上面圖1所示，下面要在頁(yè)面上按提交日期降序排列所有的網(wǎng)站，請(qǐng)?zhí)顚?xiě)下面程序段中的空格。假設(shè)數(shù)據(jù)庫(kù)文件wwwlink.mdb和本文件存放在同一個(gè)文件夾下，數(shù)據(jù)表名為link。 <table> <tr> <td>網(wǎng)站名稱</td><td>網(wǎng)站地址</td><td>提交日期</td> </tr> <% '以下連接數(shù)據(jù)庫(kù) Dim db Set db=Server.CreateObject("ADODB.Connection") db.Open '以下建立記錄集 Dim strSql,rs strSql= set rs=db.execute(strsql) '以下顯示數(shù)據(jù)庫(kù)記錄 Do While %> <tr> <td><%=rs("name")%></td> <td><a href=" " target="_blank"><%=rs("URL")%></a> </td> <td><%=rs("submit_date")%></td> </tr> <% Loop %> </table> 16. 針對(duì)上面圖1所示，下面是分頁(yè)顯示所有網(wǎng)站的名稱的語(yǔ)句，每頁(yè)顯示10條記錄，請(qǐng)?zhí)顚?xiě)其中的空格。 <% Dim db,rs,strSql '建立Connection對(duì)象 Set db=Server.CreateObject("ADODB.Connection") db.Open "Dsn=addr" '這里利用數(shù)據(jù)源連接 '建立Recordset對(duì)象 Set rs=Server.CreateObject("ADODB.Recordset") strSql ="Select * From users order by name Asc" rs.Open '如果記錄集不是空的，就執(zhí)行分頁(yè)顯示 If Then '下面一段判斷當(dāng)前顯示第幾頁(yè)，如是第一次打開(kāi)，為1，否則由傳回參數(shù)決定 Dim page_no If Request.QueryString("page_no")="" Then page_no=1 Else page_no= (Request.QueryString ("page_no")) End If '下面一段開(kāi)始分頁(yè)顯示，指向要顯示的頁(yè)，然后逐條顯示當(dāng)前頁(yè)的所有記錄。 rs. =10 rs. =page_no Dim I I=10 Do While And I=I-1 Response.Write rs("name") & "<br>" rs.MoveNext Loop '下面一段在下方顯示頁(yè)數(shù)信息，從1到總頁(yè)數(shù)循環(huán) ...... Else Response.Write "該記錄集為空" End If %> 17. 下面這段程序，打開(kāi)本文件夾下的文本文件test.txt，并讀取其中所有的內(nèi)容顯示在頁(yè)面上，請(qǐng)?zhí)顚?xiě)其中的空格。 <% Dim 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 "<br>" Loop %> |
聯(lián)系客服
