<script language="jscript" runat="server"> 
Array.prototype.get = function(x) { return this[x]; }; 
function parseJSON(strJSON) { return eval("(" + strJSON + ")"); } 
</script>
<%if userid<>"" then
  response.write("<script>alert('已登录!');window.location.href='center.asp';</script>")
  response.end()
  end if
  if request.QueryString("action")="getsms" then
    '发送短信
 dim tel,data,smscon
 tel=request.QueryString("tel")
 if tel="" then
    response.Write("{status:0,code:0}")
    response.End()
 end if
 Dim zNum,shijian,smsurl,accountSid,smsContent,TOKEN,sig,timestamp
 smsurl="https://api.miaodiyun.com/20150822/industrySMS/sendSMS"
 accountSid="accountSid"
 TOKEN="TOKEN"
 shijian=now()
 timestamp=day_date()
 sig=lcase(md5(accountSid&TOKEN&timestamp,32))
 Randomize Timer
 zNum=Int(899999*Rnd+100000)
 
 session("smscode")=zNum
 session("time")=shijian
 smsContent="【签名】您的验证码为"&zNum&",请于20分钟内正确输入,如非本人操作,请忽略此短信。"
 
 data="accountSid="&accountSid&"&smsContent="&smsContent&"&to="&tel&"&timestamp="&timestamp&"&sig="&sig&"&respDataType=JSON"
 dim restr
    'response.Write("<br>"&timestamp)
 'response.Write(data)
 restr=getHTTPPage(smsurl,data)
 'response.Write(restr)
 Set obj = parseJSON(restr)
 if obj.respCode="00000" then
   response.Write("{status:1,code:0}")
 else
   response.Write("{status:0,code:"&obj.respCode&"}")
 end if
    response.End()
  end if
 
Function getHTTPPage(url,data)
 Dim Http
 Set Http = Server.CreateObject("MSXML2.XMLHTTP")
 Http.Open "POST", url, False
 Http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
 Http.send(data)
 If Http.readystate <> 4 Then
 Exit Function
 End If
 getHTTPPage = BytesToBstr(Http.responseBody, "GB2312")
 Set Http = Nothing
 If Err.Number <> 0 Then Err.Clear
End Function
 
Function BytesToBstr(body, Cset)
 Dim objstream
 Set objstream = Server.CreateObject("adodb.stream")
 objstream.Type = 1
 objstream.Mode = 3
 objstream.Open
 objstream.Write body
 objstream.Position = 0
 objstream.Type = 2
 objstream.Charset = Cset
 BytesToBstr = objstream.ReadText
 objstream.Close
 Set objstream = Nothing
End Function

function dtos(num)
  dtos=cstr(num)
  dim i
  'response.Write(num&":"&len(dtos)&"<br>")
  if len(dtos)<2 then
    for i=1 to 2-len(dtos)
   'response.Write("("&i&")")
      dtos="0"&dtos
   'response.Write(dtos)
    next
  else
     dtos=dtos
  end if
  'dtos=cint(dtos)
end function

function day_date() 'response.Write(month(now)&"-"&day(now)&"-"&hour(now)&"-"&minute(now)&"-"&second(now))
  day_month=dtos(month(now))
  day_day=dtos(day(now))
  day_hour=dtos(hour(now))
  day_minute=dtos(minute(now))
  day_second=dtos(second(now))
  day_date=cstr(year(now))&cstr(day_month)&cstr(day_day)&cstr(day_hour)&cstr(day_minute)&cstr(day_second)
 
end function
%>

asp发送短信验证码 pst方式的更多相关文章

  1. Java 实现手机发送短信验证码

    Java 实现手机发送短信验证码 采用引入第三方工具的方式,网上查了半天,发现简单的实现方式便是注册一个中国网建的账号,新建账号的时候会附带赠几条免费短信,彩信 ,之后想要在使用就得花钱了.简单的操作 ...

  2. 超实用的JavaScript代码段 Item4 --发送短信验证码

    发送短信验证码 实现点击“发送验证码”按钮后,按钮依次显示为“59秒后重试”.“58秒后重试”…直至倒计时至0秒时再恢复显示为“发送验证码”.在倒计时期间按钮为禁用状态 . 第一步.获取按钮.绑定事件 ...

  3. Laravel5中使用阿里大于(鱼)发送短信验证码

    在做用户注册和个人中心的安全管理时,我实现借助第三方短信平台(阿里大于(鱼))在Laravel框架中进行手机验证的设置:阿里大于,是阿里通信旗下优质便捷的云通信服务平台,整合了三大运营商的通信能力,为 ...

  4. 微信小程序发送短信验证码完整实例

    微信小程序注册完整实例,发送短信验证码,带60秒倒计时功能,无需服务器端.效果图: 代码: index.wxml <!--index.wxml--> <view class=&quo ...

  5. java + maven 实现发送短信验证码功能

    如何使用java + maven的项目环境发送短信验证码,本文使用的是榛子云短信 的接口. 1. 安装sdk 下载地址: http://smsow.zhenzikj.com/doc/sdk.html ...

  6. android发送短信验证码并自动获取验证码填充文本框

    android注册发送短信验证码并自动获取短信,截取数字验证码填充文本框. 一.接入短信平台 首先需要选择短信平台接入,这里使用的是榛子云短信平台(http://smsow.zhenzikj.com) ...

  7. java 阿里云接口实现发送短信验证码

    此刻自己做的小项目中,需要用到手机发送短信验证码实现注册功能,于是就去阿里云注册了账号,并实现随机发送验证码的功能 第一步:在阿里云官网登录注册   已有支付宝或淘宝的账号可以直接登录,最后需要实名认 ...

  8. Yii2发送短信验证码完全解决方案

    概述 在做项目的时候,需要用到短信发送验证码功能.不能不说Yii2的牛逼,很容易就搞定了.下面我整理一下具体功能和流程,分享给大家. 主要功能 通过Yii2 rules验证手机号 通过js验证是否为手 ...

  9. 阿里云短信服务发送短信验证码(JAVA开发此功能)

    开发此功能需注册阿里云账号,并开通短信服务(免费开通) 充值后,不会影响业务的正常使用!(因为发送验证类短信:1-10万范围的短信是0.045元/条).开发测试使用,充2块钱测试足够了 可参考阿里云官 ...

随机推荐

  1. 应用的入口——Startup

    应用的入口——Startup 一个ASP.NET Core应用被启动之后就具有了针对请求的处理能力,而这个能力是由管道赋予的,所以应用的启动同时意味着管道的成功构建.由于管道是由注册的服务器和若干中间 ...

  2. 获取jar包当前的路径

    转自:http://kinganpo.iteye.com/blog/876243 import java.io.File; /** * 获取打包后jar的路径信息 * @author Administ ...

  3. oracle查询语句大全 oracle 基本命令大全

    oracle查询语句大全 oracle 基本命令大全 来源于:http://download.csdn.net/download/jia584643753/5875619 1.create user ...

  4. 《四 spring源码》手写springmvc

    手写SpringMVC思路 1.web.xml加载  为了读取web.xml中的配置,我们用到ServletConfig这个类,它代表当前Servlet在web.xml中的配置信息.通过web.xml ...

  5. 洛谷P1965 转圈游戏

    https://www.luogu.org/problem/show?pid=1965 快速幂 #include<iostream> #include<cstdio> #inc ...

  6. C#基础之运行环境

    这是我的第一篇博文,目前这一阶段我的目标是先把C#掌握好,C#是一门语言,是基于C风格语言(C.C++和Java)的特性而设计的.所以在我的博客里,我会记录下我的学习笔记,这不仅仅是笔记,还是所学过的 ...

  7. 利用Vagrant and VirtualBox搭建core os环境

    利用Vagrant and VirtualBox搭建core os环境 系统环境 ubuntu 14.04 x64 vagrant 1.7.4 virtualbox 4.3.10 git 1.9.1 ...

  8. vue2.0:(七)、vue-resource

    本篇文章开始前,先介绍下什么是vue-resource,并且现在还有一个axios. Vue.js是数据驱动的,这使得我们并不需要直接操作DOM,如果我们不需要使用jQuery的DOM选择器,就没有必 ...

  9. elasticsearch查询方式

    1.query string a).GET /index/type/_search ===>>查询所有 b).GET /index/type/_search?q=filed:value&a ...

  10. 新手第一天学习 C#语言(进制互换)

    说起来我们对一些陌生或者未知的东西有一些恐惧感,但是又有一些期待,虽然我不确定自己能不能学会这门语言,但是我会尽自己最大的努力学. 我们第一天学的的内容呢,对大多数的人都知道,计算机的语言是二进制,但 ...