'一直用ASP做个小型公司图库管理系统
  '研究了好久nodejs，一直不入门。只能硬着头皮继续用ASP了。
  Function GetDataUrl(Url)
Dim Myhtml,mXmlHttp
set mXmlHttp = server.CreateObject("microsoft.xmlhttp")
mXmlHttp.open "GET",Url,false
mXmlHttp.setRequestHeader "Content-Type","application/x-www-form-urlencoded" 
mXmlHttp.send()
Myhtml = mXmlHttp.responseText
Set mXmlHttp = nothing
GetDataUrl = Myhtml
End Function

Function PostDataUrl(Url,PostData)
Dim Myhtml,xmlHttp
set xmlHttp = server.CreateObject("microsoft.xmlhttp")
xmlHttp.Open "POST", Url, false
xmlHttp.setRequestHeader "Content-Length",Len(PostData) 
xmlHttp.setRequestHeader "Content-Type","application/x-www-form-urlencoded" 
xmlHttp.send(PostData)
Myhtml = xmlHttp.responseText
Set xmlHttp = nothing
PostDataUrl = Myhtml
End Function

Function GetToken()
Dim client_id,client_secret,url,MyJSON
client_id  = "自己改"
client_secret = "自己改"
url= "https://aip.baidubce.com/oauth/2.0/token"
set MyJSON = JSON.parseJSON(GetDataUrl(url&"?grant_type=client_credentials&client_id="&client_id&"&client_secret="&client_secret))
'格式化JSON数据，具体代码网上很多
GetToken = MyJSON.access_token
End Function

Function similarSearch(img)'相似图搜索,返回JSON格式数据,img为Base64编码图片
Dim Image,Url,tags,tag_logic,pn,rn
Url = "https://aip.baidubce.com/rest/2.0/image-classify/v1/realtime_search/similar/search"
Image = Server.URLEncode(img)
tags = "1,2"
tag_logic = "1" '检索时逻辑，0-and ,1 or
'pn ='分页功能，起始页
'rn = "250" '分页功能,每页数量
similarSearch = PostDataUrl(Url,"access_token="&GetToken()&"&image="&Image&"&tags="&tags&"&tag_logic="&tag_logic)
End Function