|
ＤＢアプリテストのページ 変更のソース
| <%@ 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> <% in_id=Request.Form("text1") in_pass=Request.Form("password1") %> <!-- <%=in_id%> <%=in_pass%> <%=Request.Form("submit1")%> <%=Request.Form("submit2")%> submit1,submit2の値で、処理を分けることも出来ます そうすると、ＩＤ・パスワードの指定は１箇所でボタンが二つのペーシ゛を作れる --> <% set rec_1 = server.CreateObject("ADODB.connection") rec_1.Open "DSN=test3_db" set rec1_com = server.CreateObject("ADODB.command") rec1_com.CommandText="SELECT ID,pass,氏名,性別,職業 FROM user1 " & _ "WHERE ID='" & in_id & "' and pass='" & in_pass & "'" set rec1_com.ActiveConnection = rec_1 set db1=rec1_com.Execute session("s_id")=db1("ID") session("s_pass")=db1("pass") session("s_name")=db1("氏名") session("s_sei")=db1("性別") session("s_work")=db1("職業") %> <P align=center>データの修正</P> <P> <FORM action="db henko1a.asp" method=post id=form1 name=form1> <TABLE align=center border=1 cellPadding=1 cellSpacing=1 width=75%> <TR> <TD>ＩＤ</TD> <TD> <!-- <INPUT id=text1 name=text1 value=<%=session("s_id")%>></TD></TR> --> <%=session("s_id")%> <TR> <TD>パスワード</TD> <TD> <INPUT id=password1 name=password1 value=<%=session("s_pass")%> type=password></TD></TR> <TR> <TD>パスワード確認</TD> <TD> <INPUT id=password2 name=password2 value=<%=session("s_pass")%> type=password></TD></TR> <TR> <TD>氏名</TD> <TD> <INPUT id=text2 name=text2 value=<%=session("s_name")%>></TD></TR> <TR> <TD>性別</TD> <TD> <% if session("s_sei")="True" then %> <INPUT id=radio1 name=radio1 value="on" type=radio checked>男 <INPUT id=radio1 name=radio1 value="off" type=radio>女 <% else%> <INPUT id=radio1 name=radio1 value="on" type=radio>男 <INPUT id=radio1 name=radio1 value="off" type=radio checked>女 <% end if%> </TD></TR> <TR> <TD>職業</TD> <TD><SELECT id=select1 name=select1 style="HEIGHT: 20px; WIDTH: 132px"> <% select case session("s_work")%> <% case "会社員"%> <OPTION selected>会社員 <OPTION>公務員 <OPTION>自営業 <OPTION>学生 <OPTION>無職 <% case "公務員"%> <OPTION>会社員 <OPTION selected>公務員 <OPTION>自営業 <OPTION>学生 <OPTION>無職 <% case "自営業"%> <OPTION>会社員 <OPTION>公務員 <OPTION selected>自営業 <OPTION>学生 <OPTION>無職 <% case "学生"%> <OPTION>会社員 <OPTION>公務員 <OPTION>自営業 <OPTION selected>学生 <OPTION>無職 <% case "無職"%> <OPTION>会社員 <OPTION>公務員 <OPTION>自営業 <OPTION>学生 <OPTION selected>無職 <%end select%> </SELECT> </TD> </TR> </TABLE><BR> <DIV align=center><INPUT id=submit1 name=submit1 type=submit value= 更新 ></DIV> </FORM> <TABLE align=center border=1 cellPadding=1 cellSpacing=1 width=75%> <TR> <TD> <P align=center><A href="http://sim2/test3/db index.htm"><FONT color=blue face="" size=2>DBアプリテストのページに戻る</FONT></A></P> </TD> <TD> <P align=center><A href="http://sim2/test3/db id_pass1.htm"><FONT color=blue face="" size=2>データ修正・削除のページに戻る</FONT></A></P> </TD> </TR> </TABLE> </BODY> </HTML> |