View Source Code

SourceFileName = "samples/bbs2-edit.asp"

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

<!-- このスクリプトはご自由にご利用頂いて結構ですが、無断転用などを禁止いたします。 -->
<!-- 下記の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>
</head>

<body>
<%
 vCode = Request.QueryString("EDIT")
 If vCode = "" Then
   vEditFlg = 0
 Else
   vEditFlg = 1
   Set CON = Server.CreateObject("ADODB.Connection")
   CON.Open("DSN=userid_bbs")
   SQL = "Select * from 掲示板 where [code]=" & vCode
   Set RS = CON.Execute(SQL)
   If RS.EOF Then
     vEditFlg = 0
     Response.write "No." & vCode & "の投稿メッセージは削除されているみたいです。<br>"
     Response.write SQL & "<br>"
     Response.Write "<form method='POST'><input type='reset' value='閉じる' name='B2' onClick='window.close();'></form>"
     Response.End
   End if
   RS.Close
   Set RS = Nothing
   CON.Close
   Set CON = Nothing
 End if
%>
<%
  If vEditFlg = 1 Then
     Set CON = Server.CreateObject("ADODB.Connection")
     CON.Open("DSN=userid_bbs")
     SQL = "Select * from 掲示板 where [code] = " & vCode
     Set RS = CON.Execute(SQL)

     sCode = RS("code")
     sName = RS("name")
     sSubject = RS("subject")
     sLink = RS("link")
     sEmail = RS("email")
     sBody = RS("body")
     sMemo = RS("memo")

     RS.Close
     Set RS = Nothing
     CON.Close
     Set CON = Nothing
%>
<form method="POST" action="bbs2-write.asp?CODE=<% = sCode %>">
  <table border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td>No.</td>
      <td><% = sCode %></td>
    </tr>
    <tr>
      <td>投稿者</td>
      <td><input type="text" name="name" size="32" value = "<% = sName %>"></td>
    </tr>
    <tr>
      <td>メール</td>
      <td><input type="text" name="email" size="46" value = "<% = sEmail %>"></td>
    </tr>
    <tr>
      <td>題名</td>
      <td><input type="text" name="subject" size="50" value = "<% = sSubject %>"></td>
    </tr>
    <tr>
      <td>内容</td>
      <td><textarea name="body" colsS="60" rows="10" cols="57"><% = sBody %></textarea></td>
    </tr>
    <tr>
      <td>リンク</td>
      <td><input type="text" name="link" size="50" value = "<% = sLink %>"></td>
    </tr>
    <tr>
      <td>メモ</td>
      <td><textarea name="memo" colsS="60" rows="3" cols="57"><% = sMemo %></textarea></td>
    </tr>
  </table>
  <p><input type="submit" value="登録する" name="B1"><input type="reset" value="閉じる"
  name="B2" onClick="window.close();"></p>
</form>
<form method="POST" action="bbs2-delete.asp?CODE=<% = sCode %>">
  <input type="submit" value="削除する" name="B1">
</form>
<%
  Else
     Response.End
  End if
%>
</body>
</html>