メニュー

1.どのような掲示板を作成するか

2.投稿フォームの作成
3.投稿内容をファイルに書き込む
4.投稿内容を表示

5.DBにテーブルを作成
6.DBに投稿内容を書き込む
7.DBの内容を表示
8.Repeaterコントロールの配置
9.Repeaterで投稿内容を表示

10.その他の処理(aspx側)
11.その他の処理(vb側)

12.足りない処理

13.削除ボタンの追加

トップ

xml

ASP.Netのお勉強
VB.Netのお勉強
Excel マクロ・VBAのお勉強
PHPのお勉強
AJAXのお勉強
Webデザインのお勉強
Javaのお勉強
連想書籍検索
世界の観光地検索
路線図
総合サイトCocoaLiz
4.投稿内容を表示@ASP.Netで掲示板を作成しよう

次に投稿内容を表示します。
ファイルを読み込んで、ラベルにファイル内容を表示します。

aspxに変更はありません。
vb側を変更します。

bbsShow()を追加します。
StreamReaderを利用して、bbs.txtファイルを読み込みラベルに表示します。

ページロードと投稿ボタンクリック処理の所に、bbsShow()を追加します。

●vb

Imports System.IO

Partial Class SampleBBS_bbs
Inherits System.Web.UI.Page

'投稿ボタンクリック処理
Protected Sub tkuBtn_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles tkuBtn.Click

Dim bbsStr As String
Dim writer As StreamWriter

'投稿内容の加工
bbsStr = "<div
style='padding:5px;border-color:#cccccc;border-width:1px;border-style:solid;width:500px;background:#F7F7F7;'>"
bbsStr += "<b>" + Me.titleTxt.Text + "</b>"
bbsStr += " " + Me.nameTxt.Text + "(" + System.DateTime.Now +
")<BR><BR>"
bbsStr += Me.commentTxt.Text.Replace(ControlChars.CrLf, "<BR>")
bbsStr += "</div><br />"

'今までの投稿内容を繋げる
bbsStr += Me.bbsLbl.Text

'StreamWriter生成
writer = New StreamWriter(Server.MapPath("./") + "\bbs.txt")

'投稿内容を書き込む
writer.Write(bbsStr)

'StreamWriterを閉じる
writer.Close()

'投稿内容再表示
Me.bbsShow()

End Sub

'ページロード時の処理
Protected Sub Page_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load

'ポストバックではない時
If Not IsPostBack Then
'投稿内容表示
Me.bbsShow()
End If
End Sub

'ファイル内容を読み込み投稿内容を表示する。
Protected Sub bbsShow()

Dim reader As StreamReader
Dim bbsStr As String

'StreamWriter生成
reader = New StreamReader(Server.MapPath("./") + "\bbs.txt")

'ファイルを全て読み込む
bbsStr = reader.ReadToEnd()

'StreamReaderを閉じる
reader.Close()

'ラベルに表示
Me.bbsLbl.Text = bbsStr

End Sub
End Class




Copyright (C) 2008 ASP.Netで掲示板を作成しよう. All Rights Reserved.