局域网内学生个人网络盘设计和实现.docVIP

局域网内学生个人网络盘设计和实现 　　在信息技术课的教学和考试中经常需要共享制作素材、收发文件。大多数教师习惯用直接共享文件夹的方法，这种方法虽然简单易行，但是保密性差，学生之间能相互抄袭，相互删改。有些教师通过IIS创建FTP服务器或BBS论坛面向用户收发文件，这种方法使用B/S架构，有很多优点，但学生的操作繁琐，且不能实时保存到服务器（只能先保存到本机后再上传）。也有部分教师使用电子教室软件附带的收发文件功能，其收发文件的过程无需学生的干预，收发准确、快速、稳定。但这种做法同样具有不能实时保存到服务器的弊端，无身份识别的功能，只能面向特定的学生机收发而不是面向特定的学生。收发的操作全部在服务器端进行，非常繁琐，容易误操作,更不可能连续几节课自动收发。本文介绍学生个人“网络盘”可以实现共享素材和收发文件，保密性高，稳定安全且操作简单方便。 　　 　　一、“网络盘”的设计思路 　　 　　使用Windows可以将局域网内其他计算机的共享文件夹映射成网络驱动器，即所谓的“网络盘”。网络盘的操作方法跟本地盘是完全一致的,网络盘中的文件可直接存取。而在VB中调用相应的API函数，可以在服务器端自动设置或取消文件夹的共享，也可以在学生机端自动映射或断开网络盘。因此，可以设计程序在服务器端按学生名单自动批量制作各个学生的个人文件夹，并设置隐藏的加密共享。学生机使用客户端程序验证学生身份后，便能自动将服务器中的特定个人文件夹映射成网络驱动器，如图1所示。 　　 　　具体的操作流程： 　　1．（服务器）面向某些班级制作各个学生的个人文件夹，并将其设为加密隐藏的共享。 　　2.（学生机）登录，验证学生身份。 　　3.（学生机）登录成功，屏幕右下方显示网络盘操作面板。 　　4.（学生机）“我的电脑”出现一个网络盘（X:）如图2所示。 　　5.（学生机）打开网络盘（X:），看到服务器制作好的文件（夹），可以直接实时编辑这些文件（夹）。 　　 　　对于学生而言，登录之后只是多了一个硬盘分区，无需再说明其他的操作方法。服务器端程序可管理学生名册，增删网络盘及其中的文件。客户端程序可验证学生身份，自动映射或断开网络盘，监测网络盘内的文件类型及总容量，并可帮助学生在退出网络盘后自动关机或重启。学生无法进入他人的网络盘，在使用网络盘的过程中也不能自行断开网络盘，不能乱塞文件，否则强制自动关机。 　　笔者选择的编程语言是VB6.0，后台数据库是Access。学生机程序放在服务器共享给学生机，通过网络共享运行，便于更新升级。 　　 　　二、 关键代码 　　 　　程序的关键是正确使用设置/取消共享、映射/断开网络驱动器的API函数。总结如下。 　　 　　现以服务器的操作系统为Win2000为例, 介绍关键代码及实现过程。因篇幅所限，略去制作学生个人文件夹的步骤、读取Access数据库信息的代码及API函数声明及其有关的常数、结构的定义。读者可自行查阅有关API函数用法的帮助文件。 　　 　　1.设置共享（服务器端） 　　设置共享的过程，即读取数据库，并按数据库中的学生信息反复调用某个设置共享的函数建立共享。 　　NT以上操作系统设置共享的函数: 　　Public Function CreateShareNT(ByVal sSharePath As String, ByVal sShareName As String, ByVal sRemark As String, ByVal sROPass As String, ByVal sRWPass As String, ByVal bShareTypeRW As Boolean) As Long 　　参数说明： 　　sSharePath被共享的文件夹路径 　　sShareName 共享名，加密并加字符＄ 　　sRemark共享的备注信息 　　sROPass只读共享密码 　　sRWPass完全共享密码 　　bShareTypeRW 共享类型，True为完全，False为只读 　　 Dim re As String 　　 Dim sServer As String 　　 Dim lngServer As Long 　　 Dim lngNetnameAs Long 　　 Dim lngPath As Long 　　 Dim lngRemark As Long 　　 Dim lngPw As Long 　　 Dim parmerrAs Long 　　 Dim si2As SHARE_INFO_2 　　 sServer = 本地共享 　　 lngServer = StrPtr(sServer) 转成地址 　　 lngNetname =