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

Dim DataStart,DivStr,DivLen,DataSize,FormFieldData
'分隔标志串(+CRLF)
DivStr = LeftB(FormData,InStrB(FormData,str2bin(VbCrLf)) + 1)
'分隔标志串长度
DivLen = LenB(DivStr)
PosOpenBoundary = InStrB(FormData,DivStr)
PosCloseBoundary = InStrB(PosOpenBoundary + 1,FormData,DivStr)
Set Fields = CreateObject("Scripting.Dictionary")

While PosOpenBoundary > 0 And PosCloseBoundary > 0
'name起始位置(name="xxxxx")，加6是因为[ name=" ]长度为6
FieldNameStart = InStrB(PosOpenBoundary,FormData,str2bin("name=")) + 6
FieldNameSize = InStrB(FieldNameStart,FormData,ChrB(34)) - FieldNameStart '(")的ASC值=34
FormFieldName = bin2str(MidB(FormData,FieldNameStart,FieldNameSize))

'filename起始位置(filename="xxxxx")
FieldFileNameStart = InStrB(PosOpenBoundary,FormData,str2bin("filename=")) + 10
If FieldFileNameStart < PosCloseBoundary And FieldFileNameStart > PosopenBoundary Then
FieldFileNameSize = InStrB(FieldFileNameStart,FormData,ChrB(34)) - FieldFileNameStart '(")的ASC值=34
FormFileName = bin2str(MidB(FormData,FieldFileNameStart,FieldFileNameSize))
Else
FormFileName = ""
End If

'Content-Type起始位置(Content-Type: xxxxx)
FieldFileCTStart = InStrB(PosOpenBoundary,FormData,str2bin("Content-Type:")) + 14
If FieldFileCTStart < PosCloseBoundary And FieldFileCTStart > PosOpenBoundary Then
FieldFileCTSize = InStrB(FieldFileCTStart,FormData,str2bin

(VbCrLf & VbCrLf)) - FieldFileCTStart

来源: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-8 20:37:21

本文的相类似文章