Question

ASP如何获取http://iframe.ip138.com/ic.asp这个页面的显示结果？

问题是这样的，我需要做一个IP归属地判断的程序，由于长城宽带的IP地址怎么也获取不到真实的，我发现IP138的这个页面可以获取到真实的地址。请问如何能取得这个页面的显示内容？

Answer 1

另一方法：

Function GetUrlIP(Url)
Dim xiP, GetHtmlTxt, a, b
Set xiP = createObject("Microsoft.XMLHTTP")
xiP.Open "Get", Url, False
xiP.Send
GetHtmlTxt = xiP.responsetext
a = Instr(GetHtmlTxt, "[") + 1
b = Instr(a, GetHtmlTxt, "]", 1)
GetUrlIP = right(left(GetHtmlTxt, b-1), b-a)
End Function

Msgbox GetUrlIP("http://iframe.ip138.com/ic.asp")

Answer 2

With CreateObject("Microsoft.XMLHTTP")
.Open "GET", "你上面的那个地址", False
.send
MsgBox "外网IP是" & Split(Split(StrConv(.responseBody, vbUnicode), "[")(1), "]")(0)
End With