系______________学号______________姓名_____________ 成绩_________________
注意事项:
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>
|