View Source Code

SourceFileName = "samples/bbs2-write.asp"

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

<%
 vCode = Request.QueryString("CODE")
 If vCode = "" Then
   vEditFlg = 0
 Else
   vEditFlg = 1
   vB1 = Request.Form("B1")
   'Response.Write vB1 & "<br>"
   sName = Request.Form("name")
   If sName = "" Then
      sName = " "
   End if
   sEmail = Request.Form("email")
   If sEmail = "" Then
      sEmail = " "
   End if
   sSubject = Request.Form("subject")
   If sSubject = "" Then
      sSubject = " "
   End if
   sLink = Request.Form("link")
   'If sLink = "" Then
   '   sLink = " "
   'End if
   sBody = Request.Form("body")
   'If sBody = "" Then
   '   sBody = " "
   'End if
   sMemo = Request.Form("memo")
   'If sMemo = "" Then
   '   sMemo = " "
   'End if
 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>
</head>
<body>
<%
  If vEditFlg = 1 Then
     Set CON = Server.CreateObject("ADODB.Connection")
     CON.Open("DSN=userid_bbs")
       SQL =       "update 掲示板 "
       SQL = SQL & "set [name] = '" & sName & "',[email] = '" & sEmail & "',[subject] = '" & sSubject & "',"
       SQL = SQL &     "[link] = '" & sLink & "',[body] = '" & sBody & "',[memo] = '" & sMemo & "'"
       SQL = SQL & " where [code] = " & vCode
     'Response.Write SQL & "<BR><BR><BR>"
     CON.Execute SQL
     CON.Close
     Set CON = Nothing
     Response.Write "登録されました。<br><br>"
     Response.Write "<input type='button' value='閉じる' name='back' onClick='window.close();'>"
     Response.End
  Else
     Response.Write "エラーです。書式が間違ってます。<br><br>"
     Response.Write "<input type='button' value='閉じる' name='back' onClick='window.close();'>"
     Response.End
  End if
%>
</body>
</html>