动态网页制作期末复习题

动态网页制作期末复习题三一、选择题1．请判断下列语句执行完毕后，a、b、c的值<%a="1"+1b="1"+"1"c="1"&"1"%>(A)"11","11","11"(B)2,"11","11"(C)"11",2,"11"(D)"11","11",22．执行完语句a="2"，a的类型为(A)数值型(B)字符串型(C)布尔型(D)日期型3．执行完以下语句后，a的值为：<%Dimaa=3a=a+1%>(A)0(B)1(C)3(D)44．执行完以下语句后，Sum的值为：<%Dima(5),SumSum=0ForI=0To5 a(I)=I Sum=Sum+a(I)Next%>(A)0(B)5(C)15(D)205．执行完a=5Mod3语句后，a的值为：(A)0(B)2(C)3(D)56．执行完a=5>3And"a"<"c"语句后，a的值为：(A)True(B)False(C)1(D)07．下面a=Trim("vbscript")&Rtrim("good")语句后，a的值：(A)"vbscriptgood"(B)"vbscriptgood"(C)"vbscriptgood"(D)"vbscriptgood"8．下面哪个函数能够返回现在的日期和时间：(A)Now(B)Date(C)Time(D)DateTime9．对于运用Dima(4,5)语句定义的二维数组，Ubound(a,1)将返回(A)0(B)4(C)5(D)610．对于Request对象，如果省略获取办法，如Request(“user_name”)，将按什么次序依次检查与否有信息传入：（A）Form、QueryString、Cookies、ServerVariables、ClientCertificate（B）QueryString、Form、Cookies、ServerVariables、ClientCertificate（C）Cookies、QueryString、Form、ServerVariables、ClientCertificate（D）Form、QueryString、Cookies、ServerVariables、ClientCertificate11．下面哪条语句能够返回访问者的IP地址(A)Request.ServerVariables("REMOTE_ADDR")(B)Request.ServerVariables("REMOTE_IP")(C)Request.ClientCertificate("REMOTE_ADDR")(D)Request.ClientCertificate("REMOTE_IP")12．执行完以下语句后，页面上显示的内容为：<%Response.Write"A"Response.EndResponse.Write"B"%>C(A)A(B)AB(C)AC(D)ABC13．请问下面程序段执行完毕，页面上显示内容是什么：<%Response.Write“<ahref=''>新浪</a>”%>(A)新浪(B)<ahref=''>新浪</a>(C)新浪（超链接）(D)该句有错，无法正常输出14．Session对象的默认使用期为多少分钟？(A)10(B)15(C)20(D)应用程序从启动到结束15．请问下面程序段执行完毕，页面上显示内容是什么：<%Response.WriteServer.HTMLEncode(“<ahref=''>新浪</a>”)%>(A)新浪(B)<ahref=''>新浪</a>(C)新浪（超链接）(D)该句有错，无法正常输出16．当使用事务解决时，如果要提交事务解决，应当运用以下办法：(A)BeginTrans(B)EndTrans(C)CommitTrans(D)RollBackTrans17．如果刚打开了一种含有1条统计的统计集，那么Bof的值为(A)1(B)True(C)False(D)NULL18．使用W3Jmail组件发送E-mail时，附件必须位于(A)客户端(B)服务器端(C)服务器端和客户端(D)服务器端或客户端19．对于文献上传组件，如果但愿获取上传文献的大小，应当如何用？(A)Upload.Files("upfile").Size(B)Upload.Form("upfile").Size(C)Request.Files("upfile").Size(D)Request.Form("upfile").Size20．对于以下的文献超链接组件中使用的超链接数据文献，文献途径和阐明之间应当用（）隔开。webcourse/www_1.htm 第一讲运用工具软件制作网页webcourse/www_2.htm 第二讲网页制作高级功效webcourse/www_3.htm 第三讲运用源代码开发网页(A)空格(B)Tab(C) (D)Space二、填空题1.

ASP文献就是在普通的HTML文献中插入或javascript脚本语言。2.

如果操作系统是Windows，普通需要安装组件才干运行ASP程序。3.

执行完a=Left("vbscript",2)&Mid("vbscript",3,4)&Right("vbscript",2)后，a的值为。4.

语句a=DateAdd("",10,Date())将返回10天后是几号。5.

语句b=Int(10*)+1)将返回1到10之间的随机整数。6.

在文献开头添加语句后，则全部的变量都必须先声明才干使用。7.

在数据库的表中，纵的一行叫做一种，横的一行叫做一种。8.

原来用一种数组users保存学生名单，现在新转来一位同窗“张峰”，需要将其名字添加到该数组中，请填写下面程序段中的空格。<%Dimusers()Redimusers(40)users(0)="王军"users(1)="李俊"……Redimusers(41)users(41)="张峰"%>9.

下面是一种函数，用来返回从a到b的立方和，请填写其中的空格。<%FunctionCube(a,b) DimI,Sum Sum= ForI=aTob Sum= Next =SumEndFunction%>10.

下面这段语句，将根据今天是星期几，分别在页面上显示一幅图片，星期一、二显示p1.jpg，其它时间显示p2.jpg。请填写完整下面的程序。<%Dimthedaytheday=(Date())SelectCasethedayCase "<imgsrc='p1.jpg'>"CaseElse "<imgsrc='p2.jpg'>"EndSelect%>11.

诸多网站规定客户必须登录后才干访问，如果客户没有登录，就直接访问网站的某个页面，应当将其引导到首页。请据此填写下面的空格。<%IfSession("UserName")=Then "index.asp"EndIf%>12.

下面的程序段用来计算客户是第几次访问本站。请填写其中的空格。<%DimvarNumbervarNumber=Request.Cookies("number")IfThen varNumber=1Else varNumber=varNumber+1EndIf.=varNumber.=#2030-1-1#Response.Write"您是第"&varNumber&"次访问本站"%>13.

如果Application("UserOnLine")中保存了一种数组，该数组中保存了在线顾客的名称，下面的程序段从其中读取全部顾客名，并显示在页面上，请填写其中的空格。<%DimUserOnLine,NumberUserOnLine=Application("UserOnLine")Number=(UserOnLine)'返回该数组的最大下标ForI=0ToNumber Response.WriteNext%>对于以下图的数据表link，请填写下面的SQL语句中的空格：网站名网站地址网站介绍提交日期百度www.百度.com门户网站-1-2图1查询1月1日strSql="Select*FromlinkWheresubmit_date#-1-1#And#-1-1#OrderBysubmit_date"查询1月strSql="SelectAsTotalFromlinkWheresubmit_date>#-1-1#"15.

针对上面图1所示，下面要在页面上按提交日期降序排列全部的网站，请填写下面程序段中的空格。假设数据库文献wwwlink.mdb和本文献寄存在同一种文献夹下，数据表名为link。 <table> <tr> <td>网站名称</td><td>网站地址</td><td>提交日期</td> </tr> <% '下列连接数据库 Dimdb Setdb=Server.CreateObject("ADODB.Connection") db.Open '下列建立统计集 DimstrSql,rs strSql= setrs=db.execute(strsql) '下列显示数据库统计 DoWhile %> <tr> <td><%=rs("name")%></td> <td><ahref=""target="_blank"><%=rs("URL")%></a></td> <td><%=rs("submit_date")%></td> </tr> <% Loop %> </table>16.

针对上面图1所示，下面是分页显示全部网站的名称的语句，每页显示10条统计，请填写其中的空格。 <% Dimdb,rs,strSql '建立Connection对象 Setdb=Server.CreateObject("ADODB.Connection") db.Open"Dsn=addr"'这里运用数据源连接 '建立Recordset对象 Setrs=Server.CreateObject("ADODB.Recordset") strSql="Select*FromusersorderbynameAsc" rs.Open '如果统计集不是空的，就执行分页显示 IfThen '下面一段判断现在显示第几页，如是第一次打开，为1，否则由传回参数决定 Dimpage_no IfRequest.QueryString("page_no")=""Then page_no=1 Else page_no=(Request.QueryString("page_no")) EndIf '下面一段开始分页显示，指向要显示的页，然后逐条显示现在页的全部统计。 rs.=10 rs.=page_no DimI I=10 DoWhileAnd I=I-1 Response.Writers("name")&"<br>" rs.MoveNext Loop '下面一段在下方显示页数信息，从1到总页数循环 Else Response.Write"该统计集为空" EndIf %>17.

下面这段程序，打开本文献夹下的文本文献test.txt，并读取其中全部的内容显示在页面上，请填写其中的空格。 <% Dimfso Setfso=Server.CreateObject("Scripting.FileSystemObject") DimTextFile SetTextFile=fso.(Server.MapPath("test.txt") DoWhileNotTextFile. Response.WriteTextFile.ReadLine Response.Write"<br>" Loop %>三、编程题1．运用Recodset对象也能够插入统计，现在针对图1所示的数据表，运用插入一条统计：其中网站名称为“搜狐”，网站地址为“.com”，网站介绍为“门户网站”，提交日期为当天。注意：只给出重要代码即可，程序的开头部分已经给出。 <% Dimdb,strConn strConn="Dbq="&Server.Mappath("address.mdb")&";Driver={MicrosoftAccessDriver(*.mdb)}" Setdb=Server.CreateObject("ADODB.Connection")2．针对图1，现在有两个文献add_form.asp和add.asp，这两个文献用来向表中添加统计，add_form.asp已经给出，请你完毕add.asp。规定：（1）只要完毕添加统计的重要代码；（2）网站介绍（intro）能够省略，其它字段均不能够省略。Add_form.asp <formname="form1"method="post"action="add.asp"> <tr> <td>网站名称</td><td><inputtype="text"name="name"size=20></td> </tr><tr> <td>网站地址</td><td><inputtype="text"name="URL"size=40></td> </tr><tr> <td>网站介绍</td><td> <textareaname="intro"rows="2"cols="40"wrap="soft"></textarea></td> </tr><tr> <td></td><td><inputtype="submit"value="确定"></td> </tr> </form>add.asp（请在下面完毕add.asp，开头部分语句和最后一条语句已经给出，只要在中间添加语句即可）<%OptionExplicit%><%IfRequest.Form("name")<>""AndRequest.Form("URL")<>""Then '下列连上数据库，建立一种Connection对象实例db Dimdb Setdb=Server.CreateObject("ADODB.Connection") db.Open"Dbq="&Server.Mappath("wwwlink.mdb")&";Driver={MicrosoftAccessDriver(*.mdb)};"EndIf%>参考答案一．选择题BBDCBABABBAACCBCCBAB二．填空题1．

VBScript2．

IIS3．

“vbscript”4．

D5．

Rnd或Rnd()6．

<%OptionExplicit%>7．

字段统计8．

Preserve(阐明：这样就能够保存原有数据，否则就不能保存)9．

0Sum+I^3Cube10．

Weekday2,3Response.WriteResponse.Write11．

“”Response.Redirect12．

VarNumber=””Response.Cookies(“number”)Response.Cookies(“number”).Expires13．

UboundUserOnLine(I)14．

BetweenDescCount(*)15．

"Dbq="&Server.Mappath("wwwlink.mdb")&";Driver={MicrosoftAccessDriver(*.mdb)}""Select*FromlinkOrderBySubmit_dateDesc"Notrs.Eof<%=rs("URL")%>rs.MoveNext16．

strSql,db,1Notrs.BofAndNotrs.EofCIntPageSizeAbsolutePageNotrs.EofI>017．

OpenTextFileAtEndOfStream三．编程题1． <% Dimdb,strConn