先選中一個你想 「偷」 的網頁程序。。。5 `! O. o+ W5 F4 r" [
我這裡看中了它。。呵呵 。。。很多妹妹圖片。。。口水中。。
T& M9 S0 q1 E7 Nhttp://www.linkmm.com/photo/ads2.html
& \. i, d7 X; ^+ {然後建立個ASP網頁，先把以下代碼複製進去1 Q5 ~5 j9 g2 [) I& V
<%Function bytes2BSTR(vIn)
* h" s: Y+ F5 d# KstrReturn = "" 7 {: `- u3 m# k. f" z7 K
For i = 1 To LenB(vIn)
3 R# u3 i: F5 a HThisCharCode = AscB(MidB(vIn,i,1))
3 r1 K+ d( ]- k2 x/ u! A4 _+ TIf ThisCharCode < &H80 Then
4 w) h* S0 Y/ E6 I& w- ~/ h. T. e( X8 YstrReturn = strReturn & Chr(ThisCharCode) $ {4 A4 S) r6 C' @5 n
Else ( P s4 J7 U- y y% j) L" Z
NextCharCode = AscB(MidB(vIn,i+1,1)) 4 {* E' ~, v# Z c! H
strReturn = strReturn & Chr (CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) # N. E/ t) h" `: G8 S# l
i = i + 1
K9 {% M. ^: D0 x% N7 k1 rEnd If - ` k- F2 \. I0 n/ \& W& q7 ]: Q s
Next
- {6 [+ `) t& f4 _- E. \# L. mbytes2BSTR = strReturn
' C8 z# c9 H8 Y. _' s6 yEnd Function
( O8 }* U/ j4 f, n( I
- n2 G* K- Z7 Z9 W
7 B9 b6 [" M6 n" y* i- j' \Url = "http://www.linkmm.com/photo/ads2.html";
1 Z' G7 A5 e# x2 iset oSend=createobject("Microsoft.XMLHTTP")
( |- g* y$ j, T% mSourceCode = oSend.open ("GET",url,false)
+ J$ }! x* {- xoSend.send()
w6 H% B. J. h1 l# o1 X l! Cif err.number<>0 then1 d+ A f! Z" p6 K: @1 t
Response.write err.description& T' c% T6 `2 T. _3 W" m4 {
Response.End()
: z) t% t" d1 q% J+ I& E5 U+ c% Hend if
$ y: z8 G- x3 a+ L' P' {3 BSourceCode = bytes2BSTR(oSend.responseBody)%>0 C9 Z$ u# Q, T3 }! o# ~2 I
+ Q4 w7 \/ v7 L y3 J" n其中Url = "http://www.linkmm.com/photo/ads2.html";就是你想要 偷 的網頁，換成你需要的就可以了。。
! s7 n9 f3 \5 H: |! z; x s0 x1 f這個時候response.write 一下。。是不是很多圖片看不見啊。。不急，我們有replace呢。。把你現在的網頁查看下原文件，，把原來的網頁查看下願文件對比下就知道怎麼讓這些無法顯示的顯示出來。。。比起那些一個個replace替換圖片的方法
9 U. ]4 q r/ L- |用這個方法好多了就是在有src的地方在他前面直接替換網址多方便呵呵。。
6 h$ a- v/ q+ ^# }& [+ n1 h, I7 N在寫這段代碼。。程序就完了呵呵
% Z* J; Z8 P# R/ x<%baseurl1="http://www.linkmm.com/photo";
3 ? P' M5 P& C; {SourceCode =replace(sourcecode,"src=""img/","src=""http://www.linkmm.com/photo/img/";)
1 a3 J* b, N0 P8 ^( U9 @# i* MSourceCode =replace(sourcecode,"new.gif",baseurl1&"/new.gif")
5 ~- P$ K8 n1 MSourceCode =replace(sourcecode,"href=""photo888","href=""http://www.linkmm.com/photo/photo888";)4 [* Z( @ z4 G; M# j9 z
SourceCode =replace(sourcecode,"site.css","http://www.linkmm.com/photo/site.css";)+ w& e9 s/ j/ T' l4 G0 ?9 l
response.write SourceCode%>9 D% t5 [# N6 ]7 p; j8 F
( U7 |6 V; T6 i4 h是不是很簡單啊。不懂的聯繫我52596464" ~/ u, g" l% V4 B
完整代碼如下：
- Q8 h T% L5 w8 }$ G' L1 P- x<html># t/ E9 x6 {8 n
- l7 w" X2 O% l! v) l# W
<head>1 S# k* f: |/ z! H% K
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">7 y! _6 Z2 e; a
<meta name="ProgId" content="FrontPage.Editor.Document">
8 G$ m& X1 J9 k8 i<meta http-equiv="Content-Type" content="text/html; charset=gb2312">: p/ a8 W/ C- K# k; r4 s% a6 U
<meta http-equiv="refresh" content="3600">/ A2 J9 j% m8 g
<title></title>
. ?6 p% [9 r5 T+ m</head>
1 [3 Q6 F, f/ G/ A/ p5 x) m$ k1 `, n. [" f ~( O
<body>3 U! D; {5 Z% k1 E3 p
7 w& V% V) _/ S, v+ d( y* [<%
% q( k, P$ V# ZFunction bytes2BSTR(vIn)
% x. j6 q: p6 A5 u i$ v1 M0 @strReturn = "" & y5 H0 C' \( v+ i, l1 Z
For i = 1 To LenB(vIn) $ `& Q/ W- m J( q
ThisCharCode = AscB(MidB(vIn,i,1))
6 t- h7 v8 L1 a( s; U$ VIf ThisCharCode < &H80 Then 1 U# t5 x. E* E
strReturn = strReturn & Chr(ThisCharCode)
' W1 N+ H6 l) f7 y# N6 ]7 A8 e5 C: y; AElse ; w+ I+ D: P6 T% X" I! m- v
NextCharCode = AscB(MidB(vIn,i+1,1))
6 b+ O/ p) _9 c0 x+ W1 s: F' ystrReturn = strReturn & Chr (CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) % d- Z$ `% @# }! \: d1 j
i = i + 1
& }/ a9 s# r0 g, m9 }/ k2 AEnd If & y* [; j1 @3 Z3 v7 O
Next
8 B& y7 T N4 w# c; jbytes2BSTR = strReturn - B# r5 h! m( W6 a0 j5 w$ Y8 Y% q* H
End Function # R+ v$ Q; k0 g4 p2 w
9 V( J6 k0 h; ]6 c2 q5 R [7 z* i
Url = "http://www.linkmm.com/photo/ads2.html";
; W7 a7 \8 B4 f$ W# T/ m" D8 Cset oSend=createobject("Microsoft.XMLHTTP")( t6 w A+ Q: l" w
SourceCode = oSend.open ("GET",url,false)
# x% N9 Z; X4 P! S8 N: I p$ ToSend.send()+ N2 m' `8 }- m o4 ~2 j& }) ~
if err.number<>0 then
0 }0 B0 w# C# q9 a" |! m& SResponse.write err.description' C3 t& Q: ~5 x7 t
Response.End()' W# Q* x8 Z$ i- d
end if
0 O! W4 G$ V" ]1 Q5 v9 {( R* ]SourceCode = bytes2BSTR(oSend.responseBody)" ~8 h! B; F3 Q, {9 \
baseurl1="http://www.linkmm.com/photo";: u- y' c* l2 o# j9 ~& z x& Y) O
SourceCode =replace(sourcecode,"src=""img/","src=""http://www.linkmm.com/photo/img/";)2 F5 L; k H+ `; ?7 ?
SourceCode =replace(sourcecode,"new.gif",baseurl1&"/new.gif")7 T+ c# c. j8 j' e; G9 g0 z3 f
SourceCode =replace(sourcecode,"href=""photo888","href=""http://www.linkmm.com/photo/photo888";)7 U& z! l. D( u0 A
SourceCode =replace(sourcecode,"site.css","http://www.linkmm.com/photo/site.css";)
/ l+ J# w0 S- V/ `1 F$ lresponse.write SourceCode
. ]2 e$ U! W8 Y! G1 C' }%>
: u* d7 k6 J+ t X, W% j# A) G w</body>) d! f) k" X2 }
* n4 B7 g ^6 }, L4 o6 M
</html> |
|
發表於 2004-8-23 02:58:08
提升卡
沉默卡
变色卡