「1.htm」のフォームで入力された値を、
「2.asp」で出力するASPを作成しました。
以下のようなコードになってしまいました。
動作はするのですが、
もう少し簡潔にならないかと考えています。
どうかご教授ください。
宜しくお願いします。
****1.htm***
<input name="test1" type="text">
<INPUT type="radio" name="test1_1" value="y">あり
<INPUT type="radio" name="test1_1" value="n">なし
<input name="test2" type="text">
<INPUT type="radio" name="test2_2" value="y">あり
<INPUT type="radio" name="test2_2" value="n">なし
…
<input name="test5" type="text">
<INPUT type="radio" name="test5_5" value="y">あり
<INPUT type="radio" name="test5_5" value="n">なし
***2.asp*****
test1で値が入力されていたらその値をもとにクエリを組んで、
結果を出力しています。
If Not test1 = "" Then
Set db=Server.CreateObject("ADODB.Connection")
db.Provider = "Microsoft.Jet.OLEDB.4.0"
db.ConnectionString = Server.MapPath("test.mdb")
db.open
Set rs = db.Execute("SELECT * FROM テーブル1 WHERE ((テーブル2.番号)='" & test1 & "')")
ObjTS.WriteLine " & rs.Fields.Item("名前") & "
If test1_1 = "y" then
ObjTS.WriteLine "メッセージ"
End If
rs.Close
db.Close
Set db = Nothing
End If
If Not test2 = "" Then
Set db=Server.CreateObject("ADODB.Connection")
db.Provider = "Microsoft.Jet.OLEDB.4.0"
db.ConnectionString = Server.MapPath("test.mdb")
db.open
Set rs = db.Execute("SELECT * FROM テーブル1 WHERE ((テーブル2.番号)='" & test2 & "')")
ObjTS.WriteLine " & rs.Fields.Item("名前") & "
If test2_2 = "y" then
ObjTS.WriteLine "メッセージ"
End If
rs.Close
db.Close
Set db = Nothing
End If
……
If Not test5 = "" Then
Set db=Server.CreateObject("ADODB.Connection")
db.Provider = "Microsoft.Jet.OLEDB.4.0"
db.ConnectionString = Server.MapPath("test.mdb")
db.open
Set rs = db.Execute("SELECT * FROM テーブル1 WHERE ((テーブル2.番号)='" & test5 & "')")
ObjTS.WriteLine " & rs.Fields.Item("名前") & "
If test5_5 = "y" then
ObjTS.WriteLine "メッセージ"
End If
rs.Close
db.Close
Set db = Nothing
End If
No.1ベストアンサー
- 回答日時:
繰り返し記述しているコードのどの部分が共通していてどの部分が固有なのかを特定しましょう
お示しのコードなら
テキストボックスとラジオボタンが違うだけのように思います
ならばこの2つを引数にしたプロシージャを書けば良いように思います
Sub MakeTS(txt,rd)
Set db=Server.CreateObject("ADODB.Connection")
db.Provider = "Microsoft.Jet.OLEDB.4.0"
db.ConnectionString = Server.MapPath("test.mdb")
db.open
Set rs = db.Execute("SELECT * FROM テーブル1 WHERE ((テーブル2.番号)='" & txt & "')")
ObjTS.WriteLine " & rs.Fields.Item("名前") & "
If rd = "y" then
ObjTS.WriteLine "メッセージ"
End If
rs.Close
db.Close
Set db = Nothing
End Sub
呼び出し部分は
if test1<>"" then
MakeTS test1, test1_1
end if
といった具合です
db、rs、ObjTSなどはグローバル変数にしておきましょう
返信遅れて申し訳ありません。
回答ありがとうございます。
教えていただいたようにするとうまくできました。
どうもありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PHP $_SESSIONについて教えて下さい。 2 2023/03/02 09:18
- PHP 重複を防ぐ記述について教えて下さい。 3 2023/04/03 14:35
- CGI perlで書いたcgiでsqliteの使い方を教えてください 2 2023/05/08 21:29
- JavaScript javascript作成してます。ラジオボタンで判定するコードを書いてます。 1 2023/07/18 11:03
- HTML・CSS ただいま勉強始めたての初心者です。フォームを縦並べにしたいです。 2 2022/11/20 17:18
- PHP PHP MySql 画像を取得 1 2022/06/04 14:05
- PHP 入力した部分を表示させたまま(保持)するにはどうすれば良いでしょうか? 1 2023/01/25 11:14
- JavaScript Javascript初心者|jQueryの.val()で値を取得し複数の要素を連結させる方法知りたい 2 2022/06/02 12:06
- PHP PHPで画像の渡しが上手く行きません。 1 2023/02/02 09:39
- JavaScript ①入力フォーム→②確認表示画面→③送信完了画面のコードを書いているのです、 入力フォームから受け取っ 2 2022/05/10 16:45
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
onedrive にexcelファイルをア...
-
キヤノン アソビカメラ iNSPiC ...
-
【VB.NET】App.configにファイ...
-
Windows10にデュアルブートでXP...
-
高校1年生情報の問題について。
-
vba 空のデータをSplitする時の...
-
C#からvbsを実行したい
-
ffftpでファイル取得が0バイト...
-
【VB.NET】Excelの最終行までの...
-
VB.NET Excelを読み込んでDataT...
-
aspxをhtmlに変換する方法について
-
図に入っている文字をセルに書...
-
電子系初心者です。 raspberryp...
-
エラーコード:0×80070570を削...
-
連想配列を配列に格納したいで...
-
エクセルのマクロについて教え...
-
インドe-Visa 承認書のApplicat...
-
SPIの非言語の割合と比が難しく...
-
SPIの対策は参考書でやるべきか?
-
LEDで電光掲示板に「A B C D E...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
onedrive にexcelファイルをア...
-
エクセルに張り付けた写真のフ...
-
VB.NET Excelを読み込んでDataT...
-
【VB.NET】App.configにファイ...
-
キヤノン アソビカメラ iNSPiC ...
-
VBAでPDFを作成する際、同じ名...
-
phpのファイルがブラウザで開か...
-
【VB.NET】Excelの最終行までの...
-
Windows10にデュアルブートでXP...
-
C#からvbsを実行したい
-
ffftpでファイル取得が0バイト...
-
aspxをhtmlに変換する方法について
-
連想配列を配列に格納したいで...
-
vba 空のデータをSplitする時の...
-
Excelにて、シート間で、データ...
-
バッチで当日日付で作成される...
-
【VB.NET】for each文からのINS...
-
SPIの非言語の割合と比が難しく...
-
Windowsで複数のファイルを同じ...
-
VBA 複数のテキストボックスと...
おすすめ情報