《因特网高级asp习题汇编(4)》由会员分享，可在线阅读，更多相关《因特网高级asp习题汇编(4)（15页珍藏版）》请在金锄头文库上搜索。
1、高级网络程序员（高级网络程序员（ASP.NET）习题汇编（四）习题汇编（四）第第 23 题题本题目要求实现的功能：输入文件的路径及名称，完成文件的读操作。 1完成编写脚本前的准备工作：引入名称空间，编辑 Y7-01.aspx。在文件开始处添加要完 成数据操作所需要的名称空间。 2编写脚本：定义变量与文件对象，定义 file_name 以获取目的文件的文件名，声明 StreamReader 对象，并将其初始化。为 StreamReader 对象赋值，将打开的目的文件赋给 StreamReader 对象。定义 DoLoop 循环，以取得目的文件的内容。通过 StreamReader 对象关闭目的文
2、件。并定义 panel、button 等表单控件，使程序在浏览器里运行如下图所示。在浏览器里测试程序功能，选定文件，单击“读文件“按钮，结果如下图所示。Y7-01.aspx 源程序： 第 1 步：引入名称空间Sub SendButton_Click ( sender as Object , e as EventArgs )第 2 步：定义 file_name 以获取目的文件的文件名，声明 StreamReader 对象，并将其初始 化。 Dim streamreaderobj As StreamReader Dim file_name as String Dim filecont As Str
3、ing file_name = filename. PostedFile.FileName 第 3 步：将打开目的文件赋给 StreamReader 对象 streamreaderobj = File. OpenText (file_name) panel1.visible = true第 4 步：定义 DoLoop 循环，已取得目的文件的内容 Dofilecont = streamreaderobj. ReadLine()Response.Write(filecont 数：第第 28 题题本题目要求实现的功能：输入一个字符串变量，以单精度型返回这个字符串长度的数值。 1编写服务脚本：打开 Y
4、8-02.asmx。依照程序中的注释，用 VB.net 编写脚本，定义类 X802 并使之继承类 WebService，完成函数声明。函数用以实现测定字符串长度的功能。以 文件名 X8-02.asmx 保存至文件夹。使程序在浏览器中浏览如下图所示。 2编译描述文件：在命令行模式中使用 WSDL.exe，将上一步完成的 X8-02.asmx 以 VB.net 为编程语言，以 X802 为名称空间进行编译。输出 VB 描述文件 X8-02.vb 至文件夹。3编译 DLL 文件：在命令行模式中使用 VBC.exe，选择链接适当的动态链接库文件，将 X8-02.vb 编译为 X802.dll，并输出到
5、文件夹下的/bin 文件夹下。 4编写页面脚本：打开 Y8-02.aspx。依照程序中的注释编写脚本，实现在页面中调用前面 步骤已经完成的 Web 服务。 保存成果：将操作结果以 X8-02.aspx 为文件名保存至文件夹。使程序在浏览器中浏览如 下 图所示。Y8-02.asmx 源程序：Imports System Imports System.Web.Services第二步：使类 X802 继承 WebService。在下一行冒号后面的横线处填写适当的字句。 Public Class X802 : Inherits WebService第三步：定义函数 Lenght 为 Web 方法。要求
6、函数返回单精度型值。请在横线处填写适当 的字句。Public Function Lenght(ByVal str As String) As System.SingleReturn str.LengthEnd Function End ClassY8-02.aspx 源程序Dim Str1 As String = “Public Sub Submit_Click(Sender As Object, E As EventArgs)TryStr1 = Operand1.TextCatch Exp As Exception IgnoredEnd Try第七步：定义 Service 为 X802 名称
7、空间中的类 X802。在下面一行写出适当的句子。Dim Service As X802.X802 = New X802.X802()Result.Text = “结果 = “ DATA Source=“ & DBName)myConnection.Open()myDataAdapter = New OleDbDataAdapter(“select * FROM X805“, myConnection)Dim DS As New DataSet()myDataAdapter.Fill(DS, “VT805“)第三步：已经定义了 DS 为 DataSet 类型。返回 DS。在下面一行的横线处填写适
8、当的句子。Return DSEnd Function End ClassY8-05.aspx 源程序：Dim Op As StringPublic Sub Submit_Click(Sender As Object, E As EventArgs)TryOp = Operand.TextCatch Exp As Exception IgnoredEnd TryDim Service As X805.X805 = New X805.X805()Dim MyData As DataSet = Service.ViewTable(Op)第七步：MyData 为 Web 服务返回的 DataSet，其
9、中有表 VT805。使 MyDataGrid 的 数据源为这个表的默认视图。在下面一行的横线处填写适当的字句。MyDataGrid.DataSource=MyData.Tables(“VT805“).DefaultViewMyDataGrid.DataBind()End Sub第八单元 第五题数据库路径：第第 32 题题新建静态 HTML 页面： 在 sucai 文件夹下建立新的 HTML 页面，注意 HTML 语法标签的格式。必须应用到 、标签。要求使用没有错误，内容由考生任意制 定，但应在页面的明显位置显示考生姓名和考号。 以 X1-03.htm 为文件名保存 sucai 文件夹下。 X103.htm 参考代码：无锡科技职业学院姓名：阿三考号：007
