获取multipart/form-data形式上传文件的函数

’函数名：GetImageData
’作  用：取得multipart/form-data形式上传文件
’参  数：MaxSize ---- 上传的限止大小,单位：M(兆)
’返回值：二进制数据
’示  例：
’**************************************************
Public Function GetImageData(ByVal MaxSize)
  GetImageData=""
  DIM formsize,Formdata,bncrlf,divider,datastart,dataend,mydata
  formsize=Request.TotalBytes
  if (formsize<=(MaxSize*1024*1024)) then
     Formdata=Request.BinaryRead(formsize)
     Pos_ts=LenB(getByteString(Chr(13) & Chr(10) & Chr(13) & Chr(10)))
     Pos_b=InstrB(Formdata,getByteString(Chr(13) & Chr(10) & Chr(13) & Chr(10)))+Pos_ts
     nFormdata=MidB(Formdata,Pos_b)
     Pos_ts=InstrB(nFormdata,getByteString(Chr(13) & Chr(10) & "--"))
     nnFormdata=MidB(nFormdata,Pos_ts)
     Pos_e=LenB(Formdata)-LenB(nnFormdata)-Pos_b+1
     datastart =Pos_b
     dataend=Pos_e
     mydata=midb(Formdata,datastart,dataend)
  End If
  GetImageData=mydata
End Function
’’’’ 将字串转为二进制串
Function getByteString(StringStr)
  For i=1 to Len(StringStr)
      char=Mid(StringStr,i,1)
      getByteString=getByteString & chrB(AscB(char))
  Next
End function