vb上传文件的实现....

Question

图示： http://s1.shukr.cn/files/month_0803/20080327_7de3f585c5641d9abea7NzMPQh3bSyXz.jpg 这是我用vb6.0做的一个界面,大概就实现这些功能..但是我刚接触,自己写了N久写不好，哪位朋友可以帮忙写一下发到我邮箱里 1505558@163.com 补充:上传是http方式提交,不是FTP的,文件是被传到某个虚拟空间的指定目录下、不允许上传的文件格式，要有弹出窗口提示，下载地址那里生成类似 http://www.xxx.com/up/文件名.rar 文件名最好能随机产生，或者是加密都行.[原文件名也可].传输进度那里有进度条，没有或复杂可以改一下界面，做成完成百分多少这样子的...注：我空间是php环境.

Answer 1

数据的上传就是将档案文件存储到数据表中。在数据上传时，因情况不同一般有两种方式，即单一上传和批量上传，前者指一次上传一个文件(在数据表中增加一条记录)，后者指一次将一个文件夹中的所有文件上传到数据库。两者在实质上是统一的，批量上传时，只需用一个循环语句就可。以下介绍单一上传的过程。 1、打开数据表 通过以下语句打开数据表： dim office_rst As New ADODB.Recordset adocon.CursorLocation = adUseClient office_rst.Open "office", adocon, adOpenDynamic, adLockOptimistic, adCmdTable 2、添加新记录并上传文件 假定通过一些操作已经获得了要上传的文件路径和名称(例如，可利用CommomDialog控件获得)，保存在string型变量filePath中。上传的关键语句如下： dim adofld As ADODB.Field, DataArr() As Byte, filelen As Long, file_num As Long office_rst.AddNew Set adofld = office_rst("office") adorst("filename").Value = filePath file_num = FreeFile '返回一个 Integer，代表下一个可供Open语句使用的文件号 Open filePath For Binary Access Read As file_num '打开磁盘文件 filelen = LOF(file_num) '求文件长度 ReDim DataArr(filelen) '根据文件长度定义动态数组大小 Get sourcefile, , DataArr '将一个已打开的磁盘文件读入数组变量之中 adofld.AppendChunk DataArr() '将数组内容存入image型字段中 Close file_num '关闭磁盘文件 adorst.update 其中的filename为表office中的一个string型字段，用于存储档案文件的名称。