<% 'ソースの表示関数 SUB OUT_SRC(strB) 強調表示する単語をもらう Sub OUT_SRC(strB) Dim strSCR_NAME Response.Write "

" 'タグを付ける ' FileSystemObjectを生成します 共通で使う Set objFS = Server.CreateObject("Scripting.FileSystemObject") '広告の種類を2パターン決める Randomize '乱数系を初期化 nKTYPE = Int(Rnd * 2) Response.Write chr(13) & chr(10) '改行する Response.Write "

" & strB & "を使用したサンプル(ソースの紹介)

" strSCR_NAME = Request.ServerVariables("SCRIPT_NAME") '名前を代入 '見出しの表示 Response.Write "詳細解説は[" 'URL を判断する strURL = "http:/asp/backno/asp" Response.Write "" Response.Write strURL & Right("000" & bno, 3) & ".html" Response.Write "]を見てください
" Response.Write "下記、" & strSCR_NAME & "のソース(中身)です

" Response.Write "" Response.Write "
" '広告 は 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 "
" 'ここまで Response.Write "
" & chr(13) & chr(10) '改行する Set objFS = Nothing 'ファイルのオブジェクトを閉じる。 '--- ここまで ' Response.Write "

Googleで関連項目を検索する

" Response.Write "" Response.Write "[キーワード:" & strB & "] と サンプル|解説|Dim|Set で検索
" Response.Write "↓で検索して他のページも確認してみてください。

" Response.Write "" & chr(13) & chr(10) Response.Write "
" & chr(13) & chr(10) Response.Write "
" & chr(13) & chr(10) Response.Write "" & chr(13) & chr(10) Response.Write "Google" & chr(13) & chr(10) Response.Write "" & chr(13) & chr(10) Response.Write "" & chr(13) & chr(10) 'Response.Write "" & chr(13) & chr(10) Response.Write "" & chr(13) & chr(10) Response.Write "" & chr(13) & chr(10) Response.Write "" & chr(13) & chr(10) Response.Write "
" & chr(13) & chr(10) Response.Write "" & chr(13) & chr(10) Response.Write "
" Response.Write "あれ?私のページが検索に載ってない(笑)" Response.Write "一度お試しを(私のページに、また戻ってきてね(爆))
" End Sub '関数はここまでですよ。 %> <% 'テストデータの表示処理 Sub out_DBDATA_SUB(strDBPATH, strSQL_A) 'ADO DB Connection オブジェクトを作成する、英文そのままじゃん Set dba=Server.CreateObject("ADODB.Connection") 'データアクセスにはJet.OLEDB.4.0を使うことを設定 dba.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続DBの位置を渡すので、Server.MapPathで変換して渡す dba.ConnectionString = Server.MapPath(strDBPATH) dba.open 'データベースを開く Set rsa = dba.Execute(strSQL_A) 'SQL発行、レコードセットの作成 Response.Write "
DB内のデータを確認
" Response.Write "DB:" & strDBPATH & "
" Response.Write "確認用に発行したSQL:" & strSQL_A & "
" 'データの表示をテーブルで行う Response.Write "" '見出しを(フィールド名を)そのまま書き込む Response.Write "" For Each fld_A In Rsa.Fields 'フィールドのアイテムに対してループ Response.Write "" '↑.Nameでフィールド名を表示する Next Response.Write "" 'お約束のEOFまでループは(データが無くなるまでループ)、 Do While rsa.EOF = False 'レコードセットの.EOFがFalseの間 Response.Write "" '内容を表示する For Each fld_A In Rsa.Fields 'フィールドのアイテムに対してループ Response.Write "" '↑.Valueでフィールドの値を表示する Next Response.Write "" '次のレコードにポインタを移動する rsa.MoveNext 'これを忘れると悲惨なことに、、、 Loop Response.Write "
" & fld_A.Name & "
" & Server.HTMLEncode(fld_A.Value) & "
" 'テーブルは終わりです '後始末 rsa.Close '開いていたレコードセットを閉じる dba.Close 'データベースも閉じようよ Set dba = Nothing 'お行儀よくオブジェクトも開放しましょう End Sub %>