出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
入力チェックについて（BASP21使用ａｓｐ） 　 モッキン・バードさん [2002/07/04 16:51:58] [2272]
　 Re:入力チェックについて（BASP21使用ａｓｐ） 　 北岳さん [2002/07/04 17:55:12] [2273]
　 　 Re:入力チェックについて（BASP21使用ａｓｐ） 　 モッキン・バードさん [2002/07/05 9:47:07] [2276]
[2272] 入力チェックについて（BASP21使用ａｓｐ）
投稿者：モッキン・バードさん 2002/07/04 16:51:58
こんにちは！モッキン･バードです。
いつも掲示板を見て勉強させていただいてますが、今日は分からないところがあるので掲示板に書き込みしました。

今aspで登録画面を作っています。
aspファイルの流れはこのようになってます。
①1.asp　登録フォーム
ソース
<HTML><HEA></HEAD>
<BODY><FORM NAME="My_Form" METHOD="POST" ACTION="2.asp" ENCTYPE="multipart/form-data">
氏名：<INPUT TYPE="text" Name="MyName"><BR>
ファイル１：<INPUT TYPE="file" Name="file1"><BR>
ファイル２：<INPUT TYPE="file" Name="file2"><BR>
ファイル３：<INPUT TYPE="file" Name="file3"><BR>
<INPUT TYPE="submit" Name="btn_Up">
</FORM><HTML>

②2.asp　BASP21でファイルアップロード＆テーブルにレコード追加
　　　　　1.aspへリダイレクトしている。

ソース（変数宣言省略）
<%
'＊＊＊ファイル保存＊＊＊
a = Request.TotalBytes
b = Request.BinaryRead(a)
Set bobj = Server.CreateObject("Basp21")
Set ObjFso = Server.CreateObject("Scripting.FileSystemObject")
F_Path= "D:\temp\"
Namae = bobj.Form(b,"MyName")

GetFil = Array("file1","file2","file3")
Tenp = Array(tenp1,tenp2,tenp3)
i = 1
Do Until i > 3
Fle = bobj.FormFileName(b,GetFil(i-1))
　If Fle <> "" Then
　　newf1=Mid(Fle,InstrRev(Fle,"\")+1)
　　l1 = bobj.FormSaveAs(b,GetFil(i-1),F_Path & newf1)
　　Tenp(i-1) = F_Path & newf1
　End If
i = i + 1
Loop

Set oCon = Server.CreateObject("ADODB.Connection")
sConStr = Application.Contents("ConCustomer")
oCon.Open sConStr
Set oRset = Server.CreateObject("ADODB.Recordset")

SelSQL = "SELECT * FROM ファイル保管情報"
oRset.Open SelSQL,oCon,3,3


'＊＊＊レコード更新＊＊＊
oRset.AddNew
oRset.MoveLast
oRset("名前")=Fol
fil = Array("ファイル1","ファイル2","ファイル3")
for i=1 to 3
　If Tenp(i-1) <> "" Then
　　　　oRset(fil(i-1)) = Tenp(i-1)
　End If
Next
Rset.Close
oCon.Close
set oRset = Nothing
set oCon = Nothing
Response.Redirect "1.asp"
%>

以上のソースに入力チェックを入れなくてはならないので困っています。
入力チェックは「氏名」("My_Name")に入力がされていなければ、
alert表示で、「入力されていません」と表示し、レコードの追加を行なわないこととします。氏名が入力されていればレコードが追加されるというものを作りたいのです。
入力チェックもJavaScriptとVBScriptがありますよね？
出きればVBScriptでやりたいのですが、何かいい方法はないでしょうか？皆さんのお知恵を教えていただければと思います。
宜しくお願いします。


[2273] Re:入力チェックについて（BASP21使用ａｓｐ）
投稿者：北岳さん 2002/07/04 17:55:12
過去ログ [2090] フォーム未入力チェック
を参考に、クライアントサイドで入力チェックを済ませる方がスマートですね。
その場合、1.aspはaspの機能を使っておらず、htmで十分なので、拡張子も変更。
　
---------------1.htm-------------------
<HTML><HEAd>
<script language="JavaScript">
<!--
function ChkForm1(x){
var wdd1=x.MyName.value;
wdd1=wdd1.replace(/[　|\s|\t]*/g,"");
if (wdd1=="") {
window.alert ("氏名が空白です。");
return false;
}
return true;
}
// -->
</script>
</HEAD>
<BODY>
<FORM NAME="My_Form" METHOD="POST" ACTION="2.asp" ENCTYPE="multipart/form-data" onSubmit="return ChkForm1(this);">
<p>氏名：<INPUT TYPE="text" Name="MyName"><BR>
ファイル１：<INPUT TYPE="file" Name="file1" size=100><BR>
ファイル２：<INPUT TYPE="file" Name="file2" size=100><BR>
ファイル３：<INPUT TYPE="file" Name="file3" size=100><BR>
<br><INPUT TYPE="submit" Name="btn_Up" value=" アップロード ">
</FORM></body></HTML>
-------------------------------------
　
サーバサイドでやる方が快感を覚える、という場合は、2.aspの
Namae = bobj.Form(b,"MyName")
の次に
if Namae="" then
response.write("氏名が空白です。")
response.write("ブラウザの戻るボタンを押してください。")
response.end
end if
を挿入すればよいでしょう。
（最初のをお勧めします。）
[2276] Re:入力チェックについて（BASP21使用ａｓｐ）
投稿者：モッキン・バードさん 2002/07/05 9:47:07
北岳さんアドバイスをありがとうございました。
JavaScriptでクライアントサイドに入力チェックを行なったら無事に出来ました。
ありがとうございました！m(__)m

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ