谁用过这个短信猫的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 '释放用于返回接收到信息的对象
%>
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
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28