跪求一段程序 非常急请大家帮忙在线等
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： 这句执行到时页面直接输出，之后的程序代码都不执行了，所以应该放在后面
没有更多信息所以推理如上....试看...
