增加了静态页面调用JS 来访问发送WapPush WebService的例子

增加了静态页面调用JS 来访问发送WapPush WebService的例子

 http://www.digws.com/smssystem/webservice/wsjscript.htm

  <script>
  
  function  PostRequestData(URL,data){   

   var  xmlhttp  =  new  ActiveXObject("Microsoft.XMLHTTP");   
   
   xmlhttp.Open("POST",URL,  false);   
   xmlhttp.SetRequestHeader ( "Host", "www.digws.com");
   xmlhttp.SetRequestHeader  ("Content-Type","application/x-www-form-urlencoded");   
     
   
   try  {   
   
   xmlhttp.Send(data);   
   
   var  result  =  xmlhttp.status;   
   
   }   
   
   catch(ex)  {   
   
   return("0"  +  ex.description  +  "|"  +  ex.number);   
   
   }   
   
   //alert(result );
   if(result==200)  {   
    //alert( xmlhttp.responseText);
   
    return(xmlhttp.responseText);   
   
   }   
   
   xmlhttp  =  null;   
   
   }   

  </script>

  <script>
  
  
  function SendSms()
  {
  
   var head= "account=straccount&password=strpassword&serviceno=&mobilenolist=strmobilenolist&content=strcontent&url=strurl&sendtime="
   
   head = head.replace(/straccount/,Form1.TextBoxUserName.value);
   head = head.replace(/strpassword/,Form1.TextBoxPassword.value);
   head = head.replace(/strmobilenolist/,Form1.TextBoxMobileNo.value);
   head = head.replace(/strcontent/,encodeURIComponent(Form1.TextBoxContent.value));
   head = head.replace(/strurl/,encodeURIComponent(Form1.TextBoxWapPushURL.value));

   //head = escape(head);
  
 
   
   //alert(head);
  
   var resp = PostRequestData("http://www.digws.com/smssystem/webservice/sms.asmx/SendWapPush",head);
   
   //alert(resp);
   
   var Dom = new ActiveXObject("Microsoft.XMLDOM") ;
   Dom.async=false  ;
   Dom.loadXML(resp ) ;
  
   if( Dom.parseError.errorCode != 0)
   {
     alert("服务器返回错误");
   }
   else
   {
    
    if( Dom.documentElement.childNodes.item(0) ==null ){
      alert("发送成功");
     
    }else{
     var txt = Dom.documentElement.childNodes.item(0).text ;
     alert(txt);
    }
    
   }
     
   //Form1.TextBoxContent.value = resp;
   
   Dom = null;
  }
   
  </script>

posted on 2005-12-06 21:05 Digital Webservices Support ( www.digws.com) 阅读(...) 评论(...) 编辑 收藏

转载于:https://www.cnblogs.com/digws/archive/2005/12/06/292013.html