jsで実現したページのキーワード密度照会コード
キーワード密度検索ツールはネットで長い間探しましたが、やはり適切なキーワード密度検索ツールが見つからないです。なぜですか？私の駅はutf-8符号化なので、ネットで提供されるのはほとんどGB 2312です。キーワード密度検索ツールを探し続けています。結果は一つです。しかし、URLを入力するのではなく、自分でコードを拷問します。このようなキーワード密度照会ツールはあまり使いませんが、比較的良いキーワード密度照会ツールを見つけられませんでした。見つけたら必ず連絡してください。要求：検索したキーワード密度検索ツールがUTF-8コードをサポートすればいいです。
&噫13;
Sub ClearB_OnClick&菗13;
MyWords.txt_Info.value=“”&〹13;
MyWords.txt_OnlyText.value=“”&菵13;
MyWords.txt_Info.focus()&{13;
end sub&菵13;
&噫13;
Sub ChkB_OnClick&菗13;
strKW=MyWorlds.MyKeyword.value&唵13;
&噫13;
str=replace(MyWords.txt_Info.value，"，"")&菵13;
str=replace(str)「 "，")&啱13;
str=replace(str)「>"，"")&獠13;
str=replace(str)「&キルト13;
str=replace(str，chr(9)，")&荋13;
str=replace(str，chr(10)，")&荋13;
str=replace(str，chr(13)，")&荋13;
str=replace(str，chr(34)，")&荋13;
str=str<amp;スクリプト"&"gt;lt;amp;"/スクリプト"&"gt;"13;
&噫13;
&噫13;
httmDes="<metaNAME=Description CONTENT="
where HtmDesL=InStr(1,Str，httmDes，1)&菗13;
if where HtmDesL>0 then&菷13;
LenDes=len(httmDes)&獞13;
where HtmDesL=where HtmDesL+LenDes&菵13;
where HtmDesR=InStr(where HtmDesL，Str，"gt;)1)&{13
MyHtmDes=mid(Str，where HtmDesL，where HtmDesR-where HtmDesL)&唵13;
str=MyHtmDes&str&12539;
end if&菵13;
&噫13;
httmDes="<metaNAME=keywods CONTENT="
where HtmDesL=InStr(1,Str，httmDes，1)&菗13;
if where HtmDesL>0 then&菷13;
LenDes=len(httmDes)&獞13;
where HtmDesL=where HtmDesL+LenDes&菵13;
where HtmDesR=InStr(where HtmDesL，Str，"gt;)1)&{13
MyHtmDes=mid(Str，where HtmDesL，where HtmDesR-where HtmDesL)&唵13;
str=MyHtmDes&str&12539;
end if&菵13;
&噫13;
LenStr=len(str)&啝13;
'msgbox"LenStr="&LenStr&菗13;
&噫13;
If InStr（1,Str，<）&script"，1)>0 And InStr（1,Str，<）&"/スクリプト"&"gt「1)>0 The n&腣13;
OnlyText=“”&{13;
i=1&{13;
Do Unitil>LenStr&菗13;
&噫13;
tmpStrL=InStr（i，Str，<）&script"，1)&{13;
'MsgBox'tmpStrL="&tmpStrL&菗13;
If tmpStrL>0 The n&腣13;
tmpStrR=InStr(tmpStrL，Str)“<”amp;"/スクリプト"&"gt「1)&{13
'MsgBox'tmpStrR="&tmpStrR&菗13;
&噫13;
&噫13;
If tmpStarR=0 The n tmpStrR=LenStr&菗13;
'MsgBox'i=&i&腣13;
OnlyText=OnlyText&Mid(Str，i，tmpStr-L-i)&菗13；
'MsgBox Mid(Str，i，tmpStr-i)&菗13;
&噫13;
i=tmpStrR+9&铉13;
Else&菷13;
i=i+1&菗13;
End If&嚓13;
Loop&嚔13;
Str=OnlyText&{13;
End If&嚓13;
&噫13;
Str=Str&"<%"&菗13;
OnlyText=“”&{13;
i=1&{13;
Do Unitil>LenStr&菗13;
&噫13;
tmpStrL=InStr(i，Str)「<%」1)&{13
'MsgBox'tmpStrL="&tmpStrL&菗13;
If tmpStrL>0 The n&腣13;
tmpStrR=InStr(tmpStrL，Str，“%gt;”，1)&{13
'MsgBox'tmpStrR="&tmpStrR&菗13;
&噫13;
&噫13;
If tmpStarR=0 The n tmpStrR=LenStr&菗13;
'MsgBox'i=&i&腣13;
OnlyText=OnlyText&Mid(Str，i，tmpStrL-i)&
'MsgBox Mid(Str，i，tmpStrL-i)&
&噫13;
i=tmpStrR+2&铉13;
Else&菷13;
i=i+1&菗13;
End If&嚓13;
Loop&嚔13;
Str=OnlyText&{13;
&噫13;
Str=Str&"&キルト13;
OnlyText=“”&{13;
i=1&{13;
Do Unitil>LenStr&菗13;
&噫13;
tmpStrL=InStr(i，Str，<)1)&{13
'MsgBox'tmpStrL="&tmpStrL&菗13;
If tmpStrL>0 The n&腣13;
tmpStrR=InStr（tmpStrL，Str，gt;）1)&{13
'MsgBox'tmpStrR="&tmpStrR&菗13;
&噫13;
&噫13;
If tmpStarR=0 The n tmpStrR=LenStr&菗13;
'MsgBox'i=&i&腣13;
OnlyText=OnlyText&Mid(Str，i，tmpStrL-i)&
'MsgBox Mid(Str，i，tmpStrL-i)&
&噫13;
i=tmpStrR+1&铉13;
Else&菷13;
i=i+1&菗13;
End If&嚓13;
Loop&嚔13;
Str=OnlyText&{13;
&噫13;
&噫13;
&噫13;
LenStr=len(str)&啝13;
LenKW=len（replace（strakW，“”）&菗13；
&噫13;
&噫13;
&噫13;
if LenStr<LenKW then&菗13;
msgbox「キーワードが文章より長い！」64「計算しない」
exit sub&噫13;
end if&菵13;
&噫13;
MyWords.txt_OnlyText.value=OnlyText&{13;
&噫13;
if LenKW<gt;0 then&菷13;
KeywodTimes=0&菗13;
i=1&{13;
ドuntil i>LenStr&菗13;
tmpStr=instr(i，str，structKW，1)&荍13;
if tmpStr>0 then&菷13;
KeywodTimes=KeywodTimes+1&腣13;
i=tmpStr+1&铉13;
else&{13;
i=i＋1&噫13;
end if&菵13;
loop&噫13;
&噫13;
&噫13;
strelenKW=int(KeywodTimes*LenKW*1000/LenStr+0.5)/10&萶13
fmlenKW=cstr(strelenKW)&荋13;
if left(fmlenKW，1)=“.”then fmlenKW=“0”&fmlenKW&腣13;
msgbox「あります」&LenStr&つの文字、キーワードが表示されます。KeywodTimes&キーワードの密度は「&strelenKW&「%」64，"11-1.cn文字計算"&啛13;
else&{13;
msgbox「あります」&LenStr&個の文字「64」、「LoveSEO.com文字計算」
end if&菵13;
MyWords.txt_Info.focus()&{13;
end sub
..。
ホームページのソースファイルをコピーしてください。
ソースボックス
＜table class=“STYLE 3”celspacing=“0”cell padding=“0”width=“0”border=“0”
＜tbody＞
キーワード
＜table class=“STYLE 3”cell pacing=“0”cell padding=“0”width=“0”align=“センター”border=“0”
＜tbody＞
＜td valign=“センター”align=“middle”＞＜b＞キーワード密度クエリー結論ボックス
＜td＞＜textarea class=“textbox”id=“txt_”Info 0「name=」txt_OnlyText「rows=」10「cols=」102"/>
&噫13;
Sub ClearB_OnClick&菗13;
MyWords.txt_Info.value=“”&〹13;
MyWords.txt_OnlyText.value=“”&菵13;
MyWords.txt_Info.focus()&{13;
end sub&菵13;
&噫13;
Sub ChkB_OnClick&菗13;
strKW=MyWorlds.MyKeyword.value&唵13;
&噫13;
str=replace(MyWords.txt_Info.value，"，"")&菵13;
str=replace(str)「 "，")&啱13;
str=replace(str)「>"，"")&獠13;
str=replace(str)「&キルト13;
str=replace(str，chr(9)，")&荋13;
str=replace(str，chr(10)，")&荋13;
str=replace(str，chr(13)，")&荋13;
str=replace(str，chr(34)，")&荋13;
str=str<amp;スクリプト"&"gt;lt;amp;"/スクリプト"&"gt;"13;
&噫13;
&噫13;
httmDes="<metaNAME=Description CONTENT="
where HtmDesL=InStr(1,Str，httmDes，1)&菗13;
if where HtmDesL>0 then&菷13;
LenDes=len(httmDes)&獞13;
where HtmDesL=where HtmDesL+LenDes&菵13;
where HtmDesR=InStr(where HtmDesL，Str，"gt;)1)&{13
MyHtmDes=mid(Str，where HtmDesL，where HtmDesR-where HtmDesL)&唵13;
str=MyHtmDes&str&12539;
end if&菵13;
&噫13;
httmDes="<metaNAME=keywods CONTENT="
where HtmDesL=InStr(1,Str，httmDes，1)&菗13;
if where HtmDesL>0 then&菷13;
LenDes=len(httmDes)&獞13;
where HtmDesL=where HtmDesL+LenDes&菵13;
where HtmDesR=InStr(where HtmDesL，Str，"gt;)1)&{13
MyHtmDes=mid(Str，where HtmDesL，where HtmDesR-where HtmDesL)&唵13;
str=MyHtmDes&str&12539;
end if&菵13;
&噫13;
LenStr=len(str)&啝13;
'msgbox"LenStr="&LenStr&菗13;
&噫13;
If InStr（1,Str，<）&script"，1)>0 And InStr（1,Str，<）&"/スクリプト"&"gt「1)>0 The n&腣13;
OnlyText=“”&{13;
i=1&{13;
Do Unitil>LenStr&菗13;
&噫13;
tmpStrL=InStr（i，Str，<）&script"，1)&{13;
'MsgBox'tmpStrL="&tmpStrL&菗13;
If tmpStrL>0 The n&腣13;
tmpStrR=InStr(tmpStrL，Str)“<”amp;"/スクリプト"&"gt「1)&{13
'MsgBox'tmpStrR="&tmpStrR&菗13;
&噫13;
&噫13;
If tmpStarR=0 The n tmpStrR=LenStr&菗13;
'MsgBox'i=&i&腣13;
OnlyText=OnlyText&Mid(Str，i，tmpStr-L-i)&菗13；
'MsgBox Mid(Str，i，tmpStr-i)&菗13;
&噫13;
i=tmpStrR+9&铉13;
Else&菷13;
i=i+1&菗13;
End If&嚓13;
Loop&嚔13;
Str=OnlyText&{13;
End If&嚓13;
&噫13;
Str=Str&"<%"&菗13;
OnlyText=“”&{13;
i=1&{13;
Do Unitil>LenStr&菗13;
&噫13;
tmpStrL=InStr(i，Str)「<%」1)&{13
'MsgBox'tmpStrL="&tmpStrL&菗13;
If tmpStrL>0 The n&腣13;
tmpStrR=InStr(tmpStrL，Str，“%gt;”，1)&{13
'MsgBox'tmpStrR="&tmpStrR&菗13;
&噫13;
&噫13;
If tmpStarR=0 The n tmpStrR=LenStr&菗13;
'MsgBox'i=&i&腣13;
OnlyText=OnlyText&Mid(Str，i，tmpStrL-i)&
'MsgBox Mid(Str，i，tmpStrL-i)&
&噫13;
i=tmpStrR+2&铉13;
Else&菷13;
i=i+1&菗13;
End If&嚓13;
Loop&嚔13;
Str=OnlyText&{13;
&噫13;
Str=Str&"&キルト13;
OnlyText=“”&{13;
i=1&{13;
Do Unitil>LenStr&菗13;
&噫13;
tmpStrL=InStr(i，Str，<)1)&{13
'MsgBox'tmpStrL="&tmpStrL&菗13;
If tmpStrL>0 The n&腣13;
tmpStrR=InStr（tmpStrL，Str，gt;）1)&{13
'MsgBox'tmpStrR="&tmpStrR&菗13;
&噫13;
&噫13;
If tmpStarR=0 The n tmpStrR=LenStr&菗13;
'MsgBox'i=&i&腣13;
OnlyText=OnlyText&Mid(Str，i，tmpStrL-i)&
'MsgBox Mid(Str，i，tmpStrL-i)&
&噫13;
i=tmpStrR+1&铉13;
Else&菷13;
i=i+1&菗13;
End If&嚓13;
Loop&嚔13;
Str=OnlyText&{13;
&噫13;
&噫13;
&噫13;
LenStr=len(str)&啝13;
LenKW=len（replace（strakW，“”）&菗13；
&噫13;
&噫13;
&噫13;
if LenStr<LenKW then&菗13;
msgbox「キーワードが文章より長い！」64「計算しない」
exit sub&噫13;
end if&菵13;
&噫13;
MyWords.txt_OnlyText.value=OnlyText&{13;
&噫13;
if LenKW<gt;0 then&菷13;
KeywodTimes=0&菗13;
i=1&{13;
ドuntil i>LenStr&菗13;
tmpStr=instr(i，str，structKW，1)&荍13;
if tmpStr>0 then&菷13;
KeywodTimes=KeywodTimes+1&腣13;
i=tmpStr+1&铉13;
else&{13;
i=i＋1&噫13;
end if&菵13;
loop&噫13;
&噫13;
&噫13;
strelenKW=int(KeywodTimes*LenKW*1000/LenStr+0.5)/10&萶13
fmlenKW=cstr(strelenKW)&荋13;
if left(fmlenKW，1)=“.”then fmlenKW=“0”&fmlenKW&腣13;
msgbox「あります」&LenStr&つの文字、キーワードが表示されます。KeywodTimes&キーワードの密度は「&strelenKW&「%」64，"11-1.cn文字計算"&啛13;
else&{13;
msgbox「あります」&LenStr&個の文字「64」、「LoveSEO.com文字計算」
end if&菵13;
MyWords.txt_Info.focus()&{13;
end sub
..。
ホームページのソースファイルをコピーしてください。
ソースボックス
＜table class=“STYLE 3”celspacing=“0”cell padding=“0”width=“0”border=“0”
＜tbody＞
キーワード
＜table class=“STYLE 3”cell pacing=“0”cell padding=“0”width=“0”align=“センター”border=“0”
＜tbody＞
＜td valign=“センター”align=“middle”＞＜b＞キーワード密度クエリー結論ボックス
＜td＞＜textarea class=“textbox”id=“txt_”Info 0「name=」txt_OnlyText「rows=」10「cols=」102"/>