View Source Code

SourceFileName = "samples/bbs2-delete.asp"

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

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

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

<body>
<%
  If vDelFlg = 1 Then
%>
No.<% = vCode %>の投稿メッセージを本当に削除してよろしいですか？<br><br>
<form method="POST" action="bbs2-delete2.asp?CODE=<% = vCode %>">
  <input type="submit" value="本当に削除する" name="B1">
  <input type="reset" value="閉じる"
  name="B2" onClick="window.close();">
<%
  Else
    Response.End
  End if
%>
</form>
</body>
</html>