教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索

FormFileCT = bin2str(MidB(FormData,FieldFileCTStart,FieldFileCTSize))
Else
FormFileCT = ""
End If

'数据起始位置：2个CRLF开始
DataStart = InStrB(PosOpenBoundary,FormData,str2bin(VbCrLf & VbCrLf)) + 4
If FormFileName <> "" Then
'数据长度，减1是因为数据文件的存取字节数问题(可能是AppendChunk方法的问题)：
'由于字节数为奇数的图象存到数据库时会去掉最后一个字符导致图象不能正确显示,
'字节数为偶数的数据文件就不会出现这个问题，因此必须保持字节数为偶数。
DataSize = InStrB(DataStart,FormData,DivStr) - DataStart - 1
FormFieldData = MidB(FormData,DataStart,DataSize)
Else
'数据长度，减2是因为分隔标志串前有一个CRLF
DataSize = InStrB(DataStart,FormData,DivStr) - DataStart - 2
FormFieldData = bin2str(MidB(FormData,DataStart,DataSize))
End If

'建立一个Dictionary集存储Form中各个Field的相关数据
Set Field = CreateUploadField()
Field.Name = FormFieldName
Field.FilePath = FormFileName
Field.FileName = GetFileName(FormFileName)
Field.ContentType = FormFileCT
Field.Length = LenB(FormFieldData)
Field.Value = FormFieldData

Fields.Add FormFieldName, Field

PosOpenBoundary = PosCloseBoundary
PosCloseBoundary = InStrB(PosOpenBoundary + 1,FormData,DivStr)
Wend
Set GetUpload = Fields
End Function

'把二进制字符串转换成普通字符串函数
Function bin2str(binstr)
Dim varlen,clow,ccc,skipflag
'中文字符Skip标志
skipflag = 0
ccc = ""
If Not IsNull(binstr) Then
varlen = LenB(binstr)
For i = 1 To varlen
If skipflag = 0 Then

来源:upschool.cn
作者:
关键字：
发表日期：2006-10-7

网页显示有限 阅读全文请下载本文完整版WORD文档

上一篇：ASP同一个帐号不能同时登陆的问题（1）   下一篇：新浪博客首页两侧加入浮动挂件效果

1.用纯ASP代码来实现图片上传(1)
2.用纯ASP代码来实现图片上传(2)
3.用纯ASP代码来实现图片上传(3)
4.用纯ASP代码来实现图片上传(4)
5.用纯ASP代码来实现图片上传(5)
6.用纯ASP代码来实现图片上传(6)
7.用纯ASP代码来实现图片上传(7)
8.用纯ASP代码来实现图片上传(8)
9.用纯ASP代码来实现图片上传(9)
10.用纯ASP代码来实现图片上传(10)

共10页 9 7 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 8 :>

2009-1-9 1:03:48

本文的相类似文章