调用飞信网关服务器HTTP接口发送短信的ASP源码

利用 MSXML2.DOMDocument对象访问http接口

1. dim user_ID
2. user_id="ayeah"
3. response.write sendSms("133800138000","短信来啦，最多180个字，长了会自动截断")
4. 
   
5. 
   
6. Function sendSms(mobile,content)
7.     On Error Resume Next 
8.     If Len(content)>180 Then 
9.         content=Left(content,168)&"...(%E8%AF%B7%E7%99%BB%E9%99%86OA%E6%9F%A5%E7%9C%8B%E5%AE%8C%E6%95%B4%E4%BF%A1%E6%81%AF)"
10.     End If 
11.     Dim oXML, oXMLError, ReturnValue, x
12.     If mobile="" Then 
13.         ReturnValue="0"
14.     Else 
15.         Set oXML = Server.CreateObject("MSXML2.DOMDocument")
16.         oXML.async = false
17.         oXML.setProperty "ServerHTTPRequest", true 
18.         '装载远程rss feed的内容到xml文档
19.         oXML.load("http://localhost:12520/?from="&user_ID&"&to="&mobile&"&msg="&content&"&output=xml") 
20.         'On Error Resume Next 
21.         If oXML.SelectSingleNode("//result") Is Nothing Then
22.             ReturnValue =  "-2"
23.         Else 
24.             ReturnValue = oXML.SelectSingleNode("//result").text
25.         End If 
26.         '释放资源
27.         Set oXML = Nothing 
28.     End If 
29.     If Err Then 
30.         ReturnValue="-3"
31.     End If 
32. 
    
33.     Select Case ReturnValue
34.         Case "-3"
35.             sendSms="Server Disconnected"
36.         Case "-2"
37.             sendSms="Server Returns nothing"
38.         Case "-1"
39.             sendSms="Fetion offline"
40.         Case "0"
41.             sendSms="Send faild, mobile not recognized"
42.         Case "1"
43.             sendSms="Send successful"
44.     End Select 
45.     sendSms="<result>"&sendSms&"</result>"
46. End Function
    

飞信网关服务器是本站开发的一个利用飞信短信服务发送短信的网关服务器，基于http协议，可返回json或者xml格式的结果，具体请看： http://www.ayeah.net/2008/12/fetion-sms-gateway-server.html

这段代码就是通过访问网关服务器的http端口 http://localhost:12520/，获取xml格式的结果。

当然，使用PHP、Java、Javascript等，更为简单了。