Chinaunix首页 | 论坛 | 博客
  • 博客访问: 39992
  • 博文数量: 19
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 205
  • 用 户 组: 普通用户
  • 注册时间: 2018-01-23 15:20
文章分类

全部博文(19)

文章存档

2018年(19)

我的朋友

分类: C/C++

2018-06-29 10:17:11

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>


<%


Function Post(url,data)


    dim Https 


    set Https=server.createobject("MSXML2.XMLHTTP")


    Https.open "POST",url,false


    Https.setRequestHeader "Content-Type","application/json"


    Https.send data


    if Https.readystate=4 then


        dim objstream 


        set objstream = Server.CreateObject("adodb.stream")


        objstream.Type = 1


        objstream.Mode =3


        objstream.Open


        objstream.Write Https.responseBody


        objstream.Position = 0


        objstream.Type = 2


        objstream.Charset = "utf-8"


        Post = objstream.ReadText


        objstream.Close


        set objstream = nothing


        set https=nothing


    end if


End Function



dim target,post_data


target = ""


''//手机号码,格式(区号+手机号码),例如:8615800000000,其中86为中国的区号


post_data="{""account"":""zensen"",""password"":""a."",""mobile"":""8615800000000"",""msg"":""Server.URLEncode(253云通讯】您好,您的验证码是999999)""}"


response.Write(Post(target,post_data))


''//请自己解析Post(target,post_data)返回的json格式并实现自己的逻辑


%>

 

阅读(1076) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~