-PR-
締切り
済み

VBScriptについて

  • 困ってます
  • 質問No.8032
  • 閲覧数117
  • ありがとう数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 I ...続きを読む
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で解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

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

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

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ