sea_clear_sky8です。
[環境]
OS 98SE
PWS
[質問内容]
ページングの値渡しの際がうまくいきません。
忙しいところすいませんがよろしくお願いします。
次のページっていうのをボタンで作って、次の10件が表示させるように
させたいのです。
下記ソースのvar frm = document.GetElemntById("myForm");の部分で
オブジェクトでサポートされていないプロパティまたはメソッド
ですとエラーがでます。
それからコンパイル後、SQLエラーと表示されます。
このSQLエラーというのは下記ソースのエラー処理で行っている
SQLエラーというのが表示されています。
[ソース]
[bunkatsu1.html]
<html>
<body>
<form action="bunkatsu1.asp" method="post">
名前:<input type="text" name="nm">
<input type="hidden" name="page_num" value="0">
<input type="submit" name="exec" value="検索">
</form>
</body>
</html>
[bunkatsu1.asp]
<html>
<script type="text/javascript">
<!--
function myClick()
{
var frm = document.GetElemntById("myForm");
frm.action ="bunkatsu1.ASP";
frm.method= "get";
frm.submit();
}
// -->
</script>
<body>
<%
On Error Resume Next
Dim DB,CMD,RS,AllCnt
'接続処理
Set DB = Server.CreateObject("ADODB.Connection")
DB.Open "mysql"
If Err.number <> 0 then
Response.Write "接続エラー"
Response.End
End If
' LIMITを使ったSELECT文を実行
Set CMD = Server.CreateObject("ADODB.Command")
CMD.ActiveConnection = DB
CMD.CommandText = "select * from test_t " & _
"where name like '%" & Request("nm") & "%' " & _
"order by id " & _
"limit " & Request("page_num")*10 & ",10"
Set RS = CMD.Execute
If Err.number <> 0 then
Response.Write "SQL実行エラー"
Response.End
End If
' 結果出力
Response.Write "<table border=1>"
Response.Write "<tr><td>id</td><td>name</td></tr>"
Do Until RS.EOF
Response.Write "<tr>"
Response.Write "<td>" & RS("id") & "</td>"
Response.Write "<td>" & RS("name") & "</td>"
Response.Write "</tr>"
RS.MoveNext
If Err.number <> 0 then
Response.Write "次データ取得エラー"
Response.End
End If
Loop
Response.Write "</table>"
' 検索条件に該当する全データの件数取得
CMD.CommandText = "select count(*) from test_t " & _
"where name like '%" & Request("nm") & "%' "
Set RS = CMD.Execute
If Err.number <> 0 then
Response.Write "SQL実行エラー"
Response.End
End If
AllCnt=RS(0)
' ページ数表示
if AllCnt>10 then
Response.Write Abs(Int(-1*(AllCnt/10))) & "ページ中の"
Response.Write Request("page_num")+1 & "ページ目を表示<br>"
end if
' 前の10件
if Request("page_num")<>0 then
end if
' 次の10件
if ((Request("page_num")+1)*10) < AllCnt then
response.write "<form id=""myForm"" method=""post"">"
response.write "<input type=""Submit"" value=""次の10件>""
onclick=""myClick();"">"
response.write "<input type=""HIDDEN"" name=""num"" value=""&request(""num"")&"">"
このTEXTボックスはHIDDENのNUMに何が入っているか確認するための
ものです。
response.write "<input type=""text"" name=""test"" value=""&=request(""num"")&"">"
response.write "<input type=""HIDDEN"" name=""page_num"" value=""&request(page_num)+1&"">"
このTEXTボックスはHIDDENのPAGE_NUMに何が入っているか確認するための
ものです。
response.write "<input type=""text"" name=""test1"" value=""request(page_num)+1&"">"
response.write "<input type=""submit"" value=""更新"">"
response.write "</form>"
end if
' レコードセット解放
RS.Close
' 切断
DB.Close
' オブジェクト解放
Set CMD=Nothing
Set RS=Nothing
Set DB=Nothing
%>
</body>
</html>
忙しいところすいませんが、ご教授願います。
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
valueの値の設定を行う部分に "が足りません
response.write "<input type=""text"" name=""test"" value=""&=request(""num"")&"">"
ですとおかしなことになります
response.write "<input type=""text"" name=""test"" value=""" & request("num") & """>"
といった具合にします
つまり
"<input type=""text"" name=""test"" value="""
で1つの文字列
& request("num") &
で変数の文字列化
""">"
で締めくくり といった具合です
sea_clear_sky8です。
丁寧に何回も回答ありがとうございます。
悩んでいたもやもやが無事解決しました。
全部回答して頂いて、すいませんでした。
忙しいところ、回答ありがとうございました。
ボタンで正常に動作するものが作れました
ありがとうございました。
また、機会があれば、よろしくお願いします。
ほんとに丁寧にして頂いて、助かりましたありがとうございました。
No.1
- 回答日時:
すみません タイプミスのようです
var frm = document.getElementById("myForm");
が正解でしょう
sea_clear_sky8です。
何回も回答ありがとうございます。
無事JAVASCRIPTのエラーは消えました。
回答ありがとうございました。
データベースを検索し、データベースを表示
するところでSQLエラーがでています。
渡しの値渡しの書き方がおかしいため、無事に動作しないと私的には
考えています。
Reguest("nm")をINPUT HIDDENのVALUEの中に
入れるにはどう、記入したらいいのでしょうか?
下の書き方ではうまくいきません。
response.write "<input type=""HIDDEN"" name=""nm"" value=""&request(""nm"")&"">"
このTEXTボックスはHIDDENのNUMに何が入っているか確認するための
ものです。
response.write "<input type=""text"" name=""test"" value=""&request(""nm"")&"">"
response.write "<input type=""HIDDEN"" name=""page_num"" value=""&request(page_num)+1&"">"
<%= %>の記入の仕方はResponse.writeではどう書けばいいかわかりません。すいませんがよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルに張り付けた写真のフ...
-
onedrive にexcelファイルをア...
-
phpのファイルがブラウザで開か...
-
”KINGSOFT WPSのVBエディタ画面...
-
Windows10にデュアルブートでXP...
-
vba 空のデータをSplitする時の...
-
asp.netにてgridviewの列を動的...
-
VBAでPDFを作成する際、同じ名...
-
エクセルのファイル名をコピー...
-
バッチで当日日付で作成される...
-
VB.NET Excelを読み込んでDataT...
-
【VB.NET】App.configにファイ...
-
Accessのトグルボタンでサブフ...
-
python3 足し算の問題
-
SPO2測定
-
高校1年生情報の問題について。
-
エクセルのマクロについて教え...
-
インドe-Visa 承認書のApplicat...
-
SPIの非言語の割合と比が難しく...
-
SPIの対策は参考書でやるべきか?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
javascriptで結果表示テキスト...
-
javascript計算についての質問
-
アンケート個別表示について教...
-
HTMLの値の渡し方について質問...
-
遷移先のURLにパラメータを表示...
-
write downとfill outの違いを...
-
ACCESSのレポートの表示...
-
aspxでIFみたいなことがしたい
-
リストボックスのselectedindex...
-
改行したいのですが
-
フォームのtextareaにnl2brを使...
-
ASP.netで、CheckBoxListのSele...
-
ASP.NETでTimerコントロールを...
-
C#のRichTextBoxで表示行数を取...
-
最大値と最小値の間を循環する変数
-
select case文について
-
シリアル通信プログラミングで...
-
javascriptでlabelの値取得
-
SELECTボックスの内容を動的に...
-
奇数・偶数の区別をプログラミング
おすすめ情報