一个带完整采集小偷功能的IP查询代码

查询|ip地址|采集

一个带完整采集小偷功能的IP查询代码,采集来自IP138.CN的IP地址数据.

以下是代码：
<%
Response.expires = 0
Response.expiresabsolute = now() - 1
Response.addHeader "pragma","no-cache"
Response.addHeader "cache-control","private"
Response.cachecontrol = "no-cache"
Response.CharSet = "GB2312"
Server.ScriptTimeOut = 9999
If request("ip")<>"" Then
response.write getip(Trim(request("ip")))
response.end
End if
Function GetPage(Path)
        t = GetBody(Path)
        GetPage=BytesToBstr(t,"UTF-8")
End function
Function GetPage2(Path)
        t = GetBody(Path)
        GetPage2=BytesToBstr(t,"GB2312")
End function
Function GetBody(url)
        on error resume Next
        Set Retrieval = CreateObject("Microsoft.XMLHTTP")
        With Retrieval
        .Open "Get", url, False, "", ""
        .Send
        GetBody = .ResponseBody
        End With
        Set Retrieval = Nothing
End Function
Function BytesToBstr(body,Cset)
        dim objstream
        set objstream = Server.CreateObject("adodb.stream")
        objstream.Type = 1
        objstream.Mode =3
        objstream.Open
        objstream.Write body
        objstream.Position = 0
        objstream.Type = 2
        objstream.Charset = Cset
        BytesToBstr = objstream.ReadText
        objstream.Close
        set objstream = nothing
End Function
Function FixStr(ByVal str, ByVal start, ByVal last, ByVal n)
Dim strTemp
on error resume Next
If InStr(str, start) > 0 Then
Select Case n
Case 0
strTemp = Right(str, Len(str) - InStr(str, start) - Len(start) + 1)
strTemp = Left(strTemp, InStr(strTemp, last) - 1)
Case Else
strTemp = Right(str, Len(str) - InStr(str, start) + 1)
strTemp = Left(strTemp, InStr(strTemp, last) + Len(last) - 1)
End Select
Else
strTemp = ""
End If
FixStr = strTemp
End Function
Public Function RemoveHtml(byval strContent)
Dim objReg ,strTmp
If strContent="" OR ISNull(strContent) Then Exit Function

Set objReg=new RegExp
objReg.IgnoreCase =True
objReg.Global=True
objReg.Pattern="<(.[^>]*)>"
strTmp=objReg.Replace(strContent, "")
Set objReg=Nothing
RemoveHtml=strTmp
strTmp=""
End Function
Public Function GetIp(ip)
strhtml = getpage2("http://www.ip138.cn/index.php?ip="&Trim(ip)&"")
strhtml = fixstr(strhtml,"查询结果<br><br>","<br><br>",0)
GetIp = Replace(removehtml(strhtml),Trim(ip),"")
End Function
%>

时间： 2024-03-14 04:38:45

一个带完整采集小偷功能的IP查询代码

一个带完整采集小偷功能的IP查询代码的相关文章

php 网站同IP查询代码

javascript实现的一个带下拉框功能的文本框_javascript技巧

邮箱登陆发短信-如何用java代码，模拟登陆139邮箱，并用139邮箱自带的短信功能给一个移动用户发送短信

《Unity 5.x游戏开发实战》一1.10　添加一个用来采集的金币

[置顶]C#+HtmlAgilityPack+XPath带你采集数据(以采集天气数据为例子)

一个比较完整的Inno Setup 安装脚本

一个比较完整的Inno Setup 安装脚本(转)

一个带checkbox的webcontrol

一个较完整的关键字过滤解决方案（上）