質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.92%

ASPで入力フォームに入力された値を取得できない

受付中

回答 1

投稿

  • 評価
  • クリップ 0
  • VIEW 2,175

javabigineer

score 84

ASPの中でVBScriptを使用して入力フォームに入力された値を取得したいです。
現在は下記のように記述しているのですが、エラーになります。

documentってこんな使い方できないですっけ?

<htm>

<head>

    <link rel="shortcut icon" href="../src/img/ai21.ico">
    <title>ITPN トップページ</title>

    <meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
    <meta http-equiv="Content-Style-Type" content="text/css">

    <link rel="stylesheet" type="text/css" href="../src/css/tooltip.css">
    <link rel="stylesheet" type="text/css" href="../src/css/theme.css">
    <link rel="stylesheet" type="text/css" href="../src/css/default.css">
    <link rel="stylesheet" type="text/css" href="../src/css/circular.css">

</head>

    <body leftmargin=0 rightmargin=0 topmargin=0 marginwidth=0 marginheight=0 bgcolor="#ffefd5" text="#000000" link="#0000FF" vlink="#800080" alink="#DD0000">
    <FORM NAME='LoginForm'>
    <br>
    <center>
    <font size=5><b>
    ダウンロード
    <br><br>
    以下の情報を入力してください
    <br><br>

    <%
    Dim TheForm

      Set TheForm = document.forms("LoginForm")

    dim storecode
    Set storecode = CStr(TheForm.wds1.Value)

    If storecode="111111" Then
        response.write"<form action="'./dl_2.asp"' method="'POST"'id=frm1f name=frm1f onSubmit=""return check();"">"
        response.write"<font color=""#000000"" size=2><b>"

    Else 
        response.write"<form action="'./dl.asp"' method="'POST"'id=frm1f name=frm1f onSubmit=""return check();"">"
        response.write"<font color=""#000000"" size=2><b>"

    End If
    %>

    ■コード<br>

    <%
    response.write "<td><input type=text name=wds1 size=40 value=" & bpx & " required><br><br>"
    response.write"<asp:RequiredFieldValidator ID=""RequiredFieldValidator1"" runat=""server"" ErrorMessage=""必須項目です"" ControlToValidate=""wds1""></asp:RequiredFieldValidator>"
    response.write"</td>"

    %>
Microsoft VBScript 実行時エラー エラー '800a01f4' 

この変数は宣言されていません。: 'document' 

/eijo/itpn/index.asp, 行 137 
  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • SurferOnWww

    2017/05/26 21:11

    ASP.NET のタグが付いてますが、質問はクラシック ASP ですよね?

    キャンセル

回答 1

0

「SurferOnWww」さまのコメントへの回答がない状態ですが、「クラシックASP」での質問として回答致します。

エラーメッセージで表示されている行数(137)と、提示いただいているソースではエラー箇所が正確に特定
できませんが、Set TheForm = document.forms("LoginForm")の行でエラーになっていると
仮定して回答致します。

クラシックASPはサーバサイドで動作するため、documentのようにDOMを参照することはできないです。
下記ページにあるように、一度GETPOSTで送信されたリクエストを処理することとなります。
[HOW TO] GET と POST を使ってページ間でフォーム データを受け渡す

documentのようにDOM参照が必要な場合は、Javascriptで処理を記述することになるかと思います。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.92%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る