|
ＤＢアプリテストのページ 変更確認のソース
| <%@ Language=VBScript %> <HTML> <HEAD> <META HTTP-EQUIV="Content-Type" Content="text/html; charset=x-sjis"> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> <LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/sumipntg/THEME.CSS" VI6.0THEME="墨絵"> <LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/sumipntg/GRAPH0.CSS" VI6.0THEME="墨絵"> <LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/sumipntg/COLOR0.CSS" VI6.0THEME="墨絵"> <LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/sumipntg/CUSTOM.CSS" VI6.0THEME="墨絵"></HEAD> <BODY> <P> </P> <% 'in_id=Request.Form("text1") in_pass1=Request.Form("password1") in_pass2=Request.Form("password2") in_name=Request.Form("text2") in_sei=Request.Form("radio1") in_work=Request.Form("select1") if in_sei="on" then in_sei="1" 'Yes=男 else in_sei="0" 'No=女 end if %> <!-- <%=session("s_id")%> <%=in_id%> <%=in_pass1%> <%=in_pass2%> <%=in_name%> <%=in_sei%> <%=in_work%> --> <% inp_sw=0 inp_msg="" '-----データ未入力の確認 'if in_id="" then 'inp_msg=inp_msg & "ＩＤが未入力です <BR>" 'inp_sw=1 'end if if in_pass1="" then inp_msg=inp_msg & "パスワードが未入力です <BR>" inp_sw=1 end if if in_pass2="" then inp_msg=inp_msg & "パスワード確認が未入力です <BR>" inp_sw=1 end if if in_name="" then inp_msg=inp_msg & "氏名が未入力です <BR>" inp_sw=1 end if %> <% '--------データ未入力メッセージの表示 if inp_sw=1 then inp_msg=inp_msg & "<P>" & "戻るボタンで登録に戻って、" inp_msg=inp_msg & "再度処理してください <BR>" %> <%=inp_msg%> <% else set rec_1 = server.CreateObject("ADODB.connection") rec_1.Open "DSN=test3_db" set rec1_com = server.CreateObject("ADODB.command") rec1_com.CommandText="UPDATE user1 SET " & _ "pass='" & in_pass1 & "'," & _ "氏名='" & in_name & "'," & _ "性別='" & in_sei & "'," & _ "職業='" & in_work & "' " & _ "WHERE ID='" & session("s_id") & "'" ' & _ '" AND pass='" & in_pass1 & "'" set rec1_com.ActiveConnection = rec_1 rec1_com.Execute %> <!-- 登録終了のメッセージ--> <P align=center> <% =in_name %> 様の登録内容を変更しました。<br> 今後ともよろしくお願いします。<br> <br> <A href="http://sim2/test3/db index.htm"><FONT color=blue face=Arial size=2> 登録のページへ</FONT></A><BR> </P> <% end if %> </BODY> </HTML> |