搜索
ASP模拟试卷（一）一、选择题（每小题2分，共40分）1．请判断下列语句执行完毕后，a、b、c的值%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的类型为(A)数值型(B)字符串型(C)布尔型(D)日期型3．执行完如下语句后，a的值为：%Dimaa=3a=a+1%(A)0(B)1(C)3(D)44．执行完如下语句后，Sum的值为：%Dima(5),SumSum=0ForI=0To5a(I)=ISum=Sum+a(I)Next%(A)0(B)5(C)15(D)205．执行完a=5Mod3语句后，a的值为：(A)0(B)2(C)3(D)56．执行完a=53Andac语句后，a的值为：(A)True(B)False(C)1(D)07．下面a=Trim(vbscript)&Rtrim(good)语句后，a的值：(A)vbscriptgood(B)vbscriptgood(C)vbscriptgood(D)vbscriptgood8．下面哪个函数可以返回当前的日期和时间：(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.WriteAResponse.EndResponse.WriteB%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/第二讲网页制作高级功能webcourse/第三讲利用源代码开发网页(A)空格(B)Tab(C) (D)Space二、填空题（每空1分，共40分）1.ASP文件就是在普通的HTML文件中插入或JavaScript脚本语言。2.如果操作系统是Windows2000，一般需要安装组件才能运行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,SumSum=ForI=aTobSum=Next=SumEndFunction%10.下面这段语句，将根据今天是星期几，分别在页面上显示一幅图片，星期一、二显示p1.jpg，其它时间显示p2.jpg。请填写完整下面的程序。%Dimthedaytheday=(Date())SelectCasethedayCaseimgsrc='p1.jpg'CaseElseimgsrc='p2.jpg'EndSelect%11.很多网站要求客户必须登录后才能访问，如果客户没有登录，就直接访问网站的某个页面，应该将其引导到首页。请据此填写下面的空格。%IfSession(UserName)=Thenindex.aspEndIf%12.下面的程序段用来计算客户是第几次访问本站。请填写其中的空格。%DimvarNumbervarNumber=Request.Cookies(number)IfThenvarNumber=1ElsevarNumber=varNumber+1EndIf.=varNumber.=#2030-1-1#Response.Write您是第&varNumber&次访问本站%13.假如Application(UserOnLine)中保存了一个数组，该数组中保存了在线用户的名称，下面的程序段从其中读取所有用户名，并显示在页面上，请填写其中的空格。%DimUserOnLine,NumberUserOnLine=Application(UserOnLine)Number=(UserOnLine)'返回该数组的最大下标ForI=0ToNumberResponse.WriteNext%14.对于如下图的数据表link，请填写下面的SQL语句中的空格：15.图1查询2003年1月1日到2004年1月1日之间的提交的网站，并按提交日期将序排列strSql=Select*FromlinkWheresubmit_date#2003-1-1#And#2004-1-1#OrderBysubmit_date查询2004年1月1日以后提交的网站总数目strSql=SelectAsTotalFromlinkWheresubmit_date#2004-1-1#16.针对上面图1所示，下面要在页面上按提交日期降序排列所有的网站，请填写下面程序段中的空格。假设数据库文件和本文件存放在同一个文件夹下，数据表名为link。tabletrtd网站名称/tdtd网站地址/tdtd提交日期/td/tr%'以下连接数据库DimdbSetdb=Server.CreateObject(ADODB.Connection)db.Open'以下建立记录集DimstrSql,rsstrSql=setrs=db.execute(strsql)'以下显示数据库记录DoWhile%trtd%=rs(name)%/tdtdahref=target=_blank%=rs(URL)%/a/tdtd%=rs(submit_date)%/td/tr%Loop%/table17.针对上面图1所示，下面是分页显示所有网站的名称的语句，每页显示10条记录，请填写其中的空格。%Dimdb,rs,strSql'建立Connection对象Setdb=Server.CreateObject(ADODB.Connection)db.OpenDsn=addr'这里利用数据源连接'建立Recordset对象Setrs=Server.CreateObject(ADODB.Recordset)strSql=Select*FromusersorderbynameAscrs.Open'如果记录集不是空的，就执行分页显示IfThen'下面一段判断当前显示第几页，如是第一次打开，为1，否则由传回参数决定Dimpage_noIfRequest.QueryString(page_no)=Thenpage_no=1Elsepage_no=(Request.QueryString(page_no))EndIf'下面一段开始分页显示，指向要显示的页，然后逐条显示当前页的所有记录。rs.=10rs.=page_noDimII=10DoWhileAndI=I-1Response.Writers(name)&brrs.MoveNextLoop'下面一段在下方显示页数信息，从1到总页数循环......ElseResponse.Write该记录集为空EndIf%18.下面这段程序，打开本文件夹下的文本文件test.txt，并读取其中所有的内容显示在页面上，请填写其中的空格。%DimfsoSetfso=Server.CreateObject(Scripting.FileSystemObject)DimTextFileSetTextFile=fso.(Server.MapPath(test.txt)DoWhileNotTextFile.Response.WriteTextFile.ReadLineResponse.WritebrLoop%三、编程题（每空10分，共30分）1．请编写代码，在页面上显示如下图形。注意：只要写出主要代码即可*******************************************************2．利用Recodset对象也可以插入记录，现在针对图1所示的数据表，利用插入一条记录：其中网站名称为“搜狐”，网站地址为“”，网站简介为“门户网站”，提交日期为当天。注意：只给出主要代码即可，程序的开头部分已经给出。%Dimdb,strConnstrConn=Dbq=&Server.Mappath(address.mdb)&;Driver={MicrosoftA