欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

跪求一段程序 非常急请大家帮忙

更新时间: 2014-01-05 01:52:37 责任编辑: Author_N1

 

跪求一段程序 非常急请大家帮忙在线等
dim objSMS
Set objSMS = Server.CreateObject("UFmobileClient.SMS")
with objSMS
if cSMSisDaiLi = "1" then
'有代理服务器
SMSisOK = .SetAgentParam(1, cSMSService, cSMSDuanKou, cSMSUser, cSMSPW)
end if
SMSisOK = .SetGatewayUrl(cSMSWangGuan)
SMSisOK = .Login("admin", cSMSIDPW, cSMSID)
if SMSisOK < 0 then
senMessage = SMSisOK
exit function
end if
iSMSNum = .SendSms(cPhones, cMsg,"", "")
SMSisOK = .Logout
response.Write(iSMSNum)
response.End()
end with
  set objSMS=nothing
  senMessage = iSMSNum
这段程序是我截取的一部分部知道为什么本地测试发送短信就是没有结果,请大家帮帮忙
或者你有更好的可以告诉我下 谢谢了 邮箱w-bchang@163.com

--参考方法--
疑问,先检查 问题1 然后检查 问题 2......
dim objSMS 
Set objSMS = Server.CreateObject("UFmobileClient.SMS") 
with objSMS 
if cSMSisDaiLi = "1" then 
'有代理服务器 
SMSisOK = .SetAgentParam(1, cSMSService, cSMSDuanKou, cSMSUser, cSMSPW) 
end if 
SMSisOK = .SetGatewayUrl(cSMSWangGuan) 
SMSisOK = .Login("admin", cSMSIDPW, cSMSID) 
if SMSisOK < 0 then
问题 2
'这里是登陆成功与否的标志,如果小于0表示登陆成功,那这里应该没有 exit function才对
'如果小于0表示不成功,那这里在退出函数前应该释放资源先,
'有可能这里的 exit function 检查看是否合理,
senMessage = SMSisOK 
exit function
end if
iSMSNum = .SendSms(cPhones, cMsg,"", "") 
SMSisOK = .Logout 
response.Write(iSMSNum) 

end with 
set objSMS=nothing 
senMessage = iSMSNum
response.End() '问题1: 这句执行到时页面直接输出,之后的程序代码都不执行了,所以应该放在后面

没有更多信息所以推理如上....试看...
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:37
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2383/
本文WWW.DOC100.NET DOC100.NET版权所有。