|
ＤＢアプリテストのページ 削除終了確認のソース
| <%@ 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> <% set rec_1 = server.CreateObject("ADODB.connection") rec_1.Open "DSN=test3_db" set rec1_com = server.CreateObject("ADODB.command") rec1_com.CommandText="DELETE FROM user1 " & _ "WHERE ID='" & session("s_id") & "'" & _ " AND pass='" & session("s_pass") & "'" set rec1_com.ActiveConnection = rec_1 rec1_com.Execute %> <!-- 削除終了のメッセージ--> <P align=center> <% =session("s_name") %> 様の登録を削除しました。<br> 再度のご登録をお待ちしています。<br> <br> <A href="http://sim2/test3/db index.htm"><FONT color=blue face=Arial size=2> 登録のページへ</FONT></A><BR> </P> </BODY> </HTML> |