IT教程 | 加入收藏 | 简体 | 繁体
科汛CMS:科汛CMSPhpCMS织梦CMSShopCMS论坛CMSJavaCMS
当前位置: 首页 > CMS教程 > 科汛CMS

kesioneshop订单完成发货后同时给客户发送手机短信通知参考代码

2014-04-01来源:[www.121ask.com]热度:0℃ 【字体:

kesioneshop订单完成发货后同时给客户发送手机短信通知参考代码:

请参考下面的代码修改为适合自己所需要的

 

订单页面代码,
----------------------------------------
       <br><table align='center' width='50%' border='0' cellpadding='2' cellspacing='1' class='border'>   
         <tr style='text-align:center' class='title'>     
      <td height='22'><b>恭喜你! </b></td>
      </tr>
     <tr class='tdbg'><td><br>保存发货信息成功!
     <%


 

   '--------------------------------------------------------------------------------------------------  
   '程序名称:发货成功发送手机短信  
   '开发日志:1、20130826  普通商品和团购商品订单后台发货后自动发送手机短信
   '开发日志:2、20130827  优化一件商品多数量分别发送手机短信
   '开发日志:3、20130828  优化订单中没有手机号则调用会员资料中的手机号,如果订单中有手机号,则此手机号优先使用
   '开发日志:4、20130829  优化了客户购买多件普通商品时,需要对每件商品分别发送短信的功能
    dim producttitle
   
    '查询订单类型,团购或者普通
    Dim RSItty:Set RSItty=Server.CreateObject("adodb.recordset")
    RSItty.Open"Select OrderType From KS_Order Where OrderID='" & RS("OrderID") & "'",Conn,1,1


 

    '查询订单商品id号和数量
    Dim RSIt:Set RSIt=Server.CreateObject("adodb.recordset")
    Dim sql
    sql="Select ProID,amount From KS_OrderItem Where SaleType<>5 and SaleType<>6 and OrderID='" & RS("OrderID") & "'"
    RSIt.OPEN sql,Conn,1,1
             if RSIt.eof and RSIt.bof then
             else
                do while not RSIt.eof
          '循环出订单中所有商品,针对一次购买多种商品


 

          '查询订单商品名称
          Dim RSIts:Set RSIts=Server.CreateObject("adodb.recordset")
             If RSItty("OrderType")=1 Then
              RSIts.Open"Select Subject From ks_groupbuy Where ID="& RSIt("ProID")&"",Conn,1,1
              producttitle=RSIts("Subject")
           ELSE
              RSIts.Open"Select Title From KS_Product Where ID="& RSIt("ProID")&"",Conn,1,1
              producttitle=RSIts("Title")
              end if
            
      '生成短信内容发送到客户手机
                    dim ReturnInfotel,i,Mobile
      if rs("phone")="" then
         Mobile=rs("Mobile")
      else
         Mobile=rs("phone")
      end if
      
      for i=1 to RSit("amount")
            ReturnInfotel="尊敬的"&rs("username")&",您好,您购买的"&RSit("amount")&"件【"&producttitle&"】商品,订单号为:" & RS("OrderID") & ",我们已经发货,这是第"&i&"件,请注意查收!"&now
      call KSsms.sendsms(Mobile,ReturnInfotel)
      next
      '循环订单所有商品结束----------------------------------------------------------------------------
               RSIt.movenext
               loop
             end if
             RSIt.close
             Set RSIt=Nothing


 

          RSItty.Close:Set RSItty=Nothing
   '发货成功发送手机短信结束--------------------------------------------------------------------------------------------------


 


'程序页面代码
'------------------------------------
  '发送手机短信程序
  Sub sendsms(mobile,msg)
      dim xmlObj,httpsendurl
      httpsendurl="http://aaaa.com/sdkproxy/sendsms.action?cdkey=3SDK&password=999999&phone="&mobile&"&message="&Server.UrlEncode(msg)
      Set xmlObj = server.CreateObject("Microsoft.XMLHTTP")
      xmlObj.Open "get",httpsendurl,false
      xmlObj.send()
      Set xmlObj = nothing
  End sub

以上IT文章《kesioneshop订单完成发货后同时给客户发送手机短信通知参考代码 》由名客技术网[www.121ask.com]提供阅读!
推广信息
推广信息
名客技术网是一个免费为广大IT技术人员提供IT教程,绿色软件,asp/php/jsp/java/net等实例视频教程,CMS教程,破解软件下载以及学习相关源码、知识的IT网站。
名客技术网如果无意之中侵犯了您的版权,请来电告知,本站将在3个工作日内删除 QQ:175352796
Copyright 2011-2017 Powered by 121ASK.COM, All Rights Reserved.
备案号:鄂ICP备11013833号-3