- ベストアンサー
クラシックASPでのエラー処理について
ASP3.0でOn Err GoTo ラベル の構文は使用できないのでしょうか？ なんだかIISのエラーが出ていて困っています。 Sub内で使用しているのですが、 Function内でしか使用できない、など制限があるのでしょうか？ ネットで検索してもヒット数が少なくてこまっています。 初歩的な質問で恐縮ですが、ご存知の方いらっしゃいましたら よろしくおねがいいたします。
- mamiyak
- お礼率89% (89/100)
- Microsoft ASP
- 回答数2
- ありがとう数3
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
ASP ってことは VBScript ですよね。 VBScript では On Error Resume Next On Error Goto 0 の 2種類しかなかったと思います。 ですのでパラメーターのチェックは自前でしっかりと行い、 「Err オブジェクトの Number プロパティが 0 以外ならエラーが発生している」 というチェックでエラー発生を感知する。 そんな感じで設計する必要があったかと。
その他の回答 (1)
On Error Resume Next を外してデバッグするか、 On Error Resume Next をつけたうえで、こまめに Err.Number をチェックするか、になると思います。
お礼
お返事遅くなりすみません。 あれからまた調べてみたところ、やはりおっしゃるように こまめにチェックするしかないようですね。。 .NETに慣れてしまうと大変です。 ありがとうございました。
関連するQ&A
- VBでのエラー処理（On Error）
VBで以下のようなプログラムを書いています。 sub On Error goto Err 処理1 Err: 処理2 End sub 処理1でエラーが発生した場合、Err:の処理に入ってくるのですが、もしErr:の中の処理2でもエラーが発生した場合、どうすればよいのでしょうか? Err:の中でもエラー処理ができるのでしょうか、それともロジックで回避しなければならないのでしょうか? ご存知の方がいらっしゃいましたら宜しくお願いします。
- ベストアンサー
- Visual Basic
- エラー処理
環境：IIS,ASP（VBScript) サーバー Windows2000Server ASP超初心者です。 処理の途中でエラーになっても On Error Resume Next と If Err.Number then ........ を組み合わせればうまく逃げられるのはわかるの ですが、On Error Resume Nextを書いてもエラー が表示されて落ちます。 #include file の中についてはOn Error Resume Nextは無効なのでしょうか？
- 締切済み
- Microsoft ASP
- 二つのエラーを発生させたい
ひとつのプロシージャー内で、 二つのエラートラップを仕掛ける事は出来ないのでしょうか？ Sub エラーが発生した時にエラーが発生したら() Dim i As Long On Error GoTo Err1 i = "a" Exit Sub Err1: MsgBox "Err1のエラー： " & Err.Description On Error GoTo Err2 i = "b" Exit Sub Err2: MsgBox "Err2のエラー： " & Err.Description End Sub を行うと、 i = "b" で2回目のエラーが発生した時は、 実行時エラーになってしまいます。 i = "b" で2回目のエラーが発生した時に、 「Err2のエラー： 型が一致しません。」 と表示させるにはどうすればいいでしょう？ Sub エラーが発生した時にエラーが発生したら() Dim i As Long On Error GoTo Err1 On Error GoTo Err2 i = "a" Exit Sub Err1: MsgBox "Err1のエラー： " & Err.Description i = "b" Exit Sub Err2: MsgBox "Err2のエラー： " & Err.Description End Sub にすると、 i = "a" のエラーで、 「Err2のエラー： 型が一致しません。」 へ移動してしまいます。
- ベストアンサー
- オフィス系ソフト
- Onってなんでしょうか？
私は現在、ＶＢ６を使用してプログラム開発を行っています。 「On Error」ステートメントに関して質問させていただきます。 私の管理下のソースに、 (1)「On Error Goto [行ラベル]」 (2)「On Err Goto [行ラベル]」 の２種類のステップがあり、 (2)に関しての動作が不明で困っています。 （要は「On [Object] Goto [行ラベル]」と記述した場合に、 どのように解釈されるのか分らないのですが・・・ (1)、(2)共にコンパイルは通りますが(2)の場合はエラーハンドリングはできません。） ＜質問＞ (1)「On Err Goto [行ラベル]」 と記述した場合、 どのような条件でGotoが実行されるのでしょうか？ (Errはエラーオブジェクトです) (2)「On」は ・「On Error Goto [行ラベル]」 ・「On Error Resume Next」 ・「On Error Goto 0」 以外に使用する方法があるのでしょうか？
- ベストアンサー
- Visual Basic
- エラーが発生した場合は ＶＢＡ
Sub Sample() On Error GoTo Err1 Dim i As Integer i = "あ" '←ココで構文エラーとなる。 MsgBox "あ" Debug.Print "無事終了します" Exit Sub Err1: Debug.Print "エラーになりました" i = 1 Resume Next 'エラーの発生した次の行から処理を続行します。 End Sub このようなエラー処理で エラーが発生した場合は MsgBox "あ" ではなく i = "あ" '←ココで構文エラーとなる。 に戻る事は出来ないのでしょうか？
- ベストアンサー
- オフィス系ソフト
- ループの中で何度もエラー処理をしたい場合
サンプルコードを掲載します。 実際はセルの文字を取得するのでこのコードとは違いますが、形は同じです。 Sub test() Dim i As Long On Error GoTo Err1 For i = 0 To 5 i = "a" Err1: Debug.Print i "は、エラーになりました" Next End Sub このようなコードの場合、 i=0の時に、1回目のエラーになって 「0は、エラーになりました」が返りますが、 その後、i=1になった時に i = "a"を実行すると On Error GoTo Err1が無視され、エラーになってしまいます。 ループの中でエラーが何度発生してもエラー処理をする方法はありますか？ On Error Resume Next以外の方法で教えてください。
- ベストアンサー
- オフィス系ソフト
- エラー処理
エラー処理について質問です。 私はどうもVBのエラー処理が頭についているせいか、Javaの例外処理等が面倒に見えてならないんです。 例えば下記はVBのエラー処理なんですが、引数を得て計算して値を返すというものなのですが、引数自体が間違えてたら意味ないということでチェックします。 色んなチェックをして１つでも間違えてたらVVV_ERRORに飛びます。 下記のように「桁数チェック」とか「数値か？」とか調べる場合、Javaだとどのようにして書いたらいいのでしょう？ Javaならtry文に全部入れてしまえばいいのでしょうが… .....例 try { x = 10 / 5; y = 20 / 0; //エラー } catch ( ArithmeticException ex ) { System.out.println (" 0で割ることはできません"); .....略 要は下記VBのようにモジュールごとに独自のエラーコードが存在する場合、どうエラー処理を書いたらいいのかということです。 皆さんならどうしますか？よろしければご意見等お願い致します。 //////////////////////////////////////////////////////////////// public Function VVV(YYYYMMDD As String , Kotae As String) As String ...... vvv_err = "" On Error GoTo VVV_ERROR '***************引数チェック '8桁か？ If Len(YYYYMMDD) <> 8 Then vvv_err = "8桁ではありません" GoTo VVV_ERROR End If '数値か？ If IsNumeric(YYYYMMDD) = False Then vvv_err = "数値ではありません" GoTo VVV_ERROR End If .....略(同じようなIf文の引数チェックがたくさんあります) '***************ERROR処理 VVV_ERROR: vvv_err = vvv_err & err.Description & err.Number .....略
- ベストアンサー
- Java
- On ErrorでエラーNoが０
On ErrorでエラーをトラップしてエラーNOとエラー内容をダイアログに表示させています。 Private Sub pv_sample() Dim errno as Long On Error GoTo ERR_END ' 処理内容略 Exit Sub ERR_END: errno = Err.Number MsgBox "システムエラー エラーＮＯ(" & errno & ") 内容(" & Err.Description & ")" End Sub エラーが発生した場合はErr.Numberには0以外がセットされるはずですが 「システムエラー エラーＮＯ(0) 内容()」 というメッセージが表示されることがあります。 On Eroorで飛んできたときにエラーNoが0になってしまうことはありえるのでしょうか。
- ベストアンサー
- Visual Basic
- EXCEL VBA のエラー処理
EXCEL VBA でセルの文字列を読み(基本的に2007/05/08のような日付データが入っている)、 もしそれ以外のデータ("あいう"のような文字列)が入っていた場合はエラールーチンに飛ばして処理をしようと思ったのですが、 エラーが発生して、発生箇所が黄色く反転表示され、止まったままになってしまいます。 エラールーチンに飛ばすためにはどうしたらいいのでしょうか？ Sub test() Dim LineNo As Integer Dim WrkDate As Date On Error GoTo Err LineNo = 1 WrkDate = Range("S" & LineNo).Value ←ここが黄色く反転表示される。 WrkDate = WrkDate + 7 Range("X" & LineNo).Value = WrkDate GoTo Owari Err: (処理ルーチン) Owari: End Sub
- ベストアンサー
- オフィス系ソフト
- エラー処理について。
Accessマクロで、VBAに変換する際、「エラー処理コードを追加する。」に チェックを入れると出来る「エラー処理コード」についての質問です。 (1)このエラー処理コードは、プログラムの「異常終了」を防ぐと書いてありましたが、そもそもこの異常終了とはどのようなことを言ってるのでしょうか？ （例えば、Accessが何の断りもなく、強制終了するなどといったことでしょうか。） 実際にマクロ（テーブルを開く）で作成されたエラーコードの部分だけを動かしてみて、どんなことになるのか試したいのですが、どうすれば試せるのですか？ Function マクロ3() On Error GoTo マクロ3_Err DoCmd.OpenTable "テーブル1", acNormal, acEdit マクロ3_Exit: Exit Function マクロ3_Err: MsgBox Error$ Resume マクロ3_Exit End Function (2)そもそもエラー処理は、Access VBA開発ではかなり重要な要素なのでしょうか？ 例えば、テキストボックスに何も入力されてなかったら、「入力してください。」とメッセージボックスを表示させるマクロを作るようなことは、 エラー処理とはまた違うのものなのですか？
- ベストアンサー
- Visual Basic
お礼
はい、VBscriptです。 やはりラベルの使用は無理なのですね。 ありがとうございました。 助かりました。