asp获取ip判断用户属于什么国家
2024-03-14 20:01:09
免费的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
【责任编辑:超级管理员】
关键字:
php简单Session购物车功能function函数 删除HTTrack Website软件下载的软件注释。最新文章
2021-05-10 09:29
- pbootcms栏目三级分类循环与判断,更多级别也可以。
- 简单实现 网站转微信小程序,并且让他支持 转发给朋友 功能
- dede 电脑端和手机端首页同步生成方法,
- excel表格导入access中不换行解决办法-
- dede完美上下篇 英文版替换标签 dede:prenext 中英
- dede中英文网站栏目条调用方法
- dede双语站 面包导航{dede:field name='position'}
- PS: 无法完成请求,因为某种原因阻止文本引擎进行
- dede企业网站常见左侧固定大小类二级菜单调用代码
- 栏目页dede:channelartlist调用下级子类并dede:arcl
- dede:channelartlis 判断是否有子类栏目
- 更换织梦后台图集上传flash插件为layui上传模块
相关文章
2021-05-10 09:29