想在自己的网站上集成发短信的功能
想在自己的网站上集成发短信的功能,就是用户注册后,都可以在我网站上发短信,前提是用户有足够的值,请问发短信是如何实现的,请大家多指导
------解决方案--------------------我可以提供给你发送平台,你只需要在网站上调用一个我提供的asp代码就可以实现
联系电话:sypro@163.com
QQ:32046721
------解决方案--------------------给你参考代码,你将下面的代码保存为一个asp页.并按照提示修改就可以
<%
Dim conn
Dim connstr
Dim SQL,User
Dim Rs
Dim Https
Dim RtURL
Dim Msg
If isNumeric(request( "send_no "))=False then 'send_no为发送号码
Response.write " <br> <br> <br> <font size= '2 '> <div align=center> 手机号码有误,请重新填写 <br> <br> <a href= 'JavaScript:window.history.back() '> 返回 </a> </div> </font> "
Response.end
End If
'以下为连接数据库,实现验证用户的发送权限(主要是检查余额,根据你自己的情况修改
connstr= "DBQ= "+server.mappath( "../db/sms.mdb ")+ ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}; "
set conn=server.createobject( "ADODB.CONNECTION ")
conn.open connstr
User=request( "user ")
'检查用户余额
Set Rs= Server.CreateObject( "ADODB.Recordset ")
SQL= "Select SmsCount From TB_User Where User= ' " & User & " ' "
Rs.open SQL,conn,1,1
if RS.RecordCount=1 then
if RS( "SmsCount ") <=0 then
Response.write " <br> <br> <br> <font size= '2 '> <div align=center> 您的短信账户余额不足,发送失败! "
Response.end
end if
else
Response.write " <br> <br> <br> <font size= '2 '> <div align=center> 非法参数 </div> </font> "
Response.end
end if
Rs.Close
set Rs=Nothing
Msg=escape(request( "msg ")) '获取发送的短信内容
User=escape(User)
'转发数据到Sms Server(短信服务器),其中的参数pid=xxxxxx中的xxxxxx为您在我这里开通的账号
Set Https=server.createobject( "Msxml2.ServerXMLHTTP.3.0 ")
Https.setOption 2, 13056
Https.open "GET ", "http://www.systemonline.cn/taobao/addsmstosendlist.asp?pid=xxxxxx&user= " & user & "&to= " & request( "send_no ") & "&msg= " & Msg ,false, " ", " "
Https.send()
RtURL=Https.ResponseText
'获取服务器返回的代码
If Https.readystate=4 then
'扣除短信条数
If RtURL= "SEND_OK " Then
'可以在此修改您用户的发送信息.例如将发送条数减少
Response.write " <br> <br> <br> <font size= '2 '> <div align=center> 短信已经提交到服务器 </div> </font> "
End IF
'数据错误
If RtURL= "ERR_DATA_NULL " Then
Response.write " <br> <br> <br> <font size= '2 '> <div align=center> 数据错误:手机号码和短信都不能为空 </div> </font> "
End IF
'数据错误
If RtURL= "ERR_DATA_MOB " Then
Response.write " <br> <br> <br> <font size= '2 '> <div align=center> 数据错误:手机号码错误 </div> </font> "
End IF
'数据错误
If RtURL= "ERR_DATA_MSG " Then
Response.write " <br> <br> <br> <font size= '2 '> <div align=center> 数据错误:短信内容错误 </div> </font> "
End IF
Else
Response.write " <br> <br> <br> <font size= '2 '> <div align=center> XMLHTTP组件调用不成功,短信提交失败 </div> </font> "