[转贴]IP查询小偷

jackal

级别: 经院高中

发帖: 369

铜板: 3800

人品值: 215

贡献值: 0

交易币: 0

好评度: 305

信誉值: 0

金币: 0

所在楼道

只看楼主更多操作楼层直达

0 发表于: 2006-09-28

写BLOG的时候，完善一下功能。

其实主要是处理XMLHTTP的POST和截取字符的。

IP138小偷

代码入下：
程序代码：

复制代码

<style type="text/css">
<!--
body {
font-family: Arial, Helvetica, sans-serif;
font-size: 14px;
}
td {
font-size: 12px;
color: #000000;
line-height: 150%;
}
</style><%
function GetSourceInfo(byval url,ByVal ipstr) '这里处理POST传递参数
dim xmlhttp,xmlget,bgpos,endpos,stra
Set xmlhttp = CreateObject("Msxml2.ServerXMLHTTP")
strA="ip="&ipstr&"&action=2"
With xmlhttp
.Open "POST", url, False
.setRequestHeader "Content-Length",len(strA)
.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
.Send strA
if .status<>200 then
xmlget="error"
else
xmlget = bin2str(.responseBody)
end if
End With
set xmlhttp = nothing
GetSourceInfo=xmlget
end function
Function bin2str(ByVal binstr)
Const adTypeBinary = 1
Const adTypeText = 2
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream") '建立一个流对象
With BytesStream
.Type = adTypeText
.Open
.WriteText binstr
.Position = 0
.Charset = "GB2312"
.Position = 2
StringReturn = .ReadText
.close
End With
Set BytesStream = Nothing
bin2str = StringReturn
End Function
Function GetBody(ConStr,StartStr,OverStr,IncluL,IncluR) ' 这里用来传递字符
If ConStr="$False$" or ConStr="" or IsNull(ConStr)=True Or StartStr="" or IsNull(StartStr)=True Or OverStr="" or IsNull(OverStr)=True Then
GetBody="$False$"
Exit Function
End If
Dim ConStrTemp
Dim Start,Over
ConStrTemp=Lcase(ConStr)
StartStr=Lcase(StartStr)
OverStr=Lcase(OverStr)
Start = InStrB(1, ConStrTemp, StartStr, vbBinaryCompare)
If Start<=0 then
GetBody="$False$"
Exit Function
Else
If IncluL=False Then
Start=Start+LenB(StartStr)
End If
End If
Over=InStrB(Start,ConStrTemp,OverStr,vbBinaryCompare)
If Over<=0 Or Over<=Start then
GetBody="$False$"
Exit Function
Else
If IncluR=True Then
Over=Over+LenB(OverStr)
End If
End If
GetBody=MidB(ConStr,Start,Over-Start)
End Function
%>
<table width="768" border="0" align="center" cellpadding="4" cellspacing="6">
<tr>
<td width="100%" align="center" valign="top" bgcolor="#FFFFFF"><%Dim ipdata
ipdata=Request("ipdata")
If ipdata=Empty Then
%>
<table width="95%" border="0" align="center" cellpadding="4" cellspacing="1" bordercolor="#CCCCCC">
<FORM METHOD=POST ACTION="[url]http://www.ip138.com/ips8.asp[/url]"name=&quo ... get="_blank">
<tr><td align="center">IP地址：<input type="text" name="ip" size="16">
<input type="submit" value="查询"><INPUT TYPE="hidden" name="action" value="2">
</td></tr></FORM>
</table>
<br>
<%Else
response.write "<h1>您查询的IP"
response.write(GetBody(GetSourceInfo("[url]http://www.ip138.com/ips8.asp[/url]" ,ipdata),"<h1>您查询的IP","</li></ul></td>",False,False))
response.write "</li></ul>"
End If%>
</td></tr></table>