常用ASP自定义函数集 (S.Sams)

", "" & chr(124) & "", 0)
End Function
 
rem 借助RecordSet将二进制流转化成文本
Quoted from Unkown:
Function BinaryToString(biData,Size)
  Const adLongVarChar = 201
  Set RS = CreateObject("ADODB.Recordset")
  RS.Fields.Append "mBinary", adLongVarChar, Size
  RS.Open
  RS.AddNew
  RS("mBinary").AppendChunk(biData)
  RS.Update
  BinaryToString = RS("mBinary").Value
  RS.Close
End Function

关键词：常用ASP自定义函数集 (S.Sams)