出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[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でやりたいのですが、何かいい方法はないでしょうか？皆さんのお知恵を教えていただければと思います。
宜しくお願いします。


入力チェックについて（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]

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