Function SendSms(DstMobile,SmsMsg)
Set obj = Server.CreateObject("urlsend.sms")
temp=obj.PostInfo("/send/ssend.asp?name=test&pwd=tests&dst="&DstMobile&"&msg="&SmsMsg&"","a")
set obj=nothing
if left(temp,4)<>"id=0" then
SendSms=true
exit Function
else
SendSms=false
exit Function
end if
End Function
'-----------------------------------------------------------------'////测试程序主体
sDst="1383802****"
if SendSms(sDst, "发送短信测试") then
response.write "发送成功!"
end if
%>
提示:语法错误
Function SendSms(DstMobile,SmsMsg)
Set obj = Server.CreateObject("urlsend.sms")
temp=obj.PostInfo("/send/ssend.asp?name=test&pwd=tests&dst="&DstMobile&"&msg="&SmsMsg&"","a")
set obj=nothing
if left(temp,4)<>"id=0" then
SendSms=true
exit Function
else
SendSms=false
exit Function
end if
End Function
'-----------------------------------------------------------------'////测试程序主体
sDst="1383802****"
if SendSms(sDst, "发送短信测试") then
response.write "发送成功!"
end if
%>
提示:语法错误
Function SendSms(DstMobile,SmsMsg)
无返回值用Sub
N年不写asp,不记得了