大家帮忙看哈这段代码，我不知道什么意思，谢了，，给分，，。。。。。。。。。

Question

Function Bytes2bStr(vin)
        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    
        Bytes2bStr = StringReturn
End Function 
Function SendToSp(PostUrl)
IsSuccess="" 
           Server.ScriptTimeOut=144000      
       Set PostMobile = CreateObject("Microsoft.XMLHTTP")
           With PostMobile
      .Open "get", PostUrl, False, "",""  
      .Send 
       IsSuccess= .Responsebody 
  End With 
          Set Retrieval = Nothing
SendToSp=trim(IsSuccess)
End Function Const adTypeBinary = 1
Const adTypeText = 2

Answer 1

第一个是读取流
第二个好像是把XMl写入Http吧，呵
应该是Javascript的服务器端代码，本人用C#，所以不大了解