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)