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

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

ただいまの
回答率

90.49%

  • JavaScript

    16461questions

    JavaScriptは、プログラミング言語のひとつです。ネットスケープコミュニケーションズで開発されました。 開発当初はLiveScriptと呼ばれていましたが、業務提携していたサン・マイクロシステムズが開発したJavaが脚光を浴びていたことから、JavaScriptと改名されました。 動きのあるWebページを作ることを目的に開発されたもので、主要なWebブラウザのほとんどに搭載されています。

  • HTML

    8999questions

    HTMLとは、ウェブ上の文書を記述・作成するためのマークアップ言語のことです。文章の中に記述することで、文書の論理構造などを設定することができます。ハイパーリンクを設定できるハイパーテキストであり、画像・リスト・表などのデータファイルをリンクする情報に結びつけて情報を整理します。現在あるネットワーク上のほとんどのウェブページはHTMLで作成されています。

  • ASP

    61questions

    ASP(Active Server Pages) あるいはClassic ASP (ASP Classic)は、マイクロソフト社開発した動的なウェブページ製作に利用可能なサーバー側のスプリクトエンジンです。

検索フォームで再検索が出来ません。

解決済

回答 1

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 464

vanille

score 12

<%@ Language=VBScript %>
<html>
<head>
<meta charset="shift-jis">
<script src="//ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
<script src="http://code.jquery.com/jquery-migrate-1.1.0.js"></script>
<script type="text/javascript">
function hyoji1() {
radio = document.getElementsByName('entryfirst');
 if (radio[0].checked) {
document.getElementById('kikan').style.display = "";
document.getElementById('group').style.display = "none";
} else if (radio[1].checked) {
document.getElementById('kikan').style.display = "none";
document.getElementById('group').style.display = "";
 } else {
document.getElementById('kikan').style.display = "none";
document.getElementById('group').style.display = "none";
}
}

</script>
</head>

<body>

<article class="content">
<form action="test.asp" method="POST">
<table class="user">
<tbody>
<tr>
<th scope="row">検索方法</th>
<td style="line-height:160%;">
<label style="margin-right:2em;">
<input id="r1" onclick="hyoji1()" type="radio" name="entryfirst" value="期間検索" />期間検索</label>
<label>
<input id="r2"  onclick="hyoji1()" type="radio" name="entryfirst" value="グループ検索" />
グループ</label>
</td>
</tr>
<tr id="kikan" style="display:none;">
<th scope="row">期間検索</th>
<td colspan="7" class="bdr0">
<table>
<tbody>
<tr>
<td>
<select name="sty">
<option value="2015" <%if Request("sty")="2015" then Response.Write("selected")%>>2015年</OPTION>
<OPTION value="2016" <%if Request("sty")="2016" then Response.Write("selected")%>>2016年</option>
<!--略-->
</select>
<select name="stm" style="padding:3px 2px;">
<option value="01" <%if Request("stm")="01" then Response.Write("selected")%>>01月</option>
<option value="02" <%if Request("stm")="02" then Response.Write("selected")%>>02月</option>
<!--略-->
</select>
<select name="std" style="padding:3px 2px;">
<option value="01" <%if Request("std")="01" then Response.Write("selected")%>>01日</option>
<option value="02" <%if Request("std")="02" then Response.Write("selected")%>>02日</option>
<!--略-->
</select><select name="edy">
<option value="2015" <%if Request("edy")="2015" then Response.Write("selected")%>>2015年</option>
<option value="2016" <%if Request("edy")="2016" then Response.Write("selected")%>>2016年</option>
<!--略-->
</SELECT>
<SELECT name="edm" style="padding:3px 2px;">
<option value="01" <%if Request("edm")="01" then Response.Write("selected")%>>01月</option>
<option value="02" <%if Request("edm")="02" then Response.Write("selected")%>>02月</option>
<!--略-->
</select>
<select name="edd" style="padding:3px 2px;">
<option value="01" <%if Request("edd")="01" then Response.Write("selected")%>>01日</option>
<option value="02" <%if Request("edd")="02" then Response.Write("selected")%>>02日</option>
<!--略-->
</select>
</td>
</tr>
</tbody>
</table>
</td>
</tr>

<!-- 抽出期間2 -->
<tr id="grorup" style="display:none;">
<th scope="row">グループ検索</th>
<td colspan="7" class="bdr0">
<table>
<tbody>
<tr>
<td>
<select name="voy">
<option value = "">選択してください。</OPTION>
<%
Set cn= Server.CreateObject("")
cn.Open "" 
cn.CursorLocation = 3

strSQL = "SELECT * FROM tb_ablog order by start_date"
Set rs = cn.Execute(strSQL)

Do Until rs.EOF
%>
<!-- voy: <%=Request("voy")%> id: <%=rs("id")%> -->
<optionvalue = "<%=rs("id")%>" <%if Request("voy") = CStr(rs("id")) then Response.Write("selected")%>> <%=rs("group_name1")%>(<%=rs("start_date")%>-<%=rs("end_date")%>)</OPTION>
<%
rs.MoveNext
Loop

%>
</select>
</td>
</tr>
</tbody>
</table>
</td>
</tr>

/tbody>
</table>
<p class="sbmt">
<input type="submit" name="OK" value="検索">
&emsp;
<input type="reset" name="Cancel" value="キャンセル">
</p>
</form>



<TABLE >
<TBODY><%
else
str_stdate = Request("sty") & Request("stm") & Request("std")
str_eddate = Request("edy") & Request("edm") & Request("edd")

if Request("entryfirst") <> "期間検索" then
strSQL = "SELECT * FROM tb_ablog where id = " & Request("voy")
Set rs = cn.Execute(strSQL)

if not rs.eof then
str_stdate = Year( rs("start_date") ) & Right( "0" & Month( rs("start_date") ),2 ) & Right( "0" & Day( rs("start_date") ),2)
str_eddate = Year( rs("end_date") ) & Right( "0" & Month( rs("end_date") ),2 ) & Right( "0" & Day( rs("end_date") ),2)
end if
Set objFS = Server.CreateObject("")

strFDIRNAME = "" 
Set objDIR = objFS.GetFolder(strFDIRNAME)

For Each objFILE In objDIR.Files

strFNAME = objFILE.Name  '取り出したobjFILEの.Nameを取得

If mid(strFNAME,1, 3) = "CTD" And Right(strFNAME, 4) = ".CTD" Then
if mid(strFNAME, 4, 8) >= str_stdate And mid(strFNAME, 4, 8) <= str_eddate Then

%>
<tr>
<td colspan="3">
<%
Response.Write "<a href='" & strFNAME & "'>"  & strFNAME & "</A>"
%>
</td>
</tr>
<%

%>

</tbody>

</table>
</article>
</body>
</html>


いつもありがとうございます。
ファイルの検索フォームtest.aspの修正をしています。
ボタンで検索法を選んで、期間等を選択すると該当のファイルがデータベースからフォームの下に表示されるようにしたのですが、一度検索をかけてファイルを得るとその後、検索法の変更をしても履歴が残ってしまっていて、再検索が出来ませんでした。
どのような方法で考えたらよいかアドバイスいただけると助かります。

どうぞよろしくお願いします。

  • 気になる質問をクリップする

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

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

    クリップを取り消します

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

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

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

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

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

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

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

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

    質問の評価を下げる

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

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

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

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

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

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

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

    詳細な説明はこちら

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

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

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

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

  • motuo

    2017/03/29 10:28

    見た限り問題はなさそうな気もしますが、POSTを受け取るxxx.aspの内容を提示して頂くことはできますか?

    キャンセル

  • SurferOnWww

    2017/03/29 10:38

    ASP.NET のタグが付いてますが、コードはクラシック ASP のようですが?

    キャンセル

  • vanille

    2017/03/29 11:03

    コメントありがとうございます。xxx.postは同じファイル名でした。asp.netからaspに変更しました。すみません。

    キャンセル

回答 1

check解決した方法

0

皆様、ありがとうございました。
なぜかresetボタンを替えただけで動きました。
何度か試みたつもりだったのですが.....

<input id="cancel" name="cancel" type="reset" value="reset"/>

本当にすみません。落ち着いて作業します。
またよろしくお願いします。

投稿

  • 回答の評価を上げる

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

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

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

  • 回答の評価を下げる

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

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

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

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

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

関連した質問

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

  • JavaScript

    16461questions

    JavaScriptは、プログラミング言語のひとつです。ネットスケープコミュニケーションズで開発されました。 開発当初はLiveScriptと呼ばれていましたが、業務提携していたサン・マイクロシステムズが開発したJavaが脚光を浴びていたことから、JavaScriptと改名されました。 動きのあるWebページを作ることを目的に開発されたもので、主要なWebブラウザのほとんどに搭載されています。

  • HTML

    8999questions

    HTMLとは、ウェブ上の文書を記述・作成するためのマークアップ言語のことです。文章の中に記述することで、文書の論理構造などを設定することができます。ハイパーリンクを設定できるハイパーテキストであり、画像・リスト・表などのデータファイルをリンクする情報に結びつけて情報を整理します。現在あるネットワーク上のほとんどのウェブページはHTMLで作成されています。

  • ASP

    61questions

    ASP(Active Server Pages) あるいはClassic ASP (ASP Classic)は、マイクロソフト社開発した動的なウェブページ製作に利用可能なサーバー側のスプリクトエンジンです。