SaaS---ASP接入宝典

最新推荐文章于 2009-07-01 21:34:00 发布

原创最新推荐文章于 2009-07-01 21:34:00 发布 · 725 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#rest #token #date #function #url #asp

本文介绍了一个使用ASP实现的RESTful风格SAAS平台接入示例，包括了自定义函数、HTTP请求发送及XML响应解析等关键步骤。

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
%>