动态网页制作作业(含答案)

动态网页制作作业姓名：常小梅动态网页制作作业一、选择题（每小题2分，共40分）1．请判断下列语句执行完毕后，a、b、c的值（B）%a=1+1b=1+1c=1&1%(A)11,11,11(B)2,11,11(C)11,2,11(D)11,11,22．执行完语句a=2，a的类型为（B）(A)数值型(B)字符串型(C)布尔型(D)日期型3．执行完如下语句后，a的值为：（D）%Dimaa=3a=a+1%(A)0(B)1(C)3(D)44．执行完如下语句后，Sum的值为：（C）%Dima(5),SumSum=0ForI=0To5a(I)=ISum=Sum+a(I)Next%(A)0(B)5(C)15(D)205．执行完a=5Mod3语句后，a的值为：（B）(A)0(B)2(C)3(D)56．执行完a=53Andac语句后，a的值为：（A）(A)True(B)False(C)1(D)07．下面a=Trim(vbscript)&Rtrim(good)语句后，a的值：（B）(A)vbscriptgood(B)vbscriptgood(C)vbscriptgood(D)vbscriptgood8．下面哪个函数可以返回当前的日期和时间：（A）(A)Now(B)Date(C)Time(D)DateTime9．对于利用Dima(4,5)语句定义的二维数组，Ubound(a,1)将返回（B）(A)0(B)4(C)5(D)610．对于Request对象，如果省略获取方法，如Request(“user_name”)，将按什么顺序依次检查是否有信息传入：（B）（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）(A)Request.ServerVariables(REMOTE_ADDR)(B)Request.ServerVariables(REMOTE_IP)(C)Request.ClientCertificate(REMOTE_ADDR)(D)Request.ClientCertificate(REMOTE_IP)12．执行完如下语句后，页面上显示的内容为：（A）%Response.WriteAResponse.EndResponse.WriteB%C(A)A(B)AB(C)AC(D)ABC13．请问下面程序段执行完毕，页面上显示内容是什么：（C）%Response.Write“ahref='新浪/a”%(A)新浪(B)ahref='新浪/a(C)新浪（超链接）(D)该句有错，无法正常输出14．Session对象的默认有效期为多少分钟？（C）(A)10(B)15(C)20(D)应用程序从启动到结束15．请问下面程序段执行完毕，页面上显示内容是什么：（B）%Response.WriteServer.HTMLEncode(“ahref='新浪/a”)%(A)新浪(B)ahref='新浪/a(C)新浪（超链接）(D)该句有错，无法正常输出16．当使用事务处理时，假如要提交事务处理，应该利用如下方法：（C）(A)BeginTrans(B)EndTrans(C)CommitTrans(D)RollBackTrans17．如果刚打开了一个含有1条记录的记录集，那么Bof的值为（C）(A)1(B)True(C)False(D)NULL18．使用W3Jmail组件发送E-mail时，附件必须位于（B）(A)客户端(B)服务器端(C)服务器端和客户端(D)服务器端或客户端19．对于文件上传组件，如果希望获取上传文件的大小，应该怎样用？（A）(A)Upload.Files(upfile).Size(B)Upload.Form(upfile).Size(C)Request.Files(upfile).Size(D)Request.Form(upfile).Size20．对于如下的文件超链接组件中使用的超链接数据文件，文件路径和说明之间应该用（B）隔开。webcourse/第二讲网页制作高级功能webcourse/第三讲利用源代码开发网页(A)空格(B)Tab(C) (D)Space二、填空题（每空1分，共40分）1.ASP文件就是在普通的HTML文件中插入VBScript或JavaScript脚本语言。2.如果操作系统是Windows2000，一般需要安装IIS组件才能运行ASP程序。3.执行完a=Left(vbscript,2)&Mid(vbscript,3,4)&Right(vbscript,2)后，a的值为vbscript。4.语句a=DateAdd(d,10,Date())将返回10天后是几号。5.语句b=Int(10*Rnd或Rndc)+1)将返回1到10之间的随机整数。6.在文件开头添加%OptionExplicit%语句后，则所有的变量都必须先声明才能使用。7.在数据库的表中，纵的一行叫做一个字段，横的一行叫做一个记录。8.原来用一个数组users保存学生名单，现在新转来一位同学“张峰”，需要将其名字添加到该数组中，请填写下面程序段中的空格。%Dimusers()Redimusers(40)users(0)=王军users(1)=李俊……RedimPreserveusers(41)users(41)=张峰%9.下面是一个函数，用来返回从a到b的立方和，请填写其中的空格。%FunctionCube(a,b)DimI,SumSum=0ForI=aTobSum=Sum+I^3NextCube=SumEndFunction%10.下面这段语句，将根据今天是星期几，分别在页面上显示一幅图片，星期一、二显示p1.jpg，其它时间显示p2.jpg。请填写完整下面的程序。%Dimthedatheday=Weekday(Date())SelectCasethedayCase2,3Response.Writeimgsrc='p1.jpg'CaseElseResponse.Writeimgsrc='p2.jpg'EndSelect%11.很多网站要求客户必须登录后才能访问，如果客户没有登录，就直接访问网站的某个页面，应该将其引导到首页。请据此填写下面的空格。%IfSession(UserName)=Response.RedirectThenindex.aspEndIf%12.下面的程序段用来计算客户是第几次访问本站。请填写其中的空格。%DimvarNumbervarNumber=Request.Cookies(number)IfVarNumber=””ThenvarNumber=1ElsevarNumber=varNumber+1EndIf.Response.Cookies(“number”)=varNumberResponse.Cookies(“number”).Expires=#2030-1-1#Response.Write您是第&varNumber&次访问本站%13.假如Application(UserOnLine)中保存了一个数组，该数组中保存了在线用户的名称，下面的程序段从其中读取所有用户名，并显示在页面上，请填写其中的空格。%DimUserOnLine,NumberUserOnLine=Application(UserOnLine)Number=Ubound(UserOnLine)'返回该数组的最大下标ForI=0ToNumberResponse.WriteUserOnLine(I)Next%14.对于如下图的数据表link，请填写下面的SQL语句中的空格：图1查询2003年1月1日到2004年1月1日之间的提交的网站，并按提交日期将序排列strSql=Select*FromlinkWheresubmit_dateBetween#2003-1-1#And#2004-1-1#OrderBysubmit_dateDesc查询2004年1月1日以后提交的网站总数目strSql=SelectCount(*)AsTotalFromlinkWheresubmit_date#2004-1-1#15.针对上面图1所示，下面要在页面上按提交日期降序排列所有的网站，请填写下面程序段中的空格。假设数据库文件和本文件存放在同一个文件夹下，数据表名为link。tabletrtd网站名称/tdtd网站地址/tdtd提交日期/td/tr%'以下连接数据库DimdbSetdb=Server.CreateObject(ADODB.Connection)1．db.OpenDbq=&Server.Mappath()&;Driver={MicrosoftAccessDriverDbq=&Server.Mappath()&;Driver={MicrosoftAccessDriver(*.mdb)}(*.mdb)}'以下建立记录集DimstrSql,rsstrSql=Select*FromlinkOrderBySubmit_dateDescsetrs=db.execute(strsql)'以下显示数据库记录DoWhileNotrs.Eof%trtd%=rs(name)%/tdtdahref=%=rs(URL)%target=_blank%=rs(URL)%/a/tdtd%=rs(submit_date)%/td/tr%rs.MoveNextLoop%/table16.针对上面图1所示，下面是分页显示所有网站的名称的语句，每页显示10条记录，请填写其中的空格。%Dimdb,rs,strSql'建立Connection对象Setdb=Server.CreateObject(ADODB.Connection)db.OpenDsn=addr'这里利用数据源连接'建立Recordset对象Setrs=Server.CreateObject(ADODB.Recordset)strSql=Select*FromusersorderbynameAscrs.OpenstrSql,db,1'如果记录集不是空的，就执行分页显示IfNotrs.BofAndNotrs.EofThen'下面一段判断当前显示第几页，如是第一次打开，为1，否则由传回参数决定Dimpage_noIfRequest.QueryString(page_no)=Thenpage_no=1Elsepage_no=CInt(Request.QueryString(page_no))EndIf'下面一段开始分页显示，指向要显示的页，然后逐条显示当前页的所有记录。rs.PageSize=10rs.AbsolutePage=page_noDimII=10DoWhileAndI=I-1Response.Writers(name)&brrs.MoveNextLoop'下面一段在下方显示页数信息，从1到总页数循环......ElseResp