<%'为了支持原创，请保留该处注释，谢谢！'作者：草上飞'获取主域名Function getDomainUrl(url)    tempurl=replace(url,"http://","")    if instr(tempurl,"/")>0 then        tempurl=left(tempurl,instr(tempurl,"/")-1)   &n...

msg="请输入你要查询的IP或域名:" IP=Inputbox(msg,"IP地理位置查询小偷")If IP = "" Then IP = "127.0.0.1"url = "http://www.ip.cn/?q="& IP &""Body = getHTTPPage(url)Set Re = New RegExpRe.Pattern = "(查询结果为：.+)"Set&nbs...