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

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值