关于文件上传组件的调试问题

发布: 2007-6-30 18:56 | 作者: admin | 来源: | 查看: 13次 | 进入软件测试论坛讨论

这是我的上传组件原文，vb作的，没有任何问题！ 
 
   Public Bin 
Private Names() 
Private Sizes() 
Private Filenames() 
Private Myposition() 
Public Maxsize 
Public Fcount 
 
Public Sub Exec() 
   Dim Pstart, Pend, strBoundary, i, Str, Position 
   Dim Spacestr 
   Spacestr = "-----------------------------" 
   Dim tempbarray, tempstr 
   tempstr = BtoS(Bin) 
   strBoundary = "Content-Disposition: form-data" 
   tempbarray = Split(tempstr, strBoundary) 
   Fcount = UBound(tempbarray) 
    
   ReDim Names(Fcount) 
   ReDim Sizes(Fcount) 
   ReDim Filenames(Fcount) 
   ReDim Myposition(Fcount, 2) 
    
   strBoundary = StoB(strBoundary) 
   Position = InStrB(Bin, strBoundary) + 1 
    
   For i = 0 To Fcount - 1 
     Pstart = InStrB(Position, Bin, StoB(Chr(34))) + 1 
     Pend = InStrB(Pstart, Bin, StoB(Chr(34))) 
     Names(i) = BtoS(MidB(Bin, Pstart, Pend - Pstart)) 
     ‘’以上取表单名 
      
     Pstart = Pend + 1 
     Str = MidB(Bin, Pstart, 15) 
     Position = InStrB(Str, StoB("filename")) 
     If Position > 0 Then 
       Pstart = InStrB(Pstart, Bin, StoB(Chr(34))) + 1 
       Pend = InStrB(Pstart, Bin, StoB(Chr(34))) 
       Str = BtoS(MidB(Bin, Pstart, Pend - Pstart)) 
       If Str = Empty Then 
         Filenames(i) = "" 
       Else 
         Filenames(i) = Str 
         Pstart = InStrB(Pend, Bin, StoB(vbCrLf & vbCrLf)) + 4 
         Pend = InStrB(Pstart, Bin, StoB("-------")) - 2 
         Myposition(i, 0) = Pstart 
         Myposition(i, 1) = Pend 
       End If 
     Else 
       Pstart = InStrB(Pstart, Bin, StoB(vbCrLf & vbCrLf)) + 4 
       Pend = InStrB(Pstart, Bin, StoB("-------")) - 2 
       Myposition(i, 0) = Pstart 
       Myposition(i, 1) = Pend 
     End If 
     Position = Pend 
   Next 
 
   ‘’Dim save 
   ‘’save = savetofile() 
   ‘’response.write save & " " 
End Sub 
Public Function SaveFile(fieldname, mypath, newname) 
  Dim i, tempname, temptype, p, temppath 
  Dim binarystr() As Byte 
  For i = 0 To Fcount - 1 
    If fieldname = Names(i) Then 
      tempname = Filenames(i) 
      p = i 
      Exit For 
    End If 
  Next 
  i = p 
  If tempname <> Empty Then 
    If Filenames(i) <> "" Then 
      p = InStrRev(tempname, ".") 
      temptype = Right(tempname, Len(tempname) - p) 
      temppath = mypath & "\" & newname & "." & temptype 
      binarystr = MidB(Bin, Myposition(i, 0), Myposition(i, 1) - Myposition(i, 0)) 
      Open temppath For Binary As #1 
      Put #1, , binarystr 
      Close #1 
      SaveFile = newname & "." & temptype 
    Else 
      SaveFile = "0" 
    End If 
  Else 
    SaveFile = "0" 
  End If 
End Function 
Public Function getform(fieldname) 
   Dim i, sign, p 
   For i = 0 To Fcount - 1 
     If fieldname = Names(i) Then 
       ‘’getform = BtoS(MidB(values(i), 1, LenB(values(i)))) 
       sign = 1 
       p = i 
       Exit For 
     End If 
   Next 
   If sign = 1 Then 
     getform = BtoS(MidB(Bin, Myposition(p, 0), Myposition(p, 1) - Myposition(p, 0))) 
   Else 
     getform = "" 
   End If 
End Function 
Public Function getsize(fieldname) 
  Dim i, sign, p 
  For i = 0 To Fcount - 1 
    If fieldname = Names(i) Then 
      sign = 1 
      p = i 
      Exit For 
    End If 
  Next 
  If sign = 1 Then 
    getsize = Myposition(p, 1) - Myposition(p, 0) 
  Else 
    getsize = 0 
  End If 
End Function 
Private Function BtoS(binstr) 
   Dim lnglen 
   Dim tmpBin 
   Dim strC 
   Dim skipflag 
   Dim i 
   ‘’中文字符Skip标志 
   skipflag = 0 
   strC = "" 
   If Not IsNull(binstr) Then 
      lnglen = LenB(binstr) 
      For i = 1 To lnglen 
          If skipflag = 0 Then 
             tmpBin = MidB(binstr, i, 1) 
             ‘’判断是否中文的字符 
             If AscB(tmpBin) > 127 Then 
                ‘’AscW会把二进制的中文双字节字符高位和低位反转，所以要先把中文的高低位反转 
                strC = strC & Chr(AscW(MidB(binstr, i + 1, 1) & tmpBin)) 
                skipflag = 1 
             Else 
                strC = strC & Chr(AscB(tmpBin)) 
             End If 
          Else 
             skipflag = 0 
          End If 
      Next 
   End If 
  BtoS = strC 
End Function 
 
 
‘’把普通字符串转成二进制字符串函数 
Private Function StoB(varstr) 
   Dim str2bin 
   Dim varchar 
   Dim varasc 
   Dim varlow, varhigh 
   Dim i 
   str2bin = "" 
   For i = 1 To Len(varstr) 
       varchar = Mid(varstr, i, 1) 
       varasc = Asc(varchar) 
       ‘’ asc对中文字符求出来的值可能为负数， 
       ‘’ 加上65536就可求出它的无符号数值 
       ‘’ -1在机器内是用补码表示的0xffff, 
       ‘’ 其无符号值为65535,65535=-1+65536 
       ‘’ 其他负数依次类推。 
       If varasc < 0 Then 
          varasc = varasc + 65535 
       End If 
       ‘’对中文的处理：把双字节低位和高位分开 
       If varasc > 255 Then 
          varlow = Left(Hex(Asc(varchar)), 2) 
          varhigh = Right(Hex(Asc(varchar)), 2) 
          str2bin = str2bin & ChrB("&H" & varlow) & ChrB("&H" & varhigh) 
       Else 
          str2bin = str2bin & ChrB(AscB(varchar)) 
       End If 
   Next 
   StoB = str2bin 
End Function 
 
 
Private Sub Class_Terminate() 
Set Bin = Nothing 
End Sub