实验9应用层实验2.docVIP

实验9.1 WEB服务器的建立 实验目的 理解WEB服务器的概念及其功能。 初步掌握基于IIS的WEB服务器建立和网页发布的方法。 实验内容 服务器的配置 通过开始“菜单”的“管理工具”，进入“INTERNET信息服务”窗口。双击“INTERNET信息服务”下的主机名,可以看到系统已经建立了“默认WEB站点”,右击“默认WEB站点”,选择“属性”,进入属性设置对话框. 设置“WEB”选项。 主目录设置 设置“文档”选项 选择“目录安全性”选项卡 添加虚拟目录 测试 2． 创建远程管理WEB站点 在IIS管理器中,右击“管理WEB站点”,选择“属性”,进入“管理WEB站点”对话框。 ①设置“WEB站点”选项 ②选择“主目录”选项 ③选择“目录安全性”选项 ④使用远程管理Web站点 实验9.2 FTP服务器的建立 实验目的 理解FTP服务器的概念及其功能。 初步掌握基于IIS的FTP服务器建立方法。 实验内容 1. 设置FTP服务器 通过“开始”- “程序”- “管理工具”- “INTERNET信息服务”，进入“INTERNET信息服务”窗口（如图5-2所示），右击“默认FTP站点”，选择“属性”，打开“属性设置”对话框。 （1）配置FTP属性 ①设置“FTP站点”选项 ②设置“安全帐号”选项 ③设置“信息”选项 ④设置 “主目录”选项 ⑤设置“目录安全性”选项卡 ⑥测试 实验9.3 应用层通信 实验目的 利用VB开发网络应用层通信实例，掌握网络通信控件的使用。 实验步骤： 创建一个新的工程。 添加控件到工具栏。 各控件的属性列表 OptionButton Name OptSave Caption 保存到文件 OptionButton Name OptShow Caption 显示到文本框 RichTextBox Name RtxContent CommandButton Name CmdConnect Caption 连接 TextBox Name TextURL Text TextBox Name TextFileName Text Inet Name Inet1 编程如下： Option Explicit Private Sub CmdConnect_Click Dim surl As String Dim sfilename As String Dim scontent As String Dim bsave As Byte surl TextURL.Text sfilename TextFileName.Text scontent Select Case OptShow.Value Case True scontent Inet1.OpenURL surl RtxContent.Text scontent Case False If sfilename Then MsgBox 请输入文件保存名称 Exit Sub End If bsave Inet1.OpenURL surl, icByteArray Open sfilename For Binary Access Write As #1 Put #1, , bsave Close #1 MsgBox 文件已经保存 End Select End Sub Private Sub Form_Load Me.RtxContent.Text End Sub Private Sub form_unload cancel As Integer End End Sub 实验9.4 TCP端口通信 实验目的 利用VB开发TCP端口通信实例，掌握网络通信控件的使用。 实验步骤 创建一个新的工程，作为服务器端。 添加控件到工具栏。 各控件的属性列表 TextBox Name ClientMsg Text Winsock Name WorkSock 编程如下： Private Sub Form_Load WorkSock.LocalPort 3200 WorkSock.Listen End Sub Private Sub WorkSock_ConnectionRequest ByVal requestID As Long If WorkSock.State sckClosed Then WorkSock.Close WorkSock.Accept requestID End Sub Private Sub WorkSock_DataArrival ByVal bytestotal As Long Dim sdata As String WorkSock.GetData s