http.Open "GET",strUrl, false
http.setRequestHeader "Content-type:", "text/xml;charset=GB2312"
http.Send
msg=http.ResponseText
set http = nothing
'代表发送成功
If msg="1" then
SendSms="OK"
else
sendSms="ERR"
end IF
End Function
%>