求一段关于限制地区的网页代码

来源：百度知道 编辑：UC知道 时间：2024/06/15 02:59:50
实现过程应该是这样的，识别来访IP，到IP数据库查寻所属地区，做出判断，只有某某地区的可以进入，不属于那个地区的弹出提示窗。

最好还是放到数据库中，小偷毕竟是小偷，一般站点都做了防盗，无法跨站直接查询到的。

我通常是从显IP的QQ中把IP库提取出来，用一个小工具转换成txt文件，然后导入SQL数据库或ACCESS数据库中使用。

不过看你这情况也真是够呛，帮你写了一段代码，直接通过百度查询IP来源，用ASP写的，看看受不受用吧。

<%
dim sUserIp
sUserIp =Request.ServerVariables("REMOTE_ADDR")

Dim oHttp, sGetProv
Set oHttp =Server.CreateObject("MSXML2.ServerXMLHTTP")
oHttp.SetTimeOuts 10000, 10000, 10000, 10000
oHttp.Open "GET", "http://www.baidu.com/s?wd="& sUserIp, False
oHttp.Send()
If oHttp.ReadyState <>4 Or oHttp.Status <>200 Then
sGetProv =""
Else
sGetProv =oHttp.ResponseText
End If
Set oHttp =Nothing

If Instr(sGetProv, "来自：") >0 Then
sGetProv =Mid(sGetProv, Instr(sGetProv, "来自：") +3)
sGetProv =Mid(sGetProv, 1, Instr(sGetProv, " ") -1)
If In