只做了一部份，IP查询请大家自己照着我里边的样例自己完成吧！
演示：http://"target=" ... R</a><BR/>
</div>

</body>
</html>
<%
FunctionByteToStr(vIn)
DimstrReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn=""
Fori=1ToLenB(vIn)
ThisCharCode=AscB(MidB(vIn,i,1))
IfThisCharCode<&H80Then
strReturn=strReturn&Chr(ThisCharCode)
Else
NextCharCode=AscB(MidB(vIn,i+1,1))
strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))
i=i+1
EndIf
Next
ByteToStr=strReturn
EndFunction

FunctionGetURL(url,PostStr)
SetRetrieval=Server.CreateObject("Microsoft.XMLHTTP")
WithRetrieval
.Open"POST",url,false,"",""
.setRequestHeader"Content-Type","application/x-www-form-urlencoded"
.Send(PostStr)
GetURL=.ResponseBody
EndWith
SetRetrieval=Nothing
GetURL=ByteToStr(GetURL)
EndFunction

FunctionRegExpText(strng,regStr)
DimregEx,Match,Matches,RetStr
SetregEx=NewRegExp
regEx.Pattern=regStr
regEx.IgnoreCase=True
regEx.Global=True
SetMatches=regEx.Execute(strng)
ForEachMatchinMatches
RetStr=RetStr&regEx.Replace(Match.Value,"$1")&","
Next
RegExpText=RetStr
setregEx=nothing
EndFunction
%>