在经典的asp上传文件

这段代码在每个项目中都能正常运行,但现在它并不适用于所有项目.所以我不能只编辑和使用其他功能,我需要了解为什么它不再起作用

修复#1 - 卸载"KB3104002 IE11的累积安全更新"

修复#2 - 将所有字节数组复制到一个字节值字符串中并对其进行处理,或者提供替代在数组上进行自己迭代的instrb.

Function InstrBNew(startPos, inputArray, searchChar)

  if LenB(searchChar) = 1 Then
    Dim loc
    For loc = startPos to Lenb(inputArray)
      if MidB(inputArray, loc, 1) = searchChar then Exit For
    Next
    InstrBNew = loc
  Else
    InstrBNew = InstrB(startPos, inputArray, searchChar)
  End If
End Function

修复#3 - 微软发布了一个修补程序.这将在2016年1月向所有人发布.您可以在这里尽早得到它.https://support.microsoft.com/en-us/kb/3125446

问题似乎是vbScript中的InstrB函数现在在以下条件下返回值1.

在搜索字节数组时(例如Response.BinaryRead).这在ASP或VBScript中并不常见,但文件上传是您执行此操作时的其中一次.

当您搜索单个字节时

如果您正在搜索字符串,或者您正在搜索多字节模式,那么InstrB正常工作.

PosEnd = InstrB(PosBeg, ByteArray, chrb(13))

在我损坏的系统上,即使在位置1没有字节值13,该函数也总是返回1.在搜索字节数组时,它返回任何值的1.经典的ASP文件上传组件,这就是为什么我们都在这个线程上,遇到这种情况,因为他们正在解析那个字节数组寻找分隔符.

PosEnd = InstrB(PosBeg,ByteArray,getByteString("FormBoundary"))
PosEnd = InstrB(PosBeg,ByteArray,getByteString(vbCRLF))
PosEnd = InstrB(PosBeg,"Normal string", chrb(103)) ' Search for letter g in a string

以上这些行正常工作并且符合预期.多字节搜索和匹配字符串工作预期.

这个问题昨晚在多台服务器上同时出现.我看到昨晚Windows系统更新也在运行.缩小范围,我发现MS15-124(KB3的累积安全更新KB3104002)包含vbscript.dll的更新.我删除了此更新,现在代码恢复正常工作.

我在他们的"IE Con​​nect"系统上提出了一个问题,因为它被包含在IE更新中,但我不确定这是不是正确的地方.

我附上了一个测试用例.在破碎的系统上,它将返回"5,1,5".在工作系统上,它将返回"5,5,5"

希望得到解决方案.一些旧代码在我无法访问的系统上运行.

' Test.vbs
Dim byteArray, byteArray2, byteArray3, bPosition
Dim responseText

' byte string
' "hello hello"
byteArray = chrb(104) & chrb(101) & chrb(108) & chrb(108) & chrb(111) & chrb(32) & chrb(104) & chrb(101) & chrb(108) & chrb(108) & chrb(111) & chrb(0)

' byte array - What Response.BinaryRead is
byteArray2 = TextToBytes(byteArray)

' Vartype: http://stackoverflow.com/questions/3281355/get-the-type-of-a-variable-in-vbscript
ResponseText = ResponseText + "blen: " & lenb(byteArray) & vbCRLF
ResponseText = ResponseText + "type: " & vartype(byteArray) & vbCRLF

ResponseText = ResponseText + "blen: " & lenb(byteArray2) & vbCRLF
ResponseText = ResponseText + "type: " & vartype(byteArray2) & vbCRLF

bPosition = instrb(1, byteArray, chrb(111))
ResponseText = ResponseText + "Position in string: " & bPosition & vbCRLF

bPosition = instrb(1, byteArray2, chrb(111))
ResponseText = ResponseText + "Position in byte array: " & bPosition & vbCRLF

bPosition = instrb(1, byteArray2, chrb(111) & chrb(32))
ResponseText = ResponseText + "Position in byte array: " & bPosition & vbCRLF

WScript.Echo ResponseText

' Converts a string (8) to a vbArray of bytes (8192 + 17)
' I'm not sure how else to create a vbArray of bytes. It does not seem to be a common data type in vbscript
Private Function TextToBytes(ByRef pbinBinaryData)
    Dim lobjRs
    Dim llngLength
    Dim lbinBuffer
    CONST adLongVarBinary = 205
    llngLength = LenB(pbinBinaryData)
    Set lobjRs = CreateObject("ADODB.Recordset")
    Call lobjRs.Fields.Append("BinaryData", adLongVarBinary, llngLength)
    Call lobjRs.Open()
    Call lobjRs.AddNew()
    Call lobjRs.Fields("BinaryData").AppendChunk(pbinBinaryData)
    Call lobjRs.Update()
    lbinBuffer = lobjRs.Fields("BinaryData").GetChunk(llngLength)
    Call lobjRs.Close()
    Set lobjRs = Nothing
    TextToBytes = lbinBuffer
End Function