asp将字符串内容转换为2进制数据流,要实现字符串到2进制数据流的转换

asp将字符串内容转换为2进制数据流,要实现字符串到2进制数据流的转换,有需要操作字符串的2进制数据流,怎么转?

2个回答

 function TextToBinary(text)
  dim bindata,stream
  set stream=server.CreateObject("adodb.stream")
  with stream
    .Type=2'返回值text字符串模式
    .Mode=3'readwrite模式
    .Open'打开流
    .Charset="gb2312"'设置编码为gb2312
    .Position=0'设置流初始位置为0
    .WriteText text'写入字符串内容
    .Position=0'重新设置流位置为0,要不流位置处于最后,读不到数据
    .Type=1'设置流返回值类型为2进制
    bindata= .read'读取前面写入的字符串对应的2进制流数据
    .Close'关闭流
  end with
  TextToBinary=bindata
end function
dim text
text="测试abc"
response.Write len(text)&"<br/>"'输出5
response.Write lenb(TextToBinary(text))'输出7,因为中文占用2字节

Function sTb(vin)
Const adTypeText = 2
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream")
With BytesStream
.Type = adTypeText
.Open
.WriteText vin
.Position = 0
.Charset = "GB2312"
.Position = 2
StringReturn = .ReadText
.Close
End With
Set BytesStream = Nothing
sTb = StringReturn
End Function

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!

相似问题