中国专业短信平台运营服务商网 sms.cn 博好云信官网

asp短信接口

asp短信接口开发示例下载示例



    <%

    '------------------------------------------------
    
    '功能: HTTP接口ASP调用说明
    
    '日期: 2009-02-08
    
    '说明: http://api.sms.cn/sms/?ac=send&uid=用户账号&pwd=MD5位32密码&mobile=号码&content=内容
    
    '状态:
    '100 发送成功
    '101 验证失败
    '102 短信不足
    '103 操作失败
    '104 非法字符
    '105 内容过多
    '106 号码过多
    '108 号码内容空
    '109 账号冻结
    '112 号码错误
    '116 禁止接口发送
    '117 绑定IP不正确
    '161 未添加短信模板
    '162 模板格式不正确
    '163 模板ID不正确
    '164 全文模板不匹配
    '------------------------------------------------
    
    %>
    
    <html>
    
    <head>
    
    <title>二次开发接口HTTP方式ASP调用演示</title>
    
    </head>
    
    <body>
    
    <%
    
    If request("m")="send" then
    
    call sendsms(trim(request("mobile")),trim(request("msg")))
    
    Else
    
    %>
    
    <form name=form1 method=post action="?m=send" onSubmit="if(this.mobile.value==''){alert('输入接收手机号码');this.mobile.focus();return false}">
    
    <table width="90%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
    
    <tr>
    
    <td width="80" height="30" align="center" bgcolor="#FFFFFF">手机号码：</td>
    
    <td bgcolor="#FFFFFF"><input name=mobile type=text value="电话号码"></td>
    
    </tr>
    
    <tr>
    
    <td width="80" height="30" align="center" bgcolor="#FFFFFF">发送内容：</td>
    
    <td bgcolor="#FFFFFF"> <textarea name=msg rows=6 style="width:98%">HTTP接口发送演示</textarea></td>
    
    </tr>
    
    <tr>
    
    <td height="30" colspan="2" align="center" bgcolor="#FFFFFF"><input type=submit value="发送短信" id=submit1 name=submit1></td>
    
    </tr>
    
    </table>
    
    </form>
    
    <%
    
    End If
    
    %>
    
    </body>
    
    </html>
    
    <%
    
    Sub sendsms(mobile,msg)
    
    '多个手机号之间用","分隔
    
    dim userid,password,status
    
    dim xmlObj,httpsendurl
    
    uid = "账号" '企业ID，请联系我们索取免费测试帐号
    
    password = "密码"'ID密码，要使用MD5加密为32位密文并转换为小写
    
    
    
    httpsendurl="http://api.sms.cn/sms/?ac=send&uid="&uid&"&pwd="&password&"&mobile="&mobile&"&content="&server.URLEncode(msg)
    
    Set xmlObj = server.CreateObject("Microsoft.XMLHTTP")
    
    xmlObj.Open "get",httpsendurl,false
    
    xmlObj.send()
    
    status = xmlObj.responseText
    
    Set xmlObj = nothing
    
    If MID(status,10,3) = "100" then '发送成功
    
    Response.Write "<br><br>返回状态码："& MID(status,10,3)&"   发送状态：发送成功！    <a href=""javascript:history.back();"">返回发送页面</a>"
    
    Else '发送失败
    
    Response.Write "<br><br>返回状态码："& MID(status,10,3)&"   发送状态：发送失败！   <a href=""javascript:history.back();"">返回发送页面</a>"
    
    End if
    
    End sub
    
    %>

asp短信接口开发示例下载示例