-PR-
締切済み

VBScriptについて

  • 困ってます
  • 質問No.8032
  • 閲覧数118
  • ありがとう数20
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 42% (8/19)

VBScriptで現在このようなプログラムを書いています。
これで実行すると、空欄の場合もメッセージがでてしまいます。
そこで、空欄にはメッセージがでないようにしたいのですが・・・
どのように記述すればよいのか教えてください。

If IsNumeric(Request.Form("kiso")) Then
rs.Fields("KISO").Value = CInt(Request.Form("kiso"))
Else
strMessage = strMessage & "<br>" & "基礎は数値で入力してください"
End If
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全1件)

  • 回答No.1
レベル9

ベストアンサー率 56% (45/80)

kisoというフォームデータが数値かどうかの判定しかしてませんよね。
データの長さをLen関数で調べてみてはいかがでしょうか。

Dim FormData
FormData=Request.Form("kiso")
If Len(FormData)=0 Then '空欄?
rs.Fields("KISO").Value = 0
Else If IsNumeric(FormData) Then '数値?
rs.Fields("KISO").Value = CInt(FormData)
Else
strMessage = strMessage & "<br>" & "基礎は数値で入力してください"
End If

テストはしてませんので、どこかにチョンボがあるかも!?


このQ&Aのテーマ
このQ&Aで解決しましたか?
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-

特集


抽選で合計100名様にプレゼント!

ピックアップ

ページ先頭へ