ASP获取数据流文件和文本的方法

1. Dim bytecount,bytes
   
2. Dim stream,strRet
   
3. 
   
4. bytecount = Request.TotalBytes
   
5. bytes = Request.BinaryRead(bytecount)
   
6. 
   
7. Set stream = Server.CreateObject("ADODB.Stream")
   
8.     stream.Type = 1 'adTypeBinary              
   
9.     stream.Open()                                   
   
10.         stream.Write(bytes)
    
11.         stream.Position = 0                             
    
12.         stream.Type = 2 'adTypeText               
    
13.         stream.Charset = "utf-8"                     
    
14.         strRet = stream.ReadText() 'here is your json as a string               
    
15.     stream.Close()
    
16. Set stream = nothing
    
17. Call WriteToTextFile("ttasp.txt",strRet,"utf-8")  
    

复制代码

可以用于获取 POST 的原始主体等