PB9网易云信发短信



String ls_url,ls_data,ls_response

string s_appsecret,s_nonce,s_curtime,s_checksum,ls_content
long l_time
SELECT datediff(ss,'1970-01-01 0:00:00',GETDATE()) as aaa into:l_time from mytable;

s_appsecret="e3fe41f22243"
s_nonce="123456"
s_curtime=string(l_time)

ls_content = space(128)

//计算验证码串，采用网上“pbfunc.dll”的SHA1计算
if SHA1(s_appsecret+s_nonce+s_curtime,ls_content)=1 then
 s_checksum=lower(ls_content)
else
 s_checksum=""
return
end if

OleObject lole_tenyear   //声明ole
ls_url = 'https://api.netease.im/sms/sendtemplate.action'    
lole_tenyear = CREATE oleobject
lole_tenyear.ConnectToNewObject("Microsoft.XMLHttp")
lole_tenyear.open ("POST",ls_url, false)

lole_tenyear.setRequestHeader ("Cont