1.本示例代码是ASP的REST风格SAAS平台接入演示，自定义了三个函数
1）validateUserforREST()封装validateUser的REST风格的请求参数。
2）getHTTPPage()发送HTTP请求,调用validateUser接口。
3）DOMXML()解析REST风格的响应。
2.本示例包含了两个asp文件,一个是formatUtil.asp格式化日期函数，一个是md5.asp加密函数
3.示例代码如下:
- <!--#include file="md5.asp" -->
- <!--#include file="formatUtil.asp"-->
- <%
- DIM userId,appId,appInstanceId,token,REST_REQUEST,REST_RESPONSE
- Dim returnValue
- '获取SIP平台的请求参数
- userId=request("user_id")
- appId=request("app_id")
- appInstanceId=request("app_instance_id")
- token=request("token")
- target=validateUserforREST (userId,appId,appInstanceId,token) '组织输入参数,形成REST风格请求
- REST_RESPONSE=getHTTPPage(target) '发送HTTP请求,调用validateUser接口
- returnValue=DOMXML(REST_RESPONSE) '解析REST风格的响应
- If(returnValue="1") Then
- session("rolename")="订购者"
- Response.Redirect("main.asp")
- Else
- session("rolename")="使用者"
- Response.Redirect("main.asp")
- End If
- '自定义ASP 响应validteUserforREST风格的处理函数
- Function validateUserforREST(userId,appId,appInstanceId,token)
- dim sip_url_pre,sip_appkey,sip_apiname,sip_timestamp,sip_sign,sip_sessionid
- dim cert_code
- sip_appkey="10885" //您要接入的软件编号,开发者社区注册软件的时候提供
- cert_code="0f0de9a02aff11ddb2e1bcf28e0b2955"//您要接入此软件的密钥，开发者社区注册软件的时候提供
- sip_sessionid=Now()
- sip_url_pre="http://sipdev.alisoft.com/sip/rest?" //发送REST请求到SIP测试平台，测试通过以后要改成正式URL:http://sip.alisoft.com/sip/rest?
- sip_timestamp=getDate(date,"yyyy-mm-dd")" "&getTime(time,"hh:mm:ss")
- 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
- sip_sign=md5(sip_sign_source)
- sip_url=sip_url_pre"sip_appkey="&sip_appkey"&sip_apiname=alisoft.validateUser""&sip_timestamp="&sip_timestamp"&sip_sign="& _
- sip_sign"&userId="&userId"&appId="&appId"&appInstanceId="&appInstanceId"&token="&token"&sip_sessionid="&Now()
- validateUserforREST=sip_url
- End Function
- '发送HTTP请求给SaaS平台
- Function getHTTPPage(url)
- Dim objXMLHTTP, xml
- Set xml = Server.CreateObject("Microsoft.XMLHTTP")
- xml.Open "GET", url, False
- ' Pull the data from the web page
- xml.Send
- 'Response.Write xml.responseText
- getHTTPPage=bytesToBSTR(xml.responseBody,"GB2312")
- Set xml = Nothing
- End Function
- Function BytesToBstr(body,Cset)
- dim objstream
- set objstream = Server.CreateObject("adodb.stream")
- objstream.Type = 1
- objstream.Mode =3
- objstream.Open
- objstream.Write body
- objstream.Position = 0
- objstream.Type = 2
- objstream.Charset = Cset
- BytesToBstr = objstream.ReadText
- objstream.Close
- set objstream = nothing
- End Function
- '解析validateUser接口返回的XML数据
- Function DOMXML(strXML)
- Set objXML = Server.CreateObject("Microsoft.XMLDOM")
- objXML.loadXML(strXML)
- set objRootElement = objXML.documentElement
- if not isObject(objRootElement) then
- DOMXML="no file loaded"
- else
- DOMXML=(objRootElement.childnodes(0).text)
- end if
- End Function
- %>
- 包含文件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加密请到网上自己下载，有很多。