ＡＳＰでタブのように見せる方法

Question

環境：ＡＳＰ(VBScript)　
このgooのベージの一番上にあるタブのようなものを
押すと表示ベージの内容が変わるようにするにはどうしたらいいのでしょうか？
（ただ単にページを切り替えているだけにも見えるが
それだとわかります。違うＡＳＰファイルを呼び出せばいいわけなので。同じＡＳＰファイル内だけで同じようなことはできないのですか？）
簡単なサンプルがあればわかるのですが。
よろしくお願いします。

BlueRay · Accepted Answer

サンプルです。コピペして動作を確認して見てください。後は、御自分の思うように改造してください。準備するファイル index.asp a.asp b.asp c.asp 'index.asp ******************************

ページＡ

ページＢ

ページＣ

<% Select Case Request.Querystring("pg") Case "1" Response.Write "" Case "2" Response.Write "" Case "3" Response.Write "" Case Else Response.Write "ここに、選択されたタブのページを表示します。" End Select %>

'a.asp ****************************** ページＡ 'b.asp ****************************** ページＢ 'c.asp ****************************** ページＣ

noname#102878 · Answer

察しのとおり、単純にやるならばそれぞれのページでそれぞれの描画をするだけです。ただしこれだと芸がないですよね。そこで、ASPとなるわけですが。【構成】 default.asp、A.asp、B.asp、C.aspとあったとします。トップページのdefault.aspからA.asp、b.asp、c.aspへ移動するような構成だとします。【解説】各ページの内にD.incファイルをインクルードするための記述をします。「」って感じで。このD.incファイルにはVBScriptの関数を記述します。この関数は「どのタブを目立たせるか」という引数を受け取って、適切なタブを描画するためのHTMLコードを出力します。この関数を「Function GenHeadTab( index )」とでもしましょうか。各aspファイルでタブを表示させたい部分に Default.aspなら「<% = GenHeadTab( 0 ) %>」 A.aspなら「<% = GenHeadTab( 1 ) %>」 B.aspなら「<% = GenHeadTab( 2 ) %>」 C.aspなら「<% = GenHeadTab( 3 ) %>」というように、それぞれのページからこの関数を呼び出す際の引数を変えてあげます。 D.incファイルのGenHeadTab関数内では、引数で得た番号で条件判断をして、「目立つタブ」を適切に変更するHTMLのコードを出力してあげます。ここで言うHTMLコードってのは、～のことではなくて、タブの部分のみのHTMLです。 tableを使うのが一般的かな。判断には「Select Case」を使えば簡単ですよね。【とどのつまり】 4つのASPページから呼び出される共通の独自関数を別ファイルにしてしまおう、ってことです。インクルードファイルに共通関数や共通処理を書くっていうのは非常に有効なテクニックです。データベースへ接続するための処理や接続を解除する処理なんてのは沢山のページから呼び出したいものです。

ＡＳＰでタブのように見せる方法

サンプルです。

察しのとおり、単純にやるならばそれぞれのページでそれぞれの描画をするだけです。

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング