我们在网页中填写在TextBox中文本文件中可以有一定的格式,但是当存入数据
库后再次显示的时候,这些格式已经当然无存,怎么才能保存住格式呢?
在这里用了一个函数(HtmlEncode)来处理,在保存时将数据处理,添加了格式
在存储的字段里。下面是效果图(有点粗糙^_^)
Codebehind part
Public
Class WebForm1
Class WebForm1
Inherits System.Web.UI.Page
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
#Region " Web Form Designer Generated Code "
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
'This call is required by the Web Form Designer.
![ExpandedSubBlockStart.gif](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
End Sub
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
![ExpandedSubBlockStart.gif](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
Private Sub Page_Init()Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
#End Region
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
Public sss As String
![ExpandedSubBlockStart.gif](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
Public Function HtmlEncode()Function HtmlEncode(ByVal str As String) As String
Dim L As Integer
Dim result As String
If str = "" Then
Return ""
End If
L = Len(str)
Dim i As Integer
For i = 1 To L
Select Case Mid(str, i, 1)
Case Chr(13)
result = result + "<br>"
Case Chr(34)
result = result + """
Case Chr(32)
'result=result+" "
If i + 1 <= L And i - 1 > 0 Then
If Mid(str, i + 1, 1) = Chr(32) Or Mid(str, i + 1, 1) = Chr(9) Or Mid(str, i - 1, 1) = Chr(32) Or Mid(str, i - 1, 1) = Chr(9) Then
result = result + " "
Else
result = result + " "
End If
Else
result = result + " "
End If
Case Chr(9)
result = result + " "
Case Else
result = result + Mid(str, i, 1)
End Select
Next
Return result
End Function
![InBlock.gif](/Images/OutliningIndicators/InBlock.gif)
![ExpandedSubBlockStart.gif](/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sss = HtmlEncode(TextBox1.Text)
' sss = TextBox1.Text
End Sub
End Class
HTML Part
<%
@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm1.aspx.vb" Inherits="WebApplication3.WebForm1"
%>
<!
DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
>
<
HTML
>
<
HEAD
>
<
title
>
WebForm1
</
title
>
<
meta
name
="GENERATOR"
content
="Microsoft Visual Studio .NET 7.1"
>
<
meta
name
="CODE_LANGUAGE"
content
="Visual Basic .NET 7.1"
>
<
meta
name
="vs_defaultClientScript"
content
="JavaScript"
>
<
meta
name
="vs_targetSchema"
content
="http://schemas.microsoft.com/intellisense/ie5"
>
</
HEAD
>
<
body
MS_POSITIONING
="GridLayout"
>
<
form
id
="Form1"
method
="post"
runat
="server"
>
<
FONT
face
="宋体"
>
<
asp:TextBox
id
="TextBox1"
style
="Z-INDEX: 101; LEFT: 40px; POSITION: absolute; TOP: 40px"
runat
="server"
Width
="360px"
Height
="144px"
TextMode
="MultiLine"
></
asp:TextBox
>
<
asp:Button
id
="Button1"
style
="Z-INDEX: 102; LEFT: 40px; POSITION: absolute; TOP: 200px"
runat
="server"
Width
="112px"
Text
="Display"
></
asp:Button
>
<
TABLE
id
="Table1"
style
="Z-INDEX: 103; LEFT: 40px; WIDTH: 360px; POSITION: absolute; TOP: 248px; HEIGHT: 128px"
cellSpacing
="1"
cellPadding
="1"
width
="360"
border
="1"
>
<
TR
>
<
td
><
font
size
="2"
>
<%
=
sss
%>
<
font
></
font
></
font
></
td
>
</
TR
>
</
TABLE
>
</
FONT
>
</
form
>
</
body
>
</
HTML
>