ASP用来和APP交互的API接口函数

ASP用来和APP交互的API接口函数
先用Request对象获取发送过来的数据，处理后再输出

1. '1.得到字节数
   
2. bytes=Request.TotalBytes
   
3. if bytes=0 then
   
4.         response.Write("data null")
   
5.         response.End()
   
6. end if
   
7. '2.使用二进制方式来读取客户端使用POST传送方法所传递的数据
   
8. readjson=Request.BinaryRead(bytes)
   
9. '3.将bytes数组转换为字符串
   
10. json= bytes2str(readjson,"utf-8")
    
11. set bytes = nothing
    
12. set readjson = nothing
    
13. '输出结果
    
14. response.write(json)

复制代码

用到的函数bytes2str

1. '/**将bytes数组转换为字符串
   
2. ' * @param vin 要转换的bytes数组
   
3. ' * @param charset 编码方式 utf-8或者gb2312
   
4. ' */
   
5. function bytes2str(vin,charset)
   
6.         dim bytesstream,stringreturn
   
7.         set bytesstream = server.CreateObject("adodb.stream")
   
8.         bytesstream.type = 2
   
9.         bytesstream.open
   
10.         bytesstream.writeText vin
    
11.         bytesstream.position = 0
    
12.         bytesstream.charset =charset
    
13.         bytesstream.position = 2
    
14.         stringreturn = bytesstream.readtext
    
15.         bytesstream.close
    
16.         set bytesstream = nothing
    
17.         bytes2str = stringreturn
    
18. end function

复制代码

支持，楼主大义！