杭州设计公司,杭州广告设计公司
网页设计
通用ASP网页小偷程序
信息来源:http://www.51weidi.com     栏目类别: 网页设计     浏览次数:     发表评论 减小字体 增大字体
<%
'------------------------------
'获取网页源码
'------------------------------
Fu**ctio** GetHttpPage(HttpUrl)
&**bsp;&**bsp; If IsNull(HttpUrl)=True Or Le**(HttpUrl)<18 Or HttpUrl="$False$" The**
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; GetHttpPage="$False$"
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; Exit Fu**ctio**
&**bsp;&**bsp; E**d If
&**bsp;&**bsp; Dim Http
&**bsp;&**bsp; Set Http=server.createobject("MSXML2.XMLHTTP")
&**bsp;&**bsp; Http.ope** "GET",HttpUrl,False
&**bsp;&**bsp; Http.Se**d()
&**bsp;&**bsp; If Http.Readystate<>4 the**
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; Set Http=Nothi**g
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; GetHttpPage="$False$"
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; Exit fu**ctio**
&**bsp;&**bsp; E**d if
&**bsp;&**bsp; GetHTTPPage=bytesToBSTR(Http.respo**seBody,"GB2312")
&**bsp;&**bsp; Set Http=Nothi**g
&**bsp;&**bsp; If Err.**umber<>0 the**
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; Err.Clear
&**bsp;&**bsp; E**d If
E**d Fu**ctio**
'------------------------------
'将获取的源码转换为中文
'------------------------------
Fu**ctio** BytesToBstr(Body,Cset)
&**bsp;&**bsp; Dim Objstream
&**bsp;&**bsp; Set Objstream = Server.CreateObject("adodb.stream")
&**bsp;&**bsp; objstream.Type = 1
&**bsp;&**bsp; objstream.Mode =3
&**bsp;&**bsp; objstream.Ope**
&**bsp;&**bsp; objstream.Write body
&**bsp;&**bsp; objstream.Positio** = 0
&**bsp;&**bsp; objstream.Type = 2
&**bsp;&**bsp; objstream.Charset = Cset
&**bsp;&**bsp; BytesToBstr = objstream.ReadText
&**bsp;&**bsp; objstream.Close
&**bsp;&**bsp; set objstream = **othi**g
E**d Fu**ctio**
'------------------------------
'UrlE**codi**g 转换编码
'------------------------------
Fu**ctio** UrlE**codi**g(DataStr)
&**bsp;&**bsp;&**bsp; Dim StrRetur**,Si,ThisChr,I****erCode,Hight8,Low8
&**bsp;&**bsp;&**bsp; StrRetur** = ""
&**bsp;&**bsp;&**bsp; For Si = 1 To Le**(DataStr)
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; ThisChr = Mid(DataStr,Si,1)
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; If Abs(Asc(ThisChr)) < &HFF The**
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; StrRetur** = StrRetur** & ThisChr
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; Else
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; I****erCode = Asc(ThisChr)
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; If I****erCode < 0 The**
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; I****erCode = I****erCode + &H10000
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; E**d If
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; Hight8 = (I****erCode&**bsp; A**d &HFF00)\ &HFF
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; Low8 = I****erCode A**d &HFF
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; StrRetur** = StrRetur** & "%" & Hex(Hight8) &&**bsp; "%" & Hex(Low8)
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; E**d If
&**bsp;&**bsp;&**bsp; Next
&**bsp;&**bsp;&**bsp; UrlE**codi**g = StrRetur**
E**d Fu**ctio**
'------------------------------
'截取字符串
'------------------------------
Fu**ctio** GetBody(Co**Str,StartStr,OverStr,I**cluL,I**cluR)
&**bsp;&**bsp; If Co**Str="$False$" or Co**Str="" or IsNull(Co**Str)=True Or StartStr="" or IsNull(StartStr)=True Or OverStr="" or IsNull(OverStr)=True The**
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; GetBody="$False$"
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; Exit Fu**ctio**
&**bsp;&**bsp; E**d If

&**bsp;&**bsp; Dim Start,Over
&**bsp;&**bsp; Start = I**StrB(1, Co**Str, StartStr, vbBi**aryCompare)
&**bsp;&**bsp; If Start<=0 the**
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; GetBody="$False$"
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; Exit Fu**ctio**
&**bsp;&**bsp; Else
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; If I**cluL=False The**
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; Start=Start+Le**B(StartStr)
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; E**d If
&**bsp;&**bsp; E**d If
&**bsp;&**bsp; Over=I**StrB(Start,Co**Str,OverStr,vbBi**aryCompare)
&**bsp;&**bsp; If Over<=0 Or Over<=Start the**
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; GetBody="$False$"
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; Exit Fu**ctio**
&**bsp;&**bsp; Else
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; If I**cluR=True The**
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; Over=Over+Le**B(OverStr)
&**bsp;&**bsp;&**bsp;&**bsp;&**bsp; E**d If
&**bsp;&**bsp; E**d If
&**bsp;&**bsp; GetBody=MidB(Co**Str,Start,Over-Start)
E**d Fu**ctio**
'------------------------------
'开始截取
'------------------------------
Dim Url,Code
Url="http://www.dzsc.com/price.asp?i**foselect=&i**foid=A&keyword=lm324&imageField.x=18&imageField.y=12"
Code=GetHttpPage(Url)
Dim BodyCode
BodyCode=GetBody(Code,"------->","<div class=""bottom_**av""",False,False)
Respo**se.Write(BodyCode)
%>
本文标签:通用ASP网页小偷程序把本文收藏到 网摘 博采 百度
上一篇:ASP判断ip是否手机访问网站          回网页设计列表         下一篇:asp过滤非法字符
搜索本站其他内容: 百度一下:[通用ASP网页小偷程序]   Google搜索:[通用ASP网页小偷程序]
最新网友评论文章↓
1.靠2009-11-19 20:42:45
2.去2009-11-19 20:39:41
3.脑残还是变相炫富?2009-11-16 20:17:58
4.好感动哦2009-11-7 15:40:32
5.怎么学习2009-10-20 10:54:50

文章添加时间:2009-12-8,文件大小:20.31 KB,最近更新时间:2011-12-16 18:13:59 返回TOP↑            

本站文章搜集自网络;共享网络,共享快乐,我为人人,人人为我;如果您知道本站未知来源文章请告知本站谢谢!
文中及留言观点不代表本站;本站转载内容只是为了更好的交流;
若侵犯了您的版权请联系E-mail:有事儿,您Q我!,本站核实后立即处理!

  •             平面设计| 标志设计| 包装设计| 网页设计| 广告设计| VI设计| 画册设计| 专卖店设计| 展位设计| 名片设计| 网站地图|    建议使用IE5及以上1024*768分辨率
  •             友情链接 版权所有 © 杭州威迪广告公司 2008-2010 | TEL:0571-88385993 13296756810 浙ICP备09011107号