Asp,Php,Jssdk,mysql,mssql,微信公众号开发,小程序开发-学习笔记

'推送发货通知---------------------------------------------

userID = rf("userID")

wx_add = rf("wx_add")

wl_gs = rf("wl_gs")

wl_dh = rf("wl_dh")

openid = rf("openid")

hyname = rf("hyname")

wl_tel = rf("wl_tel")

wl_hwbh = rf("wl_hwbh")

url = "http://wl.netwh.com/wl_view.asp?id="&Hid

Dim Arr(6)

Arr(0) = "first=会员帐户："&userID

Arr(1) = "keyword1="&hyname

Arr(2) = "keyword2="&wx_add

Arr(3) = "keyword3="

Arr(4) = "keyword4="&wl_gs

Arr(5) = "keyword5="&wl_dh

Arr(6) = "remark=货物编号："&wl_hwbh&"\n物流电话："&wl_tel&"\n公司售后客服："&anco_site_map

  color = "#000000"

  Openid = openid

  template_id = "LZy9EBYVLjAAwUOZ_-0vLiuZicZ8Dxj85vJtw5PGmNc" 

  SET Wx = New WxAPI

  call Wx.SendMessage(Openid,template_id,Url,Arr,color)

  Set Wx=Nothing

'推送发货通知结束---------------------------------------------