asp获取ip判断用户属于什么国家

免费的api不用注册每天最多查询1000次，小流量网站够用，大流量可以自己买套餐

On Error Resume Next

Dim ipAddress,field
'获取客户端真实 IP 地址
If Not Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" Then
ipAddress = Split(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")(0)
Else
ipAddress = Request.ServerVariables("REMOTE_ADDR")
End If

   
     
Dim apiUrl
apiUrl = "https://ipapi.co/" & ipAddress & "/json/"

Dim objHTTP
Set objHTTP = Server.CreateObject("MSXML2.XMLHTTP")
objHTTP.Open "GET", apiUrl, False
objHTTP.Send
'Response.Write(objHTTP.Status)
Dim responseText
responseText = objHTTP.responseText


' 判断responseText中是否包含"China"字符（不区分大小写）
If InStr(1, LCase(responseText), LCase("China")) > 0 Then
'Response.Write "yes"
'Response.End()
Else
' Response.Write "不是中国 'China'"

End If

Set objHTTP = Nothing