ｅｒｎａｍｅ＝ｔｒｉｍ（ｒｅｑｕｅｓｔ（＂ｕｓｅｒｎａｍｅ＂））ｐａｓｓｗｏｒｄ＝ｔｒｉｍ（ｒｅｑｕｅｓｔ（＂ｐａｓｓｗｏｒｄ＂））ｓｅｓｓｉｏｎ（＂ｕｓｅｒｎａｍｅ＂）＝ｕｓｅｒｎａｍｅｓｔｒｓｑｌ＝＂ｓｅｌｅｃｔ＊ｆｒｏｍａｄｍｉｎｗｈｅｒｅｐａｓｓｗｏｒｄ＝′＂＆ｐａｓｓｗｏｒｄ＆＂′ａｎｄｕｓｅｒｎａｍｅ＝′＂＆ｕｓｅｒｎａｍｅ＆＂＇＂ｒｓ．ｏｐｅｎｓｔｒｓｑｌ，ｃｏｎｎ，１，３
f龙源期刊网httpwwwqika
comc
ｉｆｒｓ．ｂｏｆａｎｄｒｓ．ｅｏｆｔｈｅｎｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ（＂输入的用户名或密码不正确！＂）ｅｌｓｅｉｆｒｓ（１）＝＂ｓｕｐｐｔｅｒ＂ｔｈｅｎｓｅｓｓｉｏｎ（＂ｑｕａｎｘｉａｎ＂）＝ｒｓ（１）ｒｅｓｐｏｎｓｅＲｅｄｉｒｅｃｔ（＂ｓｕｐｐｅｒ．ａｓｐ＂）ｅｌｓｅｉｆｒｓ（１）＝＂ｃｏｍｍｏｎ＂ｔｈｅｎｓｅｓｓｉｏｎ（＂ｑｕａｎｘｉａｎ＂）＝ｒｓ（１）ｒｅｓｐｏｎｓｅＲｅｄｉｒｅｃｔ（＂ｃｏｍｍｏｎ．ａｓｐ＂）ｅｌｓｅｒｅｓｐｏｎｓｅｗｒｉｔｅ（＂您无权登录本系统！＂）ｅｎｄｉｆｅｎｄｉｆｅｎｄｉｆ％＞2．作业上传功能的实现在学生子系统中，作业上传是最重要的一项功能。本文设计的上传页面，是通过“浏览”按钮选中学生提前打包压缩的一个作业文件（如ZIP文件、RAR文件，这样可以减轻服务器的负担），点击“上载”按钮后调用uploadasp文件处理。由于ASP直接实现无组件上传功能时有一定的局限，故我们先利用VB做一个上传文件的组件，该组件在运行之前要先运行Wi
dows2000Server自带的regsvr32程序进行注册。其实现过程是在VB中选择新建ActiveXDLL，引用MicrosoftActiveServerPagesObject库，将新建的工程命名为Upload，类名命名为UploadFile。由于客户端请求一个基于ASP的Web页面时，服务器会调用该ASP文件上所有ASP组件的O
StartPage方法，因此首先要在UploadFile
f龙源期刊网httpwwwqika
comc
类的O
StartPage过程中建立ASP对象，并且接收客户端传过来的数据。但是表单提交的数据不仅仅包含上载文件的数据，它同时也包含了form域中其它元素的数据，所以在O
StartPage过程中接收数据时要将其它form域中元素的数据过滤掉，确保接收的是文件数据。组件在接收到文件数据后，还应增加一个功能对接收的二进制文件进行保存，为此再增加一个过程就是SaveTheFile。
由此，利用组件将文件上载到服务器端后，可能发生学生上载文件命名一致的现r