淘宝API互联平台ASP版接入宝典

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加密请到网上有很多。