您在这里:文档首页 - 源码示例

ASP

   
   
<%@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/x-www-form-urlencoded"   
    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 = "http://116.62.212.142/msg/HttpBatchSendSM"   
post_data = "account=mytest&pswd=mytest&mobile=15912345678&msg="&Server.URLEncode("【麦讯通】短信测试")&"&needstatus=true"   
    
response.Write(Post(target,post_data))   
''//请自己解析Post(target,post_data)返回的字符串并实现自己的逻辑   
''第一行xxxxxxx,0表示成功,其它的参考http.doc文档 
%> 

   
    

COPYRIGHT @ 2017-2018 深圳市麦讯通科技有限公司 ALL RIGHTS RESERVED. 备案号:粤ICP备08026943号

粤公网安备 44030702001630号

技术支持:百川网络