<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
QQMap_key="D56BZ-BFAHR-34GWH-WOM7M-H76VO-H6F4M"
|
|
keyword=trim(Request("keyword"))
|
boundary=trim(Request("boundary"))
|
OrdClass=trim(Request("OrdClass"))
|
acc1=trim(Request("page"))
|
if acc1="" then acc1=1
|
acc2=1
|
i=0
|
'Set rs = Server.CreateObject("ADODB.Recordset")
|
If keyword="" Then keyword="医院"
|
|
appUrl="https://api.966120.com.cn/qqmap/place/v1/search/"
|
args1="key="&QQMap_key&"&keyword="&keyword&"&boundary=nearby("&boundary&",1000,1)"
|
HTMLCODE= GetBody(appUrl,args1)
|
|
webJson=HTMLCODE
|
|
Response.Write webJson
|
Response.End%>
|
