AspNet模拟试卷

一、选择题（每小题2分，共40分）

1．请判断下列语句执行完毕后，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．行完如下语句后，Sum的值为：

Dim a(5) as Integer

Dim Sum as Integer

Sum=0

For I=0 To 5

a(I)=I

Sum=Sum + a(I)

Next

(A) 0 (B) 5 (C) 15 (D) 20

3．执行完a=5 Mod 3 语句后，a的值为：

(A) 0 (B) 2 (C) 3 (D) 5

4．执行完a=5>3 And "a"<"c" 语句后，a的值为：

(A) True (B) False (C) 1 (D) 0

5．下面a=Trim(" vbscript") & Rtrim(" good") 语句后，a的值：

(A) " vbscript good"

(B) "vbscript good"

(C) " vbscriptgood"

(D) "vbscriptgood"

6．下面哪个函数可以返回当前的日期和时间：

(A) Now (B) Date (C) Time (D) Today

7．首先定义数组Dim strA(3,4) As String ，那么strA.Length=( )

(A) 4 (B) 5 (C) 12 (D) 20

8．请问Mid(“八千里路云和月”，3，2)的返回值是（）？

(A) “千里”(B) “里路”(C) “里”(D) “路云”

9．如果要将一个数字88转换为字符串，可以使用（）

(A) 88.Tostring (B) CStr(88) (C) Double.Parse(88) (D) 以上都可以

10．请问”#*asp*#”.TrimStart(“#”)的返回值是（）

(A) *asp*# (B)#*asp* (C) asp (D) *asp*

11．下面哪条语句可以返回访问者的IP地址

(A) Request.ServerVariables("REMOTE_ADDR")

(B) Request.ServerVariables("REMOTE_IP")

(C) Request.ClientCertificate("REMOTE_ADDR ")

(D) Request.ClientCertificate ("REMOTE_IP ")

12．执行完如下语句后，页面上显示的内容为：( )

(A) A (B) AB (C) AC (D) ABC

13．请问下面程序段执行完毕，页面上显示内容是什么( )

<%

Response.Write (“新浪”)

%>

(A) 新浪(B) 新浪

(C) 新浪（超链接）(D) 该句有错，无法正常输出

14．Session对象的默认有效期为多少分钟( )

(A) 10 (B) 15 (C) 20 (D) 应用程序从启动到结束

15．请问下面程序段执行完毕，页面上显示内容是什么: ( )

<%

Response.Write Server.HTMLEncode(“新浪”)

%>

(A) 新浪(B) 新浪

(C) 新浪（超链接）(D) 该句有错，无法正常输出

16．对于文件上传控件HtmlInputFile，．PostedFile.FileName表示的是（）

(A) 服务器端文件物理路径(B) 客户端文件物理路径

(C) 服务器端文件名称(D) 客户端文件名称

17．如果需要确保用户输入大于30的值，应该使用（）验证控件

(A)RequiredFieldValidator (B) CompareValidator

(C)RangeValidator (D)RegularExpressionValidator

18．如果要输入如(86)-10-12345678形式的电话号码，应该使用正则表达式（）

(A) \([0-9]){2}\)-[0-9]{2}-[0-9]{8} (B) \([0-9]){2}\)-[0-9] {10}

(C) [0-9]) {2}-[0-9] {2}-[0-9] {8} (D\([0-9]){2}\)[0-9]{2}[0-9]{8}

19.如果定制了列，又希望排序，需要在每一个列设置（）属性

(A) Sort (B) SortExpresion (C) SortField (D) DataFieldText

20.一个业务对象文件中可以包含（）个类

(A) 1 (B) 2 (C) 若干(D) 以上都不对

二、填空题（每空1分，共40分）

1.要正确运行https://www.360docs.net/doc/542866278.html,，服务器端必须安装如下软件：

（1）、Windows 2000 Professional 或Windows 2000 server 或Windows2000 Advance Server 或Windows XP Professional 或更高版本，

（2）、IIS5.0(Internet 信息服务管理器5.0)

（3）、

（4）、

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

为。

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

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

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

6.下面是一个函数，用来返回从a到b的立方和，请填写其中的空格。

<%

Function Cube(a,b)

Dim I,Sum

Sum=

For I= a To b

Sum=

Next

=Sum

End Function

%>

7.下面这段语句，将根据今天是星期几，分别在页面上显示一幅图片，星期一、二显示

p1.jpg，其它时间显示p2.jpg。请填写完整下面的程序。

<%

Dim theday as Integer

theday= (Today())

Select Case theday

Case

("")

Case Else

("")

End Select

%>

8.很多网站要求客户必须登录后才能访问，如果客户没有登录，就直接访问网站的某个页

面，应该将其引导到首页。请据此填写下面的空格。

<%

If Session("UserName")= Then

("index.asp")

End If

%>

9.下面的程序段用来计算客户是第几次访问本站。请填写其中的空格。

<%

Dim varNumber

varNumber=Request.Cookies("number")

If Then

varNumber=1

Else

varNumber=varNumber+1

End If

. =varNumber

. =#2030-1-1#

Response.Write "您是第" & varNumber & "次访问本站"

%>

10.假如Application("UserOnLine")中保存了一个数组，该数组中保存了在线用户的名称，

下面的程序段从其中读取所有用户名，并显示在页面上，请填写其中的空格。

<%

Dim UserOnLine,Number

UserOnLine=Application("UserOnLine")

Number= (UserOnLine) '返回该数组的最大下标

For I=0 To Number

Response.Write（）

Next

%>

11.对于如下图的数据表link，请填写下面的SQL语句中的空格：

图1

查询2003年1月1日到2004年1月1日之间的提交的网站，并按提交日期将序排列strSql="Select * From link Where submit_date #2003-1-1# And #2004-1-1# Order By submit_date "

查询2004年1月1日以后提交的网站总数目

strSql="Select As Total From link Where submit_date > #2004-1-1#"

12.针对上面图1所示，下面要在页面上按提交日期降序排列所有的网站，请填写下面程序

段中的空格。假设数据库文件wwwlink.mdb和本文件存放在同一个文件夹下，数据表名为link。

Message.Text & =“

”

Message.Text & =“

”

Message.Text & =“

”

Message.Text & =“

”

'以下连接数据库

…建立Cnnection对象

Dim conn As New OleDbConection( _________________________)

…建立Command对象

Dim cmd as New OleDbCommand(_______________________________________)

Conn.open()

'以下建立DataReader对象

Dim dr As OleDbDataReader=cmd.ExecuteReader()

'以下显示数据库记录

Do While

Message.Text & = “

”

Message.Text & = “” & ________________ & ””…此处显示网站名字

message.Text &= "

" …此处显示网址

Message.Text & = “” & ________________ & ””…此处显示提交日期

Message.Text & = “

”

Loop

Message.Text & =“

网站名称	网站地址	提交日期
" & dr.Item("url") & "

”

Conn.close()

13.针对上面图1所示，下面是分页显示所有网站的名称的语句，每页显示10条记录，请

<%@ Import Namespace="System.Data" %>

<%@ Import Namespace="System.Data.OleDb" %>

网络导航

Width="100%”________________________________________________________

OnPageIndexChanged="MyDataGrid_Page" PagerStyle-HorizontalAlign="Right"

PagerStyle-Mode="NumericPages" runat="server"/>

14.下面这段程序，打开本文件夹下的文本文件test.txt，并读取其中所有的内容显示在页面

上，请填写其中的空格。

<%@ Import Namespace="System.IO"%>

读取文本文件

15.将COM组件转换成.NET组件的命令是__________________________________

三、编程题（每空10分，共30分）

1．请编写代码，在页面上显示如下图形。注意：只要写出主要代码即可

**********

*********

********

*******

******

*****

****

***

**

*

2．利用Insert语句可以插入记录，现在针对图1所示的数据表，利用插入一条记录：其中网站名称为“搜狐”，网站地址为“https://www.360docs.net/doc/542866278.html,”，网站简介为“门户网站”，网站推荐评分为4，提交日期为当天。

注意：程序的开头部分已经给出。

<%@ Import Namespace="System.Data" %>

<%@ Import Namespace="System.Data.OleDb" %>

网络导航

OnEditCommand="MyDataGrid_Edit" OnCancelCommand="MyDataGrid_Cancel"

OnUpdateCommand="MyDataGrid_Update" DataKeyField="link_id"

AutoGenerateColumns="False" runat="server">

ItemStyle-Wrap="False"/>

1

2

3

4

5

参考答案

一．选择题（每题2分，共40分）

BCBAB ADBDA AACCB BBABC

二．填空题（每题1分，共40分）

1．(3)https://www.360docs.net/doc/542866278.html, Framework SDK (.NET 框架开发工具包)

（4）MDAC (Microsoft数据访问组件)

2．“vbscript”

3．d

4．Rnd或Rnd()

5．字段

记录

6．0

Sum+I^3

Cube

7．Weekday

2,3

Response.Write

Response.Write

8．“”

Response.Redirect

9．VarNumber=””

Response.Cookies(“number”)

Response.Cookies(“number”).Expires

10．Ubound

UserOnLine(I)

11．Between

Desc

Count(*)

12."Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mapPath("wwwlink.mdb")

"select * from link", conn

dr.Read()

dr.Item("siteName")

dr.Item("url")

" & dr.Item("url") & "

dr.Item("submit_date")

13. MyDataGrid.CurrentPageIndex = e.NewPageIndex

DS.Tables("link").DefaultView

AllowPaging="True" PageSize="10"

14. StreamReader(Server.Mappath("newfile.txt"),Encoding.Default)

sr.Peek()>-1

sr.ReadLine()

15.tlbimp

三．编程题（每题10分，共30分）

1．

Dim I,J as Integer

For I=10 To 1 Step -1

For J=1 To I

Response.Write("*" )

Next

Response.Write("
")

Next

2．'建立Connection对象

Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\https://www.360docs.net/doc/542866278.html,\chapter6\wwwlink.mdb")

'建立Command对象

Dim cmd As New OleDbCommand("Insert Into link(sitename,URL,intro,grade,submit_date) Values('搜狐','https://www.360docs.net/doc/542866278.html,','门户网站',4,#" & Today() & "#)", conn)

'执行操作，插入记录

conn.open() '打开数据库

cmd.ExecuteNonQuery()

conn.close() '关闭数据库

3.

Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("wwwlink.mdb"))

'建立Connection对象

'获取文本框中的值

Dim txtSiteName,txtURL,txtIntro As textbox '声明文本框控件变量

txtSiteName=e.Item.Cells(2).Controls(0) '获取网站名称

txtURL=e.Item.Cells(3).Controls(1) '获取网站地址列中第二个控件txtIntro=e.Item.Cells(4).Controls(0) '获取网站简介

'获取下拉列表框中的值

Dim txtGrade As DropDownList '声明下拉列表框

txtGrade=e.Item.Cells(5).Controls(1) '获取网站评分列中第二个控件'建立Command对象

Dim strSql As String

strSql="Update link Set sitename='" & txtSiteName.Text & "',URL='" & txtURL.Text & "',intro='" & txtIntro.Text & "',grade=" & CInt(txtGrade.SelectedItem.Text) & ",submit_date=#" & Now() & "# Where link_id=" & MyDataGrid.DataKeys(CInt(E.Item.ItemIndex))

Dim cmd As New OleDbCommand(strSql, conn) '执行更新操作

conn.Open()

cmd.ExecuteNonQuery()

conn.Close()

'重新绑定数据

MyDataGrid.EditItemIndex = -1

Call BindData()