SaaS---ASP接入宝典

 1.本示例代码是ASP的REST风格SAAS平台接入演示，自定义了三个函数
1）validateUserforREST()封装validateUser的REST风格的请求参数。
2）getHTTPPage()发送HTTP请求,调用validateUser接口。
3）DOMXML()解析REST风格的响应。
2.本示例包含了两个asp文件,一个是formatUtil.asp格式化日期函数，一个是md5.asp加密函数
3.示例代码如下:

1. <!--#include file="md5.asp" --> 
2. <!--#include file="formatUtil.asp"--> 
3. <% 
5. DIM userId,appId,appInstanceId,token,REST_REQUEST,REST_RESPONSE 
6. Dim returnValue 
7. '获取SIP平台的请求参数 
8. userId=request("user_id") 
9. appId=request("app_id") 
10. appInstanceId=request("app_instance_id") 
11. token=request("token") 
12. target=validateUserforREST (userId,appId,appInstanceId,token) '组织输入参数,形成REST风格请求 
13. REST_RESPONSE=getHTTPPage(target) '发送HTTP请求,调用validateUser接口 
14. returnValue=DOMXML(REST_RESPONSE) '解析REST风格的响应 
15. If(returnValue="1") Then 
16. session("rolename")="订购者" 
17. Response.Redirect("main.asp") 
19. Else 
20. session("rolename")="使用者" 
21. Response.Redirect("main.asp") 
22. End If 
25. '自定义ASP 响应validteUserforREST风格的处理函数 
26. Function validateUserforREST(userId,appId,appInstanceId,token) 
27. dim sip_url_pre,sip_appkey,sip_apiname,sip_timestamp,sip_sign,sip_sessionid 
28. dim cert_code 
29. sip_appkey="10885" //您要接入的软件编号,开发者社区注册软件的时候提供 
30. cert_code="0f0de9a02aff11ddb2e1bcf28e0b2955"//您要接入此软件的密钥，开发者社区注册软件的时候提供 
31. sip_sessionid=Now() 
32. sip_url_pre="http://sipdev.alisoft.com/sip/rest?" //发送REST请求到SIP测试平台，测试通过以后要改成正式URL:http://sip.alisoft.com/sip/rest? 
33. sip_timestamp=getDate(date,"yyyy-mm-dd")" "&getTime(time,"hh:mm:ss") 
34. sip_sign_source=cert_code"appId"&appId"appInstanceId"&appInstanceId"sip_apinamealisoft.validateUser""sip_appkey"&appId"sip_sessionid"&sip_sessionid"sip_timestamp"&sip_timestamp"token"&token"userId"&userId 
35. sip_sign=md5(sip_sign_source) 
36. sip_url=sip_url_pre"sip_appkey="&sip_appkey"&sip_apiname=alisoft.validateUser""&sip_timestamp="&sip_timestamp"&sip_sign="& _ 
37. sip_sign"&userId="&userId"&appId="&appId"&appInstanceId="&appInstanceId"&token="&token"&sip_sessionid="&Now() 
38. validateUserforREST=sip_url 
39. End Function 
42. '发送HTTP请求给SaaS平台 
43. Function getHTTPPage(url) 
44. Dim objXMLHTTP, xml 
45. Set xml = Server.CreateObject("Microsoft.XMLHTTP") 
47. xml.Open "GET", url, False 
48. ' Pull the data from the web page 
49. xml.Send 
51. 'Response.Write xml.responseText 
52. getHTTPPage=bytesToBSTR(xml.responseBody,"GB2312") 
53. Set xml = Nothing 
54. End Function 
56. Function BytesToBstr(body,Cset) 
57. dim objstream 
58. set objstream = Server.CreateObject("adodb.stream") 
59. objstream.Type = 1 
60. objstream.Mode =3 
61. objstream.Open 
62. objstream.Write body 
63. objstream.Position = 0 
64. objstream.Type = 2 
65. objstream.Charset = Cset 
66. BytesToBstr = objstream.ReadText 
67. objstream.Close 
68. set objstream = nothing 
69. End Function 
71. '解析validateUser接口返回的XML数据 
72. Function DOMXML(strXML) 
73. Set objXML = Server.CreateObject("Microsoft.XMLDOM") 
74. objXML.loadXML(strXML) 
75. set objRootElement = objXML.documentElement 
76. if not isObject(objRootElement) then 
77. DOMXML="no file loaded" 
78. else 
79. DOMXML=(objRootElement.childnodes(0).text) 
80. end if 
81. End Function 
83. %>
86. 包含文件formatUtil.asp格式化日期

<%
'功能描述:格式化日期函数
'输入参数:var_date 当前日期 var_format 日期格式
'输出参数:输出指定的日期格式 yyyy-mm-dd

function getDate(var_date,var_format)
if var_format="yyyy-mm-dd" then
var_year=year(var_date)
var_month=month(var_date)
var_day=day(var_date)
if (var_month>=0 and var_month<=9) then
var_month="0"&var_month
end if

if (var_day>=0 and var_day<=9) then
var_day="0"&var_day
end if
str_date=var_year&"-"&var_month&"-"&var_day
getDate=str_date

end if
end function

'功能描述:格式化时间函数
'输入参数:var_time 当前时间 var_format 日期格式
'输出参数:输出指定的日期格式 hh:mm:ss
function getTime(var_time,var_format)
if var_format="hh:mm:ss" then
var_hour=hour(time)
var_minute=minute(time)
var_second=second (time)

if (var_hour>=0 and var_hour<=9) then
var_hour="0"&var_hour
end if

if (var_minute>=0 and var_minute<=9) then
var_minute="0"&var_minute
end if

if (var_second>=0 and var_second<=9) then
var_second="0"&var_second
end if

str_time=var_hour&":"&var_minute&":"&var_second
getTime=str_time
end if

end function
%>

 

ASP的MD5加密请到网上自己下载，有很多。