プログラミング

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

投稿日:

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

コードを見てみよう

クライアント側(利用者がみる側)とサーバー側(処理を実行する側)の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

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

関連記事

VBAでお仕事効率化

みなさんはExcelを仕事で使用していますか?Excelの中には「VBA」というものが搭載されています。この「VBA」が使えればいつものルーティンワークも自動化することができます。今回は「VBA」の使 …

【Python】Jupyterで「.py」を実行するには?

「Jupyter Notebook」で「.py」を開くとテキストファイルとして読み込まれます。では「.py」を実行するにはどうしたらいいのでしょうか。実際に自分が使っている方法を紹介します。 Jupy …

【Python】SQLAlchemyを使ってみよう

前回「SQLAlchemy」について紹介したので、今回は実際に使ってみたいと思います。 SQLAlchmyを使ってみよう では「SQLAlchemy」を使っていきましょう。「SQLAlchemy」につ …

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

「ログイン機能を作る」も【Part6】となりました。前回は「ログインできる機能」を追加しました。今回は「データベース」の設定を追加していこうと思います。 データベースを使っていこう 前回は、決められた …

【Python】CSVからグラフを作成してみよう

前回は、「CSVファイル」を「pandas」で読み込んで、表示しました。今回は、読み込んだ「CSVファイル」でグラフを作成したいと思います。 CSVファイルからグラフを作成しよう 「pandas」で読 …

YouTube