View Source Code

SourceFileName = "samples/bbs2-delete2.asp"

C:\inetpub\wwwroot\aspsample\samples\bbs2-delete2.asp

<%
 vCode = Request.QueryString("CODE")
 If vCode = "" Then
   vDelFlg = 0
 Else
   vDelFlg = 1
 End if
%>
<!-- このスクリプトはご自由にご利用頂いて結構ですが、無断転用などを禁止いたします。 -->
<!-- 下記のuseridの部分をお客様のユーザーIDと置き換えて下さい。-->
<!-- 管理者用を実行するには、「bbs2-admin.asp」「bbs2-edit.asp」「bbs2-write.asp」 -->
<!-- 「bbs2-delete.asp」「bbs2-delete2.asp」全てが必要です。 -->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">
<title>掲示板　削除（管理者用）</title>
<base target="top">
</head>

<body>
<%
  If vDelFlg = 1 Then
    Set CON = Server.CreateObject("ADODB.Connection")
    CON.Open("DSN=userid_bbs")
    SQL = "delete from 掲示板 where [code] = " & vCode
    CON.Execute SQL
    CON.Close
    Set CON = Nothing
%>
No.<% = vCode %>の投稿メッセージは削除されました。<br><br>
<form method="POST">
  <input type="reset" value="閉じる"
  name="B2" onClick="window.close();">
<%
  Else
    Response.End
  End if
%>
</form>
</body>
</html>