Dim reqData With CreateObject("Adodb.Stream") .Mode = 3 .Type = 1 .Open .Write Request.BinaryRead(Request.TotalBytes) .Position = 0 .Type = 2 .Charset = "UTF-8" reqData = .ReadText(-1) .Close End With Response.Write reqData
微信小程序
微信扫一扫体验
微信公众账号
微信扫一扫加关注
发表评论 取消回复