系______________学号______________姓名_____________  成绩_________________

注意事项：

1、答案均写在答题纸上，写在卷面无效

2、答题结束后将试卷及答题纸全部交给监考老师

3、闭卷考试

一、单项选择题

1. 如果外地朋友通过Internet访问你的计算机上的ASP.NET文件，应该选择（ ）。

A. http://localhost/asp.net/chapter1/1-1.aspx

B. chapter1/1-1.aspx

C. http://你的计算机的名字/asp.net/chapter1/1-1.aspx

D. http://你的计算机的IP地址/asp.net/chapter1/1-1.aspx

2. 请判断下面程序运行完毕后a的值是（ ）。

a = 5

a *=3

A. 5

B. 3

C. 10

D. 15

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. Now

B. Date

C. Time

D. Today

6. 下列（）函数可以将数值转换为字符串。

A. CInt

B. CStr

C. CDate

D. CString

7. 设A＝"ASP"，B＝".NET"，以下( )可以得到站果"ASP.NET"。

A. A&B

B. AB

C. A＆+B

D. A-B

8. 在语句"Dim arrayInt(4) As Integer"之后，以下不合法的是（ ）。

A. arrayInt(1)＝1

B. arrayInt(2)＝3

C. arrayInt(0)=2

D. arrayInt(4)=2.9

9. 如果希望控件内容变换后立即回传表单，需要在空间中添加属性（ ）。

A. AutoPostBack=″True″

B. IsPostBack=″True″

C. IsPostBack=″False″

D. AutoPostBack=″False″

10. 如果需要确保用户输入小于96的值，应该使用（ ）验证控件。

A. CompareValidator

B. RangeValidtor

C. RequiredFieldValidator

D. RegularExpressionValidator

11. 对于正则表达式([0-9a-z]{4,})|(\..{3,6})，下面（ ）是错误的输入。

A. 8buL

B. .*$g6

C. av5f

D. .ads

12. 下面（）语句可以返回访问者的主机名。

A. Request. ClientCertificate ("REMOTE_NAME")

B. Request. ClientCertificate ("REMOTE_HOST")

C. Request. ServerVariables ("REMOTE_HOST")

D. Request. ServerVariables ("REMOTE_NAME")

13. 如果设置Server.ScriptTimeOut为60秒，实际的脚本最长执行（）秒。

A. 30

B. 60

C. 90

D. 120

14. 有Access数据库名为wwwlink.mdb，位于C:\Inetpub\wwwroot\asp.net\文件夹，其中有表link，其字段和属性有网站编号link_id（自动编号）、网站名称sitename（文本）、网站网址URL（文本）、网站简介intro（备注）、网站评分grade（数字）、提交日期submit_date（日期/时间）。令varName = ″雅虎″， varURL = ″www.yahoo.com″，下面（ ）查询语句可以正确执行。

A. ″Select * From link Where sitename = ″ & varName

B. ″Select * From link Where URL = ′varURL′ ″

C. ″Select sitename, intro From link Where sitename = ″ & varName

D. ″Select * From link Where submit_date < #2005-1-1#″

15. 数据库同上一题，令varName = ″雅虎″，varURL = ″www.yahoo.com″，varIntro = ″门户网站″，下面（ ）插入语句可以正确执行。

A. ″Insert Into link(sitename,URL,intro) Values (′&varName&′, ′&varURL&′, ′&varIntro&′)″

B. ″Insert Into link(sitename,URL,intro) Values (′″&varName&″′, ′″&varURL&″′, ′″&varIntro&″′)″

C. ″Insert Into link(sitename,URL) Values (″&varName&″, ″&varURL&″)″

D. ″Insert Into link(sitename,URL) Values (′″&varName&″′, ′″&varURL&″′′)″

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

A. Sort

B. SortExpresion

C. SortField

D. DataFieldText

17. 如果希望从C:\Inetpub\temp.txt中提取文件大小，应该使用（ ）对象。

A. File

B. FileInfo

C. Path

D. FileStream

18. 若要把DataSet对象中的数据写入XML，则使用DataSet对象的（ ）方法。

A. ReadXML

B. WriteXML

C. EditXML

D. InsertXML

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

A. 1

B. 2

C. 若干

D. 以上都不对

20. 一个应用程序中一般有（ ）个web.Config文件有效。

A. 0

B. 1

C. 若干

D. 以上都不对

二、填空题

1. 若访问自己计算机上的网站，此时，是服务器端，

是客户端。

2. 增加了的文件夹就称为应用程序。

3. 在数据库的表中，纵的一行叫做一个，

横的一行叫做一个。

3. 执行完  a= Left("asp.net",3) & Mid("asp.net",4,4) & Replace("ASP.NET","ASP","VB")后，

a的值为。

4. 语句 b=DateDiff( , , #1/1/2007#)将返回今天距离2007年元旦还有多少小时。

5. 有Access数据库名为wwwlink.mdb，位于C:\Inetpub\wwwroot\asp.net\文件夹，其中有表link，其字段和属性有网站编号link_id（自动编号）、网站名称sitename（文本）、网站网址URL（文本）、网站简介intro（备注）、网站评分grade（数字）、提交日期submit_date（日期/时间）。请填写下面的SQL语句中的空格。

查询2005年1月1日到2007年1月1日之间的提交的网站，并按提交日期降序排列：

strSql="Select * From link Where submit_date  #2005-1-1# And #2007-1-1# Order By submit_date "

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

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

6.是VB.NET编译器的名称，通过它，

可以把业务文件编译为文件。

7. 所有的应用程序都会继承位于C:\WinNT\Microsoft.NET\Framework\（版本号）\config\文件，

可以认为它是一个默认的Web.config文件。

三、编程题

1. 有Access数据库名为wwwlink.mdb，位于C:\Inetpub\wwwroot\asp.net\文件夹，其中有表link，其字段和属性有网站编号link_id（自动编号）、网站名称sitename（文本）、网站网址URL（文本）、网站简介intro（备注）、网站评分grade（数字）、提交日期submit_date（日期/时间）。要在页面上按提交日期降序排列所有的网站，请填写下面程序段中的空格。假设数据库文件wwwlink.mdb和本文件存放在同一个文件夹下。

Message.Text & ="<table>"

Message.Text & ="<tr>"

Message.Text & ="<td>网站名称</td><td>网站地址</td><td>提交日期</td>"

Message.Text & ="</tr>"

'以下连接数据库

'建立Cnnection对象

Dim conn  As New OleDbConection("Provider=Microsoft.Jet.OLEDB.4.0;

Data Source=" & server.mapPath( )

'建立Command对象

Dim cmd as New OleDbCommand( ) 

Conn.open()

'以下建立DataReader对象

Dim dr As OleDbDataReader=cmd.ExecuteReader()

  '以下显示数据库记录

Do While dr.                                          

 Message.Text & = "<tr>"

 Message.Text & = "<td.> " & & "</td>"  '此处显示网站名字

 message.Text &= "<td><a href='http:// > & dr.Item("url") & "</a></td>"  '此处显示网址

 Message.Text & = "<td.> " & & "</td>"  '此处显示提交日期

 Message.Text & = "</tr>"

  Loop

  Message.Text & ="</table>"

  Conn.close()

2. 针对上题中的数据库，下面是分页显示所有网站的名称的语句，每页显示10条记录，请补充完整。

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

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

<script language="VB" runat="server">

Sub Page_Load(Sender As Object, E As EventArgs)

    IF Not Page.IsPostBack Then

        Call BindData()                 

    End If

End Sub

Sub MyDataGrid_Page(sender As Object, e As DataGridPageChangedEventArgs)

    Call BindData()                                           

End Sub

Sub BindData()

    Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;

    Data  Source="&Server.Mappath("wwwlink.mdb"))                                                                

    Dim adp As New OleDbDataAdapter("select * from link", conn)     

    Dim ds As New DataSet()                                     

    adp.Fill(ds,"link")

    '指定数据源

    MyDataGrid.DataSource=

    '绑定数据

 End Sub

 </script>

 <html>

    <body>

       <h4 align="center">网络导航</h4>

       <form runat="server">

<ASP:DataGridid="MyDataGrid"HeaderStyleBackColor="#BCBCBC" Width="100" AllowPaging" PageSize= OnPageIndexChanged="MyDataGrid_Page" PagerStyle-HorizontalAlign="Right" PagerStyle-Mode="NumericPages" runat="server"/>

        </form>

    </body>

</html>