那为大哥帮我看哈代码，用C#解释哈，谢了。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

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

With BytesStream
                .Type=adTypeText      
                .Open                   
                .WriteText vin          
                .Position = 0           
                .Charset = "GB2312"     
                .Position = 2            
                StringReturn = .ReadText  
                .close                    
        End With
相当于c#的BytesStream.Type=adTypeText;
          ............................
          ............................

Answer 2

VB.NET 转为C#，C#转为VB.NET。http://developerfusion.com/utilities/convertvbtocsharp.aspx