读写模版的操作-优快云博客

本文展示了一段使用VB.NET编写的ASP.NET示例代码，该代码实现了从文本文件中读取HTML模板，并通过数据库查询填充动态内容。具体操作包括初始化字符串容器、读取HTML模板文件、连接数据库并执行SQL查询获取消息记录，最后将数据库中的记录值替换到HTML模板中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'在此处放置初始化页的用户代码 Dim HtmlTemp As System.Text.StringBuilder = New System.Text.StringBuilder Dim HtmlText As System.Text.StringBuilder = New System.Text.StringBuilder '两个容器初始化 Dim StrReader As System.IO.StreamReader = New System.IO.StreamReader(Server.MapPath("temp") & "/tempmsgv.htm", System.Text.Encoding.GetEncoding("gb2312")) '读取文本文件初始化 Dim Line As String Do Line = StrReader.ReadLine() HtmlTemp.Append(Line) 'LitRecord.Text += Line Loop Until Line Is Nothing '将文件内容读取到容器HtmlTemp里 StrReader.Close() Dim DatabasePath As String DatabasePath = Server.MapPath("database") Dim conn As OleDbConnection = New OleDbConnection(ConfigurationSettings.AppSettings("connDatabaseStringStart") & DatabasePath & "/database.mdb" & ConfigurationSettings.AppSettings("connDatabaseStringEnd")) conn.Open() Dim sql As String = "SELECT * FROM MessageInfo where MessViewed=true Order By MessDate DESC" Dim cmd As New OleDbCommand(sql, conn) Dim DataAdapter As OleDbDataAdapter = New OleDbDataAdapter(cmd) Dim dr As OleDbDataReader = cmd.ExecuteReader '连接数据库部分 Try While dr.Read HtmlText.Remove(0, HtmlText.Length) '将容器内容清空 HtmlText.Append(HtmlTemp) '将模板容器内容添至目标容器 HtmlText.Replace("$Title$", dr.GetString(0)) HtmlText.Replace("$Content$", dr.GetString(1)) HtmlText.Replace("$Name$", dr.GetString(2)) HtmlText.Replace("$DateTime$", dr.GetDateTime(5)) '目标容器进行内容替换 If dr.IsDBNull(3) Then HtmlText.Replace("$Restore$", "尚无回复") Else HtmlText.Replace("$Restore$", dr.GetString(3)) End If LitRecord.Text += HtmlText.ToString '向页面HTML容器LitRecord 添加内容 End While Catch ex As Exception Response.Write(ex) End Try conn.Close() 'Response.Write("文字输出结束")