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

订单页面代码，
----------------------------------------
       <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>保存发货信息成功！
     <%

   '--------------------------------------------------------------------------------------------------  
   '程序名称：发货成功发送手机短信  
   '程序作者：无风 QQ592002940
   '开发日志：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
   '发货成功发送手机短信结束--------------------------------------------------------------------------------------------------

'程序页面代码
'------------------------------------
  '发送手机短信程序  by 无风  QQ592002940 20130827
  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

不错哦

楼主，能实现，企业会员直接发货这个功能吗