用ＶＢ开发文件和文本
同时上传的Ａｃｔｉｖｅ组件
汪学祥 ・ （山西煤炭管理干部学院。山西太原０３０００６）
摘要：在网站开发过程中，经常要遇到上传文件的问题。
使用各种脚本语言来处理文件上传问题过程比较复杂，而
且不能实现文件和普通文本数据的同时上传。本文介绍用
ＶＢ６．０编写一个通用的Ａｃｔｉｖｅ ＤＬＬ组件，以实现文件和普
通文本数据的同时上传。 关键词：ＡＳＰ；文件上传；表单；ＶＢ编程；Ａｃｔｉｖｅ组件
中图分类号：ＴＰ３９３ 文献标识码：Ａ文章编号：
１００８－８８８１（２００６）０３－０１０
一、问题的提出 在网站开发过程中，经常要遇到上传文件的问题。对
于ＡＳＰ网页，文件的上传是通过表单来实现的。但是，用来
向服务器端上传文件的表单和用来递交一般文本信息的
表单有很大区别。首先，表单的ＭＩＭＥ类型必须设置为 “ｍｕｌｔｉｐａｒｔ／ｆｏｒｍ—ｄａｔａ”。其次，用来输入上传文件信息（路径
和文件名称）的文本域类型（ｔｙｐｅ）必须设置为“ｆｉｌｅ”，而用
来上传文本信息的文本域类型（ｔｙｐｅ）还是要设置为“ｔｅｘｔ” 型。在服务器端，接收“ｍｕｌｔｉｐａ￣／ｆ０肌－ｄａｔａ”型表单递交数
据的信息不能使用Ｒｅｑｕｅｓｔ．Ｆｏｒｍ和Ｒｅｑｕｅｓｔ．ＱｕｅｒｙＳｔｒｍｇ 方法，而只能用ｒｅｑｕｅｓｔ．ＢｉｎａｒｙＲｅａｄ（以二进制方式接收表
单递交的所有域中包含的数据内容）和ｒｅｑｕｅｓｔ．ＴｏｔａｌＢｙｔｅｓ （获取接收的数据总字节数）方法。因此，引入了两个问题：
第一，如何分离和提取各表单域的数据？第二，以ｒｅｑｕｅｓｔ．
ＢｉｎａｒｙＲｅａｄ接收的信息都是二进制（机器码）信息，对于文
本域信息如何将其转换为我们所需要的ＡＳＣＩＩ码字符串 格式的信息？本文以ＶＢ６．０编程为例来分析和解决以上问
题。
二、接收和分析表单递交的数据 １、接收表单递交的数据
接收表单递交的数据要用到ＡＳＰ的内置的ｒｅｑｕｅｓｔ对 象，用ｒｅｑｕｅｓｔ．ＢｉｎａｒｙＲｅａｄ方法来接收表单递交的全部二进
实验一：设计简单的VB应用程序
一、实验目的
1．掌握Visual Basic启动和退出的方法。
2．熟悉Visual Basic的集成开发环境。
3．掌握Visual Basic程序设计的基本步骤，了解VB程序的编写、保存和编译的方法过程。
4．初步了解几个常用基本控件控件（标签、命令按钮和文本框）的使用方法。
二、实验类型
综合
三、实验时间：2013-3-8
四、实验任务
1、启动Visual Basic，然后创建一个“标准 EXE”工程（保存在D盘以自己学号命名的文件夹中，文件名和窗体名均为SJT），并了解Visual Basic集成开发环境下各组成部分及其作用。
2、编一程序，计算任意输入的正整数的平方根。
3、编写一个应用程序，界面如图1-1所示。窗体中文字“VB应用程序！”为一标签控件，单击标题为“放大”的命令按钮，则“VB应用程序！”的字号放大一号，单击“缩小”按钮则反之；同时，窗体中还有4个含某种指向图案的按钮，若单击某个按钮，则使“VB应用程序！”向该按钮所指向的方向移动50Twip。（提示：四种指向的图案可以在Visual Basic安装目录中的“…graphics\icon\Arrows”子目录中找到，名称分别为arw07dn.ico 、arw07lt.ico、arw07rt.ico和arw07up.ico）
五、实验要求
写出实验报告，内容是：
1、第1小题的操作步骤
2、第2、3题
1).程序的界面设计。
2).程序主要代码。
3).运行结果（输入与输出）。
4).实验总结。(写上你自己的总结。可以从以下几个方面来总结：你在编程过程中花时多少？时间是怎么分配的？多少时间在思考问题？遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？)
图1-1 实验1-2程序运行实验二：数据的输入和输出
一、实验目的
1．掌握常量和变量、表达式的基本概念和正确书写格式。
1. 参照下图制作一滚动字幕（滚动方式自由设计）。 任务1：完成学生成绩管理系统。第五章要求：1）利用数组实现各个按钮的功能。2）动态数组。
2. 建立一个如下图所示的记事本应用程序（小图标也可用文字替代）。 任务1：完成学生成绩管理系统。第五章要求：1）利用数组实现各个按钮的功能。2）动态数组。
3. 编写华氏温度与摄氏温度之间转换的程序。 任务1：完成学生成绩管理系统。第五章要求：1）利用数组实现各个按钮的功能。2）动态数组。 4. 建立一个登录程序，界面参考下图。 任务1：完成学生成绩管理系统。第五章要求：1）利用数组实现各个按钮的功能。2）动态数组。
5. 编写一个自动贩卖机系统，运行界面如下图所示。 任务1：完成学生成绩管理系统。第五章要求：1）利用数组实现各个按钮的功能。2）动态数组。
6. 编写如下图所示的猜数游戏程序。
7. 百元买百鸡。假设小鸡每只0.5元，公鸡每只2元，母鸡每只3元，编程求解购鸡方案。结果如下图所示。 任务1：完成学生成绩管理系统。第五章要求：1）利用数组实现各个按钮的功能。2）动态数组。
8. 编写一个简易“学生成绩管理系统”。第一行3个按钮的功能必做，第二行完成“成绩统计”功能。 任务1：完成学生成绩管理系统。第五章要求：1）利用数组实现各个按钮的功能。2）动态数组。
9. 编写一个简易“学生成绩管理系统”。第一行3个按钮的功能必做，第二行完成“成绩排序”功能。 任务1：完成学生成绩管理系统。第五章要求：1）利用数组实现各个按钮的功能。2）动态数组。
10. 编写一个简易“学生成绩管理系统”。第一行3个按钮的功能必做，第二行完成“成绩查询”功能。 任务1：完成学生成绩管理系统。第五章要求：1）利用数组实现各个按钮的功能。2）动态数组。
11. 完成如下图所示的“课程管理系统”程序设计。
12. 随机生成3个正整数，其中1个一位数，1个二位数，1个三位数，计算它们的平均值，保留两位小数，运行界面如下图所示。
实验题目 记事本
实验时间 2011年 4月20日 实验地点
实验成绩 实验性质 □验证性 设计性 ⅴ综合性
教师评价：
□算法/实验过程正确； □源程序/实验内容提交 □程序结构/实验步骤合理；
□实验结果正确； □语法、语义正确； □报告规范；
其他：
评价教师签名：
一、实验目的
掌握菜单常用属性及事件。掌握通用对话框控件的使用。掌握工具栏和多重窗体的程序设计方法。
二、实验项目内容（实验题目）
设计一个记事本，利用通用对话框，菜单，多重窗体，和多文档界面的应用，实现“文件”“编辑”“格式”“窗口”，“帮助”功能。
三、源程序（实验过程或算法）
Form1.的程序：
Private Sub baocun_Click()
CommonDialog1.ShowSave
End Sub
Private Sub bianji_Click()
If Form1.Text1.SelLength > 0 Then
jianqie.Enabled = True
Else
jianqie.Enabled = False
End If
If Form1.Text1.SelLength > 0 Then
fuzhi.Enabled = True
Else
fuzhi.Enabled = False
End If
If Form1.Text1.SelLength > 0 Then
shanchu.Enabled = True
Else
shanchu.Enabled = False
End If
If Form1.Text1.Text = "" Then
chazhao.Enabled = False
