プログラミング

社内イントラネットに掲示板作成してみた。③

投稿日:

「社内イントラネットに掲示板作成してみた。②」に続きまして
掲示板作成時のコードを紹介します。

コードを見てみよう

クライアント側(利用者がみる側)とサーバー側(処理を実行する側)の2つを見ていきます。

  • クライアント側
  • サーバー側

クライアント側

<html>
 <head>
  <title>掲示板<title>
 </head>
 <body>
  <p>掲示板</p>
  <form method="POST" action="formup.asp">
    <table border="1">
     <tr>
       <th>投稿者</th>
       <th>コメント</th>
     </tr>
     <tr>
       <td><input type="text" name="user"></td>
       <td><input type="text" name="comment"></td> 
     </tr>
    </table>
       <input type="submit" value="投稿">
  </form>
<%
   Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
   Set objFile = objFSO.OpenTextFile("C:\board.txt",1,False) 
  
   If Err.Number > 0 Then
   Response.write "まだ投稿はありません"

   Else
   Do Until objFile.AtEndOfStream
   Response.write objFile.Readline
   Loop

   End If
   objFile.Close

   Set objFile = Nothing
   Set objFSO = Nothing
   %>
 </body>
</html>

サーバー側

<%
Set objFSO = Server.CreateObject("Scripting.FilesystemObject")
Set fi = objFSO.OpenTextFile("C:\board.txt,8,True")

 use = Request.Form("user")
 com = Request.Form("comment")

If Err.Number > 0
  Response.write "Open Error"
Else
  fi.Writeline use & com & "<br>"
End If

fi.close

Response.Redirect "form.asp"
%>

テキストに書き込んで、その書き込んだやつを読みに行くようなものになっています。

まとめ

設定がうまくいかず、実行画面をお見せすることができませんが、コードだけでも参考になればと思います。
それではまた。

-プログラミング

執筆者:


comment

メールアドレスが公開されることはありません。

関連記事

【VSCode】テキストの一括置換をしてみよう

コードを書いていて、「変数」を変更したいときに「文字を1つ1つ直した」ことはありますか?今回は「VSCode」の中で使える「テキストの一括置換」について紹介します。 VSCodeで一括置換してみよう …

HTMLで出来ること

今回はプログラミングを学ぶ上で最初に通る道であろうHTMLについてです。 プログラミング入門 プログラミング言語は様々ありますがWEBページを作るうえで使用されるのがHTMLというものです。このページ …

【Python】ログイン機能を作る「Flask-Login」⑦

「ログイン機能を作る」【Part7】。前回は「データベース」の設定を追加しました。今回は「ログイン処理」の部分を変更していこうと思います。 ログイン処理を変更しよう 「名前」に「ANDoblog」,「 …

【Python】Flaskってなんだ?

Pythonのライブラリの中に「Flask」というライブラリがあります。「Flask」を使うことで、簡単に「WEBアプリケーション」を作成できるようなので試していきたいと思います。今回は、「Flask …

【Python】加工した画像を保存してみよう

これまで「OpenCV」を使って、画像の読み込み、表示、リサイズなどを実践してきました。今回は、その加工した画像を保存してみたいと思います。 加工した画像を保存してみよう 今回も、前回のコードに追記す …

YouTube