<%@ LANGUAGE = VBScript %> <% Option Explicit Dim intpage Dim ranWizard Dim pageType If Request.Form("counter") <>"" Then intpage = Request.Form("counter") If Request.Form("Back") <> "" Then call BACK_OnClick Else intpage = intpage + 1 End If ElseIf request("nav") <> "" then intpage = request("nav") ElseIf request("intpage") <> "" Then intpage = intpage + 1 Else intpage = 0 End If %> <% If request.Form("personal") <> "" Then %> <% myinfo.ranWizard=-1 %> <% End If %> PWS ホーム ページ ウィザード <% If Request.Form("theme") <> "" Then myinfo.Theme = Request.Form("Theme") End If If Request.Form("guestbook") <> "" Then myinfo.guestbook = Request.Form("guestbook") End If If Request.Form("messages") <> "" Then myinfo.messages = Request.Form("messages") End If %>
ホーム ページ ウィザード
<% call NAV %> <% Select Case intpage Case 0 response.write "" 'response.write "ホーム ページ ウィザード" Case 2 %> *
ヒント: 訪問者がゲストブックを閲覧、署名できるように、ホーム ページにリンクを置きます。 <% Case 3 %> *
ヒント: ドロップ ボックスは、訪問者がホーム ページの作成者宛てにメッセージを残す場所です。 <% Case 4 %> *
<% Case Else %>

<% End Select %>

<% 'Page Wizard Select Case intpage Case 1 %> <% Case 2 %> ゲスト ブックを作成しますか?
>はい
>いいえ
<% Case 3 %> ドロップ ボックスを作成しますか?
>はい
>いいえ
<% Case 4 %> 次にホーム ページ上の情報を個人用に設定します。 <% Case Else %> ホーム ページ ウィザードはホーム ページを素早く簡単に作成します。 ホーム ページをセットアップするには、このウィザードを使います。 <% intpage = 0 End Select %>

<% call NavButtons %>

<% SUB BACK_OnClick intpage = intpage - 1 If intpage < 0 Then intpage = 0 End If END SUB Sub NAV IF intpage => 2 THEN response.write "テーマ
" END IF IF intpage => 3 THEN response.write "ゲスト ブック
" END IF IF intpage => 4 THEN response.write "ドロップ ボックス
" END IF End Sub Sub navButtons response.write "
" IF intpage = 4 THEN response.write "" intpage = -1 ELSE response.write "" If intpage > 0 Then response.write "" End If response.write "" END IF response.write "
" End Sub %>