Вы можете сделать все это в классическом ASP без использования каких-либо других языков или страниц. Вам понадобится одна вещь - есть библиотека, которая называется JSON2.ASP, вам нужно будет проанализировать результаты. Вы можете узнать больше об этом здесь:
http://zend.lojcomm.com.br/entries/classic-asp-json-revisited/
https://github.com/nagaozen/asp-xtreme-evolution/blob/master/lib/axe/classes/Parsers/json2.asp
После того как вы это вы можете получить результаты Yelp и анализировать их легко в классический ASP. Я делаю это с API 1.0, так как это немного проще, но вы можете использовать это как отправную точку, чтобы сделать это в API 2.0, если хотите.
Ниже приводится код, который верна для поиска в ресторан. Вы, конечно же, должны заполнить свой код API, где YWSID указан в URL-адресе ниже. Я передаю результаты в массив, а затем создаю таблицу из массива для отображения на странице, но как только у вас есть данные, вы можете делать с ней все, что захотите.
<!--#include file="JSON2.asp"-->
<%
set xmlHTTP = server.createobject("MSXML2.ServerXMLHTTP.6.0")
xmlHTTP.open "GET", "http://api.yelp.com/business_review_search?location=Clare%20Ireland&ywsid=XXXXXXXXXX&category=restaurants", false
xmlHTTP.send()
RawFeed = xmlHTTP.ResponseText
Set RawResults = JSON.parse(join(array(RawFeed)))
For Each YelpFeed In RawResults.Get("businesses")
If YelpFeed.Get("is_closed") = "False" Then
Response.write YelpFeed.Get("name") & "<br>" & vbNewLine
Response.write YelpFeed.Get("rating_img_url") & "<br>" & vbNewLine
Response.write YelpFeed.Get("address1") & "<br>" & vbNewLine
Response.write YelpFeed.Get("phone") & "<br>" & vbNewLine
Response.write YelpFeed.Get("photo_url") & "<br>" & vbNewLine
Response.write YelpFeed.Get("review_count") & "<br>" & vbNewLine
End If
Next
Set RawResults = nothing
%>
У вас есть ссылка на страницу API Yelp, на которую вы смотрите? –
Просто FYI, вы оставили ключ Yelp. Я понимаю, что это уже больше года, поэтому, если кто-то хочет злоупотреблять им, это уже произошло. – dguaraglia