本帖最後由 印個歷史 於 2013-12-21 23:17 編輯
. j$ U& R( ^. C' @( z8 v* r- p& R: l# x8 }8 g8 d) A
下邊這個編碼靠譜嗎? 能實時檢查關鍵詞排名?! U0 Y2 q( v8 }) a @0 R! X3 R# K
: t& E5 ]' c0 p- m! q" ?. {文件名改成:*.HTA, 代碼裡的東西沒有需要改動的嗎?
9 n7 O$ Q6 f& N8 h
/ s: c m. q J+ E5 q2 P; m. K- G$ M下面的編碼來自:http://www.interclasse.com/scripts/keywordranking.php: y/ z: C F, g: s3 j
9 ~" n7 n+ W9 s0 z7 j( F
============
?( ?! d; }. Z0 I. o3 H% D: T <html><head>! c+ U, u A" O9 `( E2 s. U
<title>Keyword Ranking, (c) Jean-Luc Antoine</title>" H7 r6 f6 U* T, L: w
<HTA:APPLICATION APPLICATIONNAME="Search Engine Tools"- \5 e4 A. L! K3 C7 u( Z' ]
BORDER="thick" BORDERSTYLE="normal"
2 ?5 @5 K; S* n& [: P) d/ D CAPTION="yes" CONTEXTMENU="yes"
: @3 f8 H5 r3 } INNERBORDER="yes" MAXIMIZEBUTTON="yes" MINIMIZEBUTTON="yes"
" q7 _, d5 }9 n3 y; L4 X NAVIGABLE="no" SCROLL="yes" SCROLLFLAT="no"
9 y1 W# b- A# E( D: Y6 W5 B1 [ SELECTION="yes" SHOWINTASKBAR="yes" SINGLEINSTANCE="no"2 \: I: m: Z( R, o" g
SYSMENU="yes" VERSION="0.3" WINDOWSTATE="normal">2 _; R1 p/ k. n' g# F
<script language=vbscript>
7 z, _( J" b9 l+ o! BOption Explicit
( G; k8 T3 T/ D$ S' Versions :
" {2 I6 P7 h/ S' v0.3 Queries and words : simultaneously ranking
$ Z* Z# z2 s5 S1 x' v0.2 New look, options, many SE5 K! ?! X3 v0 E' ?
' Multilingual system' g4 S3 ^/ i6 N4 _$ B; x. e6 I
' v0.1 First draft, keyword rank and last queries
! }. O7 l5 R/ b3 r. ^$ S' ~3 \3 P1 P'Todo :
% E- p6 h% O3 j. [' Gerer systematiquement a la fois Keyword et Phrase
7 r) [ N3 Z/ ]: c* p) A2 i# B+ T' Sur les keyword, permettre de zoomer (showmodeless) sur les phrases contenant le keyword pour connaitre le ranking des variations" F! _! c. e f5 o( [2 z8 s
' Lister en permanence les mots-clefs monitores avec leur occurence et permettre le meme zoom
, k9 x2 ]6 C1 Q3 Q, i' Mettre en gras les keywords monitores8 i: l7 P2 Q6 v( Y* T6 V
' Temps de mesure. h3 b' g+ j& c& n/ L% Y0 e
' Afficher pourcentage en plus du nb d'occurences1 l' L2 L. Q/ E9 m! M
' Monitorer X mots-clefs et leur apparition/frequence relative
- S9 g2 {% e" ?! O' Faire bouton de refresh manuel si ca se bloque (location.reload())
! ?) F! R$ r$ E. g+ g* T9 R; `7 B' gerer les fenetres lancees offline et non pas inline (intercepter events par showmodeless dialog)& H: I/ |; z9 p- i% b+ M
' identifier nb de pages retournees par requete et indice de concurrence$ g5 k, b( o- E C
' Permettre de sauver le resultat
: d4 I7 g0 g* ~7 v! w" I! Y' http://wordtracker.com/newsinput.txt
' O4 B- x) x- i: p. ?+ w
5 E; g7 ~0 s9 t. oConst C_MaxList=20 '### Change this, predefined for TOP 20, D# ~( T6 {4 p
Dim d,dw,a(),b(),f(),g(),i
8 c9 |+ L& b4 U! mRedim a(C_MaxList)
% q7 p1 Z4 J G! y& iRedim b(C_MaxList)
8 v+ [" h' n ^: u+ h4 pFor i=0 to C_MaxList-1
4 p, f% N7 _0 @/ y+ ]/ O a(i)=0 'Nb d'occurences3 c6 z7 j8 ^3 T4 f) e
b(i)="" 'Value! k# [$ R" L G4 X
Next& H+ N! | X* z( t, a
Redim f(C_MaxList)! K- y1 B. `. F7 f+ C# e) \
Redim g(C_MaxList)/ L3 P# r& ~1 V3 R
For i=0 to C_MaxList-13 s+ r) Y- Z' K. h: E/ ^8 U
f(i)=0 'Nb d'occurences, |8 _) }6 n1 j" c# E0 R
g(i)="" 'Value. L8 t5 h% T) j6 f8 a q% p% k1 P
Next
6 x& n2 `3 b+ SSet d=CreateObject("Scripting.Dictionary") 'queries. R( B' H3 z- M3 a
d.CompareMode=1 'vbTextCompare3 r+ M5 x' M2 f+ f1 i/ M. Y! o
Set dw=CreateObject("Scripting.Dictionary") 'words
1 _ C5 a* ]' ^* Udw.CompareMode=1 'vbTextCompare
# y1 X( F, ?4 Y7 h
/ [. u9 R# {- C8 T; @/ B* D: v t9 Csub go(SE)( d/ M3 \* V* L( V! K. g" Z) g S
Dim s,x,sq,s2,sw; e0 E* H# U# S% k" r
Select Case SE% L$ z% ~; p- q# v
Case 0
' K# c7 E: X F4 g' B s=RegExpTest("pursuit\?query=.*?&", lycosfr.document.body.innerHTML,15)8 g+ L+ Q- }& Z! B/ R1 i
Case 1
$ Y5 t B8 A4 F, ~8 A s=RegExpTest("pursuit\?query=.*?&", lycosde.document.body.innerHTML,15): Z+ I2 M5 c$ r/ `
Case 2
" S( n6 Q0 M# r! F, X/ ^ s=RegExpTest("[^a-z]q=.*?&", fireballde.document.body.innerHTML,4)4 {$ b' K! c* p. U$ b
Case 3
+ d, Z& v4 P; \+ U \ s=RegExpTest("\?qkw=.*?""", metacrawler.document.body.innerHTML,6): L" j% L* o. d- c7 ~1 }; q/ r
Case 4; o0 ]1 i' ~) `2 U
s=RegExpTest("return.cool\?query=.*?""", kanoodle.document.body.innerHTML,19); Z) ?& X- N) y G% T* L
Case 5
( Y/ K0 g( z3 D o0 t3 u s=RegExpTest("/w.galaxy.com/b/q\?k.*?""", galaxy.document.body.innerHTML,21)
4 C0 Q8 ]5 E- [( ]4 p0 Y Case Else
0 r2 J! {3 [: t& U/ j" N7 K$ w msgbox "Unknown S.E. : " & SE2 G0 D# y6 V& c; @" g% ?
End Select
7 U5 W0 M7 @# O s="<pre>" & s & "</pre>"
; d0 b! I3 z I& [( q
) ^7 W7 D Q- u& l- ?6 J4 H. J sq=""* \& u7 Z' P! Z0 {( Q. K5 O/ I
For x=0 to C_MaxList-1
( B* o1 B5 t! h6 @ If a(x)>0 Then sq="<tr style='background-color:#eeeeee;'><td>" & a(x) & "</td><td>" & b(x) & "</td></tr>" & sq$ j+ V$ L( q; {! K' E" D
Next
) ]+ `7 B$ V1 }' b, S- \$ W sq="<table style='border:1px solid #222222;'><tr style='background-color:#dddddd;'><th>Total</th><th>" & Disp(5) & "</th></tr>" & sq & "</table>"
. {( P/ @& W. a/ _8 E8 c& _+ ?; j
sw=""
" K1 ~# U$ a; t For x=0 to C_MaxList-16 ~9 ]* ~0 G* _8 p4 N& S3 x+ A
If f(x)>0 Then sw="<tr style='background-color:#eeeeee;'><td>" & f(x) & "</td><td>" & g(x) & "</td></tr>" & sw
8 Q, x4 O" f7 u. f9 } Next5 N5 T# T& c4 |7 r; f- Z4 h
sw="<table style='border:1px solid #222222;'><tr style='background-color:#dddddd;'><th>Total</th><th>" & Disp(9) & "</th></tr>" & sw & "</table>"- a3 t1 [' \7 l: _+ A
* N4 e" m+ f; e: o' I! E% _. y s2="<b>" & Disp(7) & " :</b> " & d.Count & "<br>"
( j! Z$ |6 k9 l7 K% I. o s2=s2 & "<table><tr><td valign=top>"
/ c! @$ t m: C: L' y0 k7 z) { s2=s2 & "<b>Top " & C_MaxList & " - " & Disp(5) & "</b><br>" & sq & "</td><td valign=top>"2 K' x4 K6 @# W$ O3 C2 j
s2=s2 & "<b>Top " & C_MaxList & " - " & Disp(9) & "</b><br>" & sw & "</td><td valign=top>"
5 e% y) e! d4 Q; W. Y+ `! o9 _3 g s2=s2 & " <b>" & Disp(6) & " :</b>" & s
* y3 t+ d& j K/ H) ] s2=s2 & "</td></tr></table>"
0 ~ Y/ Y& L5 |2 \1 W; g MaListe.InnerHTML=s2. }7 E( l# m% W6 S0 X
End Sub
/ g4 {; w* q0 S: X8 `
! Y+ _' N2 g. EFunction RegExpTest(patrn, strng, Pos)
' j+ z. ?* e# u3 _2 `; E7 I* z2 P0 Q Dim RetStr,regEx, regExw, Match,Matchw,Matches,Matchesw,Matchesws,k,i,j,x,s,w) \! Z2 K5 [3 i2 Z; b, D: w
Set regEx=New RegExp
7 Z! I0 F( A p* W4 W4 U% K& c* x Set regExw=New RegExp
8 @2 _ i( D4 Q) Y' ]& T regEx.Pattern=patrn: l% H, Q* o, i, A( V+ U/ u% u
regExw.Pattern="\w+"
4 e( y5 O" { q3 z" F regEx.IgnoreCase=True ' Set case insensitivity.
5 N6 H m. R* G' `2 p z regExw.IgnoreCase=True
9 f' u4 d7 U; o% O1 T4 ^* C. m regEx.Global=True ' Set global applicability.1 B1 Z2 N$ W5 s, U# m- g8 X
regExw.Global=True
: P0 I' A# P f3 [1 I) ` Set Matches=regEx.Execute(strng) ' Execute search.
; j: }% b& i/ `) x* A | RetStr="" v+ |4 k* G# |! K6 a% U9 G
For Each Match in Matches- M& {1 X; H: p, r5 i& L
s=Mid(Match.Value,Pos)( L! V( v* }3 _& Y1 ^
s=Left(s,Len(s)-1)
* s7 ]- _, I: _7 Q# f' h s=Replace(s,"+"," ")
: {3 I @/ T6 f& h3 A s=Replace(s,"%20"," ")) K5 u' `1 i( c: A
s=trim(s)
! [4 |! ]/ I- T% W If s<>"" Then8 I2 P! W$ u3 `: B) a) ^2 w
s=Replace(s,"%21","!"):s=Replace(s,"%22",chr(34))
- v( Q4 \: I$ t7 r! [' G4 I5 R7 J s=Replace(s,"%23","#"): s=Replace(s,"%25","%")! n4 T O! `1 z8 @! Q" G
s=Replace(s,"%26","&"):s=Replace(s,"%27","'")
5 T: m" [5 K; x! \ s=Replace(s,"%28","("):s=Replace(s,"%29",")")2 u/ E Y6 V2 `& {7 d4 h- D- f, h
s=Replace(s,"%2A","*"):s=Replace(s,"%2B","+")
' U. i" `3 y) I! D: s8 B: H8 { s=Replace(s,"%2C",","):s=Replace(s,"%2F","/")& E4 S$ a$ Q) b) C$ Z) N
s=Replace(s,"%3A",":")
% ~' t9 Q. f7 A* S# k& W& e6 x s=Replace(s,"%3D","=")
! K. F! T2 }) `( M2 ~5 E& w4 s O! R s=Replace(s,"%3F","?"): ^. T; G. R1 K& X- |
s=Replace(s,"%40","@"):s=Replace(s,"%B4","′")% s; F; ^% ?, d6 A
s=Replace(s,"%C4","A"):s=Replace(s,"%D6","O")
. h. N- W) ^. F9 z3 B9 O' V0 o s=Replace(s,"%DC","U"):s=Replace(s,"%DF","s")
+ O* g6 I) Y1 C s=Replace(s,"%E0","a"):s=Replace(s,"%E2","a")
' Q/ {+ H7 K1 t s=Replace(s,"%E4","a"):s=Replace(s,"%E7","c")
& K% [6 O, Y( P, X, F s=Replace(s,"%E8","e"):s=Replace(s,"%E9","e")
: _& W* Y0 S3 H/ f+ M s=Replace(s,"%EA","e"):s=Replace(s,"%EB","e")
4 @* b3 I: Q6 ?0 h* a0 e' }9 y s=Replace(s,"%F6","o")# q" m# M2 o q0 X5 l; Q) t* S2 L2 u
s=Replace(s,"%F9","u"):s=Replace(s,"%FC","u")! g: t; o5 p* m2 B, |2 E
s=Replace(s,"<","<"):s=Replace(s,">",">")
3 t. z2 T+ {' q" I2 ~- \2 k If d.Exists(s) Then4 }. N$ T) R& y* k: Q, Z& S" F
k=d.Item(s)+1; ]' U& t) N2 p3 r; h& |7 l0 d% t0 ^
d.Item(s)=k( [( m. n& `2 Y. F3 _' l ]
i=-1 'If more than the first value, insert it8 y$ `4 C# [% K4 `- i
do while (a(i+1)<k) and (i<C_MaxList-1)
0 i. N" ^+ z \( L) S4 ]' P" A, o* z i=i+17 r. y- ?. y0 n
loop
- ], h4 p" k7 k3 O0 J. e if i>=0 Then 'i=where to be inserted! y$ d% r- r3 E
x=0
0 [' V; ~- _2 _ g' a6 a& [ For j=0 to C_MaxList-12 |3 q: e! ~8 O0 l, U
If ucase(b(j))=ucase(s) Then c: b. e& J" Q; Z$ G# C
x=j9 c8 K [5 E( o) G" f _ i' S" S: D1 m
Exit For+ q, w, `* _' b2 I4 S3 }5 E& P
End If
( a# u k: b2 A$ o1 A9 } Next
/ h1 w- [' |' X9 b( n1 x For j=x+1 to i
: {: T, B. V4 [3 A0 F- v. O1 X- S a(j-1)=a(j)
6 q! j2 S/ S: S+ U" ~6 c b(j-1)=b(j)) y0 q3 D* F; ~1 }5 W% i
Next
, W6 Y' ] H" |3 x8 q6 P a(i)=k
' b1 b q: e' O' A, | b(i)=s
" D6 m6 m. T. u# R0 ? End If/ B9 i: M) `# \" P8 T+ C- z9 ~: X
Else
" J- w! R" b+ X6 D( Z, D, {; V/ h d.Add s,1& e6 C* f2 t6 L6 u% n3 [1 B
End If/ y9 }+ ]6 J6 C& E( @/ g
RetStr=RetStr & d.Item(s) & "-" & s & vbCRLF
; I; R) m/ D3 M5 ~9 ]/ Y# }# I% Z
* S& v/ c9 H4 W% }& c/ _ 'Extract Words
7 h+ ~3 [7 A( C' i Set Matchesw=regExw.Execute(s)6 a0 h' u; ^5 x* c* I' I) n" [/ H
For Each Matchw in Matchesw: \" |& F4 J6 a* c: b3 u
w=Matchw.Value
2 \5 Q$ K* K" t If Len(w)>2 Then
8 r! F+ d) T1 E% f) } ^: y/ K3 @0 @ If dw.Exists(w) Then
, p" H8 I( J9 H! { k=dw.Item(w)+1
2 v$ w9 N- `) Y. s dw.Item(w)=k$ W; {( k+ T* C0 z7 k3 v7 H5 E& `
i=-1 'If more than the first value, insert it
- ?* f( b& |$ k( y do while (f(i+1)<k) and (i<C_MaxList-1)
) \9 |9 M' a9 g% K* }) v$ G* S- D i=i+1: T" A4 t3 D7 _2 M* q' e- ^
loop
2 g. ^+ |2 @7 y V; B if i>=0 Then 'i=where to be inserted, {+ K7 @# C' ~3 z: I" }/ P' }7 ?
x=0' H: M. j T7 P8 @6 u
For j=0 to C_MaxList-1
; s) i6 e4 i5 k) X- N! H If ucase(g(j))=ucase(w) Then2 R& c$ c' e) d( r! Z( g
x=j' I' i8 y s0 g% m* Z
Exit For+ k3 g! W: J! ?6 f5 h
End If
1 A. F- M. ?0 p# u1 w Next& ]$ `9 q6 d6 Y6 s! Q) v6 ^" e# \
For j=x+1 to i" h# r# ^/ Q. v" }
f(j-1)=f(j)
$ p% _0 g" t9 s* P9 ~ g(j-1)=g(j)- O$ v/ `4 o$ ] X/ F9 g
Next
. M0 }( u; J/ f) j; E9 S k f(i)=k& ~. n& c6 _! e. | _8 ^
g(i)=w: X7 E) o9 t/ ]7 p7 ^1 h, R0 O
End If! {' @- ]" D' l. T) U9 b5 T
Else
/ T, B" o/ e% k3 e, M! I% [* u dw.Add w,1
( t0 s8 G; |* y0 b& X& ?. } End If* F& \4 C9 I4 q* _2 ^ y4 w* F
End If
o7 p' r0 v h* p5 K, k( M Next4 ^! g2 @) I9 Y/ K$ s( N2 ]* i
End If
6 w- ?; r$ b F Next k% E" l0 Y" M1 `6 X$ r& H
RegExpTest=RetStr( T b: x' {0 U
End Function
- }/ Q: i! R: i! l# {$ k7 g+ o
" S2 i" E' E! D) z' M3 Q2 q+ r1 p& y8 ~1 B" w
& v1 s. x( S: p: @! e6 v# [+ p+ C' x
</script>
# p0 z. |/ v2 C* G3 Z<script for=window event=onload>* | `* Z& v' z; b# y' R0 P! O0 k
DoLoad
0 B% d- H) l+ c. d F4 {- k</script>/ v& O2 x% S" O+ S2 U( ]
<xscript for=window event=onbeforeunload>
# b6 P' S9 I! Z3 z 'DoSave6 G+ B4 L1 d0 m" ]3 q) O
</xscript>+ ?' H( I2 [4 t' G! G
<script>
9 H* G8 G& ]# @, I* v# hSub DoSave, P5 q; w, f: I4 I: M9 r
foo.setAttribute "content", foo.innerHTML0 ~4 t& q1 b* c8 n+ I
foo.save "EditContent"
4 ]0 }, n9 Y; ^3 I+ \% I/ Y* k! \End Sub2 }% j" s3 Z8 G3 u3 H, a
sub DoLoad
; t& @% X0 T& f foo.load "EditContent"
: g% _ P, p6 x( N- F& ` content = foo.getAttribute("content")' Q* S7 ?- p8 n5 H. j
if content<>"" Then foo.innerHTML=content
( T% O6 o# f7 ]End Sub H1 ?8 ~8 x1 K! V B% a
Sub DoClear
% G5 }8 ^9 x$ t; U" S. l foo.innerHTML = ""
, w$ ^, E3 y7 T$ wEnd Sub" |* p+ ~: \# [' ~# h
9 F9 A& e4 w6 V. w" L8 F
Function Disp(x)
7 Y9 v; J( [/ [% H& M2 h6 } Select case getlocale
3 T( n( L9 Y& |# A Case 1036,2060,3084,5132,4108 'French- q% l, I3 h/ v5 r* z8 _9 a4 v
Select Case x B N7 o$ h$ e( d3 |8 x I3 r$ K
Case 0 'sous-titre. Q" t0 \2 S- R' E0 R( c- b
Disp="Outil d'analyse de requetes - 1 backlink svp !"
2 F2 ]5 B5 w* G% q7 E4 z Case 17 O' F3 j: H+ U1 ?. @) e. Z+ }
Disp="Votre liste de mots a monitorer :"* R. ~) L6 q! M6 a l! u
Case 2
# @7 `, Q, k' X2 a4 X3 G7 Y Disp="Sauve": ^, b9 ^. ?7 n. A/ L6 E) d
Case 3
/ Y3 C/ E, ]# |% p( z Disp="R.A.Z"# @' n- S8 u a1 t
Case 42 y+ B% i& C( s
Disp="Charge"' w/ Y1 @- @9 U2 h. P$ C7 y
Case 5* M) r m/ d9 ?
Disp="requetes"& i0 }2 w) d; p
Case 6, R9 }$ _5 [- h$ N$ o2 l& z
Disp="Dernieres requetes"
4 {$ N9 v: `7 m* f9 h Case 7
8 h* Y" G: C$ u9 X" U8 O' E) A$ h+ B Disp="Nb de requetes lues"
" H B% ^6 _9 ~- h Case 84 R7 h* A/ l Z4 z6 j
Disp="Cliquez dans le menu pour activer l'analyse d'un moteur."_
' }, K, Z( V1 R$ N & " Recliquez pour la desactiver."
; K; h/ e4 Y a/ j Case 9
. O) |! l5 `/ T8 x* w3 Q6 G Disp="Mots"1 |, y% t# F' ^( |2 W4 m B. n$ ?
Case Else) Y! N* k9 u6 |, m( j) d
Disp="###"" }* j3 P( M3 w" ^7 s( E: { C' k
End Select
( b4 G- `% \& D# l5 r Case Else
: R) c6 B+ k: G! e# d Select Case x
; p# `' _0 u9 y Case 0 'sub title
9 S: b% N, t* a: D Disp="A linkware search engine analysis tool"
/ H; N# z. O4 v: @ Case 1- ^6 N. z7 x. z1 l/ g
Disp="Your keywords to monitor :"
" p( X1 D5 m0 u( n& k# O Case 2% N2 G2 z- t' W, R2 O/ n
Disp="Save"5 c& s1 R' e5 R4 Z2 S3 T
Case 3* t+ r: } ^% W1 J; F
Disp="Clear"( S; w4 g3 p# [
Case 4. K5 F, `/ m I+ l% L$ S
Disp="Load"
) V" M1 _7 [0 j. P- h. i( T Case 5
+ B# A/ @" u6 ?+ `( j/ ^ Disp="Queries"
/ W& ?1 R* G. a- l: s Case 69 t) D2 P& s5 D7 a. J3 B# [9 g: m/ I
Disp="Last queries"% L1 Y/ {" I; B' m6 Y8 E
Case 7* U3 u) A O, W& K
Disp="Amount of scanned queries"; k1 _! D5 n: U: P9 S+ G+ o/ C- m
Case 8$ ~1 n; H( U5 O$ @5 v
Disp="Click above to start the queries analyzis on a specific search engine."_
" l n. ?% F6 O0 f$ u+ ~- ~ & " Click again to stop it.") K: Y( G+ e$ b: S) l5 Y0 X: b. @5 `! ]
Case 99 \% ?3 f' ?7 u$ T
Disp="Words"
, C7 B2 S P+ `) S Case Else0 f9 I& b" z0 c1 R; v
Disp="###"6 r ^" O: m6 a- S% ~- k( l( k
End Select# q5 j1 c: D( }6 S
End Select
3 Y1 e* W; q) ?, zEnd Function! A; X6 x. r9 e8 H; r, Z Q
Sub DispSE(x)
( A& x- { m S Y6 O& N Select Case x9 g& ^8 u( T' w
Case 0- ?& F9 d# ]; R; O
if lycosfr.location="about:blank" Then
2 N/ g+ v c- r) b% s lycosfr.location="http://www.recherche.lycos.fr/voyeur"
# C+ w% X; I" ~; \' K Else
, }- w9 ~1 q$ I lycosfr.location="about:blank"
7 l& ^/ T7 e- R2 b End If8 m+ U: b8 E7 B% W' y$ c) @/ s8 V
Case 1
) [0 \% G' t1 s if lycosde.location="about:blank" Then2 e$ T; ?* v0 y5 v) b) c
lycosde.location="http://www.lycos.de/inc/content/suche/"_
' m9 }: _5 N6 p/ A7 }8 f & "includes/livesuche_iframe.htm?ergebnisse=&refresh="; \' y, l: h4 {0 X6 U8 |5 q5 s
Else
$ o1 |# A: I* v% q) F1 O lycosde.location="about:blank"; |% `& A/ j, ]. B/ ?/ Z$ J
End If
" l; s. @( l. Z/ E) r Case 20 Q2 e- d' K% j% O# M$ z
if fireballde.location="about:blank" Then
$ v" L' X; w4 h; n/ I* G fireballde.location="http://www.fireball.de/livesuche.csp"
* G; N% T; N, l- Z Else; p. m( ?* |, d: Y2 {1 a
fireballde.location="about:blank"
l. t2 o/ z2 \8 n End If
0 z, j5 s6 W1 G Case 3
8 s" t: y, r$ S F2 g2 H if metacrawler.location="about:blank" Then) b- w+ X5 P; ]$ r6 L
metacrawler.location="http://www.metaspy.com/info.metac.spy/metaspy/unfiltered.htm"# R4 _$ e/ ~ u
Else, H1 N* l9 f6 _* H+ ]' ]; z
metacrawler.location="about:blank"$ E" a. @# L2 n$ q& L
End If; h+ j/ ^1 S8 M/ f% w. F0 W
Case 4
E0 n/ v, D' O' r6 d+ q if kanoodle.location="about:blank" Then
+ }/ e9 U" u& b& W7 X0 w) y" H& p$ g kanoodle.location="http://www.kanoodle.com/spy/spy.cool"
5 |0 m. l4 }; l, [7 A Else
2 w& q" U+ R% F; S# \* q% u1 b kanoodle.location="about:blank"
& q0 E$ _ t e6 {/ x4 ~' { End If& v* N. D/ T1 j8 B6 h' y; M' Y
Case 50 B! G" ^" \* n! w% ]
if galaxy.location="about:blank" Then( N4 F3 P6 d/ i: F1 n2 N
galaxy.location="http://watch.galaxy.com/b/watch?filter"0 ?7 R6 K- L+ s+ w
Else2 l! R% _1 x- J5 _$ N! {+ l
galaxy.location="about:blank"
9 G, t7 s9 S, d3 j: k7 I$ z$ F End If
+ O: `2 w% E( G2 d Case Else
5 Q( _! i- a2 m; ~& l" {6 w Msgbox "DispSE : not found - " & x9 F1 H; T- _# c' `
End Select' X7 G4 L" D) A8 _8 S
End Sub1 |) w, ^: b! W+ R, K- D( E
) ~4 ?- V0 B% c* z( Y
</script>2 z4 m& q( ?( e
<style>1 V0 I7 V" p4 O2 Y- p* p
body,td,th,p{font-size: 11px;font-family: Tahoma,Arial;}! p+ p* D! y1 n* Y
.topmenu{
! a9 \% y0 u% x' i; y border:1px solid #222222;
2 P* Z" E# a3 c" |- t9 j& w background-color:#eeeeee;
/ S7 a! d' G8 F2 W. L( H% u}; R! [: S9 t+ J$ B
.topmenu a{9 \- H1 K! h1 L- [6 {% q$ C( p
height:15px;# I4 m* H1 j/ ?% z0 I
background-color:#BDDCBD;
: d) k7 G% L7 v- e padding-top:1px;6 D' a% o& [2 |# P( @
padding-left:5px;
3 p' B1 }" }- @9 D* Y: e6 f% e' @! _ padding-right:5px;% Z" Y! S. b5 f. n6 n
text-decoration:none;. [" s% k8 K [# w
color:black;
4 g2 u1 @8 e* u6 [- W5 m% s7 q text-align:center;4 s: Y; b, K1 x
display:block;
1 G' D F' a% R}0 j R3 u1 W5 s/ [6 |1 m
.topmenu a:hover, .topmenu a:active{
/ v- p% r5 T7 O5 Zbackground-color:#89DB89;color:black;4 G6 u' X) \ p! Z
}! A8 N& c9 S" n, ^3 p( \
#rb{border-right:1px solid #222222;}; C+ W9 s9 c- P8 {* j% r/ \, O
A {color:#AAFFCC}; R' j' g+ ~2 d7 \
BUTTON {font-size: 7pt;cursor:hand;}
3 [/ J+ \( E" l& `3 T# A.userData {behavior:url(#default#userdata);}
, H' s1 P6 K6 C8 s. }' _2 M: B! i</style>+ m$ h8 e/ V) T9 m9 `/ |
. I. L5 }- [% ?0 R' j
</head>
9 X. |* M& Z. g6 D& b1 R; \2 H. h6 r3 g" \; X5 \+ A u. a
<body bgcolor=white text=black style="margin:2">2 o. g B1 W1 f4 j, J4 z
<a href=http://www.interclasse.com/scripts/keywordranking.php>
5 |! T) v$ u/ I, p( Q<img src=http://www.interclasse.com/pics/avatar.gif align=left border=0></a>8 K' D% l( }/ h( B9 W
' G; t3 S! |6 P, ? Z+ |/ t8 V<H1 style="margin-bottom: 0px;">Keyword Ranking</H1><Script>document.write Disp(0)</Script>
5 |+ E2 k _% n1 V* y
- M' [/ K/ F* v* ^1 b<table class=topmenu border="0" cellpadding="0" cellspacing="0"><tr>
7 y9 U% q9 O* e3 J9 P6 u+ f<td width=60 id=rb> </td>8 G8 B: }1 w. M# o0 ~3 Z5 e
<td id=rb width=80><a href="#" onClick='options.style.display="block"'>Options</a></td>
& z5 K% Y3 q3 B. R. o* ^! \+ @<td id=rb width=80><a href="#" Title="French">Lycos.fr</a></td>" |, K: J& F3 V2 A
<td id=rb width=80><a href="#" Title="Deutsch">Lycos.de</a></td>7 `) ]% S4 C$ c' y5 Z: Y, p
<td id=rb width=80><a href="#" Title="Deutsch">firball.de</a></td>
2 b( S" [( J1 {& F" c( M) F1 c9 d<td id=rb width=80><a href="#" Title="MetaSpy">MetaCrawler</a></td>, ^/ J9 R' i$ {" k7 a/ W
<td id=rb width=80><a href="#">Kanoodle</a></td>
" @% u1 i& Y; u1 D<td id=rb width=80><a href="#">Galaxy</a></td>
- ^; d9 ]$ M7 n$ j! n* N" @<td width=60> </td>1 H" I( ]2 Q8 r( U' M# g$ p- b' Q# n
</tr></table>9 u, [4 [" U* T6 p- [
<script>document.write Disp(8)</script><br>! {; ^7 V% u% |+ x$ b0 O
, v* f( C' m+ l' C8 H1 \: _9 s
<div id=options style="display:none;width:180;border:1px dashed #222222;background-color:#D0D0D0">
6 y2 O2 |8 z+ E* W. f<script>document.write Disp(1)</script>2 U+ D6 o) D) i1 } i# {: m+ ?3 j p
<div id=foo class=userData contentEditable=true style="margin=4;width:170;height:14;border:1px solid;background-color:white"></div>
: h: u1 H) n+ w4 x; O; U <button onClick='DoSave()'><script>document.write Disp(2)</script></button>+ \7 Z- e) l8 ?3 B7 M6 M* _9 s
<button onClick='DoClear()'><script>document.write Disp(3)</script></button>
& o. s. b. I$ o <button onClick='DoLoad()'><script>document.write Disp(4)</script></button>
3 g. F, A: d" B <button onClick='options.style.display="none"'>ok</button>
& S; H- `1 S) ^0 \7 D+ f</div> c, {8 V( j8 A# A4 k
) ~# p X- K8 D8 p1 g
4 L; [1 `$ C( f: i3 O, G
<div ID=MaListe></div>
8 I! G+ L. L. q- {( J
. V1 |/ F0 ^! |, ^" C v. _& _( Y7 K" T, @9 p/ U, F
<table width=100%><tr><td>
% t7 j; X/ s& z8 o<iframe id=lycosfr height=200 src="about:blank" width=100%></iframe>2 d* h- G" A4 r8 ^ {" U
<iframe id=fireballde height=200 src="about:blank" width=100%></iframe>
. r" k" c) c4 x# Y2 q$ D<iframe id=kanoodle height=200 src="about:blank" width=100%></iframe>
% y. C( a8 \, r; ^4 z</td><td>
3 q& M4 P2 C9 L<iframe id=lycosde height=200 src="#" width=100%></iframe>
. X- G8 W) |) s3 O# c<iframe id=metacrawler height=200 src="about:blank" width=100%></iframe>$ m/ W1 \& x/ X& @8 T/ }: o
<iframe id=galaxy height=200 src="about:blank" width=100%></iframe>
8 E1 |# J- u( b5 T</td></tr></table>
3 e( V& _+ Q' [4 d& @
% s6 p" g1 x5 R7 S; C6 e</body>+ [* b9 w5 ^- V" n
</html>
; r& T9 T F0 q/ |5 ~# M2 ?======================================================, \: A( S5 t. s$ h% V
Keyword Ranking" M% V' {; |/ f" D1 P `' s; V# ?
% p- y+ y" h' S7 IReal-time ranking of keywords entered on search engines
5 t9 m _: m$ u9 ~5 ^! f! ]+ A3 Z4 v" ^0 w% v' F# E
Monitors all queries and lists last queries and top 10( z/ F6 ?2 y+ T5 B! f
* A$ t) L C. z6 aFile Name : keywordranking.hta
2 M# {) w, w. f6 RRequirement : IE67 z9 P! J3 _0 g4 i
Author : Jean-Luc Antoine
, s7 P+ E9 h. q+ WSubmitted : 09/12/2003
! J' s; x( s1 a) @! yCategory : HTA" o V6 T: e3 o3 s
Remember : The file extension has to be *.HTA 保存時注意編碼,推薦用utf8格式。
, K4 Y |! i) Q R- E
8 S% Q$ q2 ~" U/ c- F& f# j/ L w+ ~& y& d: }
- ^9 |% H0 j) Y9 Y: e) Z& T u
$ C/ P/ a+ v' G! i4 D8 _
" k! C; M( K4 y5 c( b, y1 W- R. M; b; i% S- V8 ^8 c @
/ Y9 W' }* I, o) {! P# [* x0 N9 l0 X
1 h2 p G5 k$ }& M) \% i
6 p3 v# o8 @8 \. ^ q9 ]8 q
* T4 _' G6 a ]" g4 x R: {' a. _; } t0 y
4 k* t8 f. l. F/ y0 k" h! K0 m
2 u0 H; A3 U& s L: ]2 ~2 {3 \! J+ a+ X' o! ]" a p. _; m. |+ _/ M- D
7 K, Q$ m( Q3 ?/ b( l; V$ w" @
+ }3 v9 |% D+ W9 j" h' p# G+ d/ `! U# {& Q0 e
8 I W- R! Y/ }! I- j" o4 g! `/ Y: x4 a! J
7 k& R3 n% t% w
& x/ K! o2 X, y% ]
, v# E( X0 J4 w m3 |
; J7 I7 {) |' U( y# ~( s
|