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

来源： 龙腾软件教程网 作者： 若水   2008-05-09/06:45

软件频道 编程学院 Asp/Asp.Net asp技巧 正文

• 文件
• 函数
• 上传
• 形式
• 获取
•  
• Chr
• &rsqu

’函数名：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