+ -
当前位置:首页 → 问答吧 → 谁用过这个短信猫的asp开发包?

谁用过这个短信猫的asp开发包?

时间:2011-08-26

来源:互联网

<%
Set Dsms =Server.CreateObject("Mongate.gsm") '创建COM对象
if(Dsms.InitModem(1)=1) then '初始化短信猫
response.write "初始化成功<br>"
if(Dsms.SendSms(0,"991933301","FW")=1) then '发送短信(第0个通道)
response.write "发送成功<br>"
else
response.write "发送失败<br>"
end if
set re = Dsms.GetSms(0) '接收短信(第0个通道)
response.write "收到"&re.num&"条信息<br>"
for i=0 to re.num-1
response.write re.mobi(i)&","&re.datetime(i)&","&re.note(i)&"<br>"
next
Dsms.CloseModem() '关闭短信猫(用完后注意关闭,方便其它用户调用)
else
response.write "初始化Modem失败<br>"
end if
Set Dsms = Nothing '释放COM对象(用完后注意释放,方便其它用户调用)
Set re= Nothing '释放用于返回接收到信息的对象
%>

作者: a8521220   发布时间: 2011-08-26

没用过,不过这需要接一个串口猫到服务器上吧。上面应该类似厂家提供的DEMO,直接使用就是了。

作者: pzhuyy   发布时间: 2011-08-29