"
'広告 は left_ad.inc を 固定で使用
Response.Write chr(13) & chr(10) '改行する
strFNAME = "/cgi-bin/inc/left_ad.inc"
' 広告を読取専用モードで開きデータを読む
Set ts = objFS.OpenTextFile(Server.MapPath(strFNAME), 1, True)
Do While ts.AtEndOfStream = False 'ファイルの終端になってない間ループ
strDATA = ts.ReadLine 'ファイルからデータを一行を読む
Response.Write strDATA
Response.Write vbCRLF '改行する
Loop
'使ったファイルは閉じようよ
ts.close
Response.Write " | "
Response.Write vbCRLF '改行する
Response.Write "" & strB & " を 使った ソースコードを紹介する"
Response.Write "" 'スペースを有効にするため
Response.Write "表示色の説明:"
Response.Write "ASP VBScriptは <% 〜 %>" 'ASP VBScript
Response.Write " キーワードは" & strB & ""
Response.Write " です。" & chr(13) & chr(10)
Response.Write "" 'ブロックにする
' スクリプト(strSCR_NAME)を読取専用モードで開きデータを読む
Set ts = objFS.OpenTextFile(Server.MapPath(strSCR_NAME), 1, True)
Do While ts.AtEndOfStream = False 'ファイルの終端になってない間ループ
strDATA = ts.ReadLine 'ファイルからデータを一行を読む
If Left(strDATA, 9) <> "" & chr(13) & chr(10)
Response.Write "" & chr(13) & chr(10)
Response.Write "" & chr(13) & chr(10)
Response.Write " | " 'ここまで
'広告タイプを判断
'広告のロード
Randomize '乱数系を初期化
nNO = bno Mod 9
strFNAME = "/cgi-bin/inc/right" & nNO & ".inc"
' 広告を読取専用モードで開きデータを読む
Set ts = objFS.OpenTextFile(Server.MapPath(strFNAME), 1, True)
Do While ts.AtEndOfStream = False 'ファイルの終端になってない間ループ
strDATA = ts.ReadLine 'ファイルからデータを一行を読む
Response.Write strDATA
Response.Write vbCRLF '改行する
Loop
'使ったファイルは閉じようよ
ts.close
Response.Write " |