ASP网站使用百度搜图
蟠龙山幽灵 发布于2019-11-21 浏览:1909 回复:4
0
收藏

'一直用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

收藏
点赞
0
个赞
共4条回复 最后由Randcase回复于2020-08-12
#4Randcase回复于2020-08-12

再加点说明 最好

0
#3yinjiantuan回复于2020-04-06

我只会VB,你这个代码能在VB中使用。可以帮助我一下吗(有偿的)。QQ:286637295

0
#2顾小然是我回复于2020-01-07

感谢分享~

0
TOP
切换版块