#Include File を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードは#Include File です。
<%@LANGUAGE=VBScript%>
<% '頭で乱数の発生
Randomize '乱数系を初期化
nNO = Int(Rnd * 10) '0〜9までの乱数を発生させる
strFNAME = "/cgi-bin/inc/hed" & nNO & ".inc" 'ファイル名を作る
%>
<html>
<head>
<title>ランダムで(乱数で)ファイルをインクルードしたい</title>
</head>
<body bgcolor=#ffffff text=#000000>
<h3 style="color:black;background-color:#e0ffe0">
ランダムで(乱数で)ファイルをインクルードしたい</h3>
<h2>ランダムで(乱数で)ファイルをインクルードしたい</h2>
test058-2.asp<br>
Randomize '乱数系を初期化 <br>
nNO = Int(Rnd * 10) '0〜9までの乱数を発生させる<br>
strFNAME = "/cgi-bin/inc/hed" & nNO & ".inc" 'ファイル名を作る<br>
でファイル名[<%=strFNAME%>を作成しました。]<br>
↓これをインクルードする。<hr>
<% '自分でファイルを読む
' FileSystemObjectを生成します
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
' strFNAMEを読取専用モードで開きデータを読む
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
Set objFS = Nothing
%>
<hr>↑インクルードできたかなぁ?<br>↓確認で元ファイルを開いてみてね<br>
[<a Href="<%=strFNAME%>" TARGET="_blank"><%=strFNAME%>を開く</a>]
<hr>
</body>
</html>
| 最近発売の雑誌を紹介する
たまには、パズルなとで頭を柔らかくしておくと、プログラミングのひらめきもUPするかなぁ・・・
- オールクロスワード 2008年 06月号
- スケルトンくらぶ 2008年 06月号
- アロー & スケルトンパル 2008年 06月号
- お絵かきメイト 2008年 06月号
- デラックスクロスワード 2008年 06月号
- まちがいさがしミュージアム 2008年 06月号
- まちがいさがしメイト 2008年 06月号
- クロスワード in (イン) 2008年 06月号
- 漢字ナンパラ DX (デラックス) 2008年 06月号
|