|
ＤＢアプリテストのページ 表形式で確認のソース
| <%@ 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 align=center><FONT color=black face="">表形式で確認</FONT></P> <% 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 ('" & in_id & "','" & in_pass1 & "','" & in_name & "')" set rec1_com.ActiveConnection = rec_1 set db1=rec1_com.Execute %> <TABLE border=1 cellPadding=1 cellSpacing=1 width=75%> <TR> <TD><FONT color=black>ＩＤ</FONT></TD> <TD><FONT color=black>ﾊﾟｽﾜｰﾄﾞ</FONT></TD> <TD><FONT color=black>氏名</FONT></TD> <TD><FONT color=black>性別</FONT></TD> <TD><FONT color=black><FONT>職業</FONT></FONT><FONT></FONT></TD></TR><FONT> <%do while not db1.eof%> </FONT> <TR> <TD><FONT> <%=db1("ID")%> </FONT></TD> <TD><FONT> <%=db1("pass")%> </FONT></TD> <TD><FONT> <%=db1("氏名")%> </FONT></TD> <TD><FONT> <%if db1("性別")="True" then %> <%="男"%> <%else%> <%="女"%> <%end if%> </FONT></TD> <TD><FONT> <%=db1("職業")%> </FONT></TD></TR><FONT> <%db1.movenext%> <%loop%> </FONT> </TABLE><FONT><BR></FONT> <P align=center> <A href="http://sim2/test3/db index.htm"><FONT color=blue face=Arial size=2>ＤＢテストペーシに戻る</FONT></A> </P> </BODY> </HTML> |