HTTP_ASP_Dome.asp 820 B

123456789101112131415161718192021222324
  1. <%
  2. '发送短信示例
  3. 'SMS.API
  4. uid="test" '账号(改成你自己的)
  5. pwd="123456" '密码(改成你自己的)
  6. mob="此处填写手机号码 " '接收号码多个用,号分隔 接收表单mob=trim(request("mob")),如:13000000000,13200000000
  7. msg="你好!今天下午开会!" '短信内容 接收表单 msg=trim(request("msg"))
  8. '==============================
  9. function getHTTPPage(strurl)
  10. on error resume next
  11. set http = Server.CreateObject("Microsoft.XMLHTTP")
  12. http.Open "GET",strurl, false
  13. http.setRequestHeader "Content-type:", "text/xml;charset=GB2312"
  14. http.Send
  15. getHTTPPage=http.ResponseText
  16. end function
  17. '================================开始发送
  18. strurl="http://service.winic.org/sys_port/gateway/?id="&uid&"&pwd="&pwd&"&to="&mob&"&content="&msg&"&time="
  19. backinfo=getHTTPPage(strurl) '提交并返回结果 也可以这样写 backinfo=getHTTPPage(strurl)
  20. %>