<html> <head> <title>同じフォルダーのテキスト検索者（VBS）</title>
<メタhttp-equiv = content-type content = text/html; charset = gb2312>
<スクリプト言語= vbscript id = clientEventHandlersVBS>
<！ -
DIM FSO、F、F1、FC、FN、S、UF1、UFN
sub b1_onclick
fn = t1.value ''
pn = mid（location.pathname、2、len（location.pathname）-14）
showfolderlist（pn）
End Sub
関数showfolderlist（パス）
'' msgboxパス
fso = createObject（scripting.filesystemObject）をset
f = fso.getFolder（パス）を設定します
fc = f.filesを設定します
'' ufn = ucase（fn）
FCの各F1
fileSpec = path＆f1.name
ReadEntireFile（fileSpec）
'' uf1 = ucase（f1.name）
'' If strust（uf1、ufn）<> 0 then
'' s = s＆<a href =＆path＆f1.name＆>＆f1.name＆</a> <br>
'' end if
次
document.write次のエントリが検索されています。クリックしてください。 [2003年1月にマーバーによって編集] <br>
document.write s
FC =何も設定しません
f =何も設定しません
FSO =何も設定しません
エンド関数
function readentirefile（fileSpec）
const forreading = 1
dim fso、file、retstring
fso = createObject（scripting.filesystemObject）をset
file = fso.opentextfile（fileSpec、forreading、false）を設定します
ufn = ucase（fn）
thefile.atendofStream <> trueを実行してください
retstring = thefile.readline
uf1 = ucase（retstring）
If strust（uf1、ufn）<> 0 then
s = s＆<a href =＆path＆f1.name＆>＆f1.name＆</a> <br>
終了します
ifを終了します
ループ
file.close
ReadentireFile = s
エンド関数
- >
</script>
</head>
<body>
<p align = center> <font color =＃000000サイズ= 6>キーワードを入力して[テキストに含まれる]（</font> <fontを検索してください
color =＃000000サイズ= 3>ケースを無視</font> <font color =＃000000 size = 6>）</font> </p>
<p align = center> <font size = 2> <font color =＃000000> [Merberによって生産されます
2003年1月5日] </font> </font> </p>
<p align = center> <input name = t1> <入力タイプ=ボタン値=検索！ name = b1> </p>
<p align = center> </p> </body> </html>