让网页中的格式保持的好好的,网页固定格式的处理

我们在网页中填写在TextBox中文本文件中可以有一定的格式,但是当存入数据
库后再次显示的时候,这些格式已经当然无存,怎么才能保存住格式呢?
在这里用了一个函数(HtmlEncode)来处理,在保存时将数据处理,添加了格式
在存储的字段里。下面是效果图(有点粗糙^_^)
FormatWeb.jpg
Codebehind part
ExpandedBlockStart.gif ContractedBlock.gif Public   Class WebForm1 Class WebForm1
InBlock.gif    
Inherits System.Web.UI.Page
InBlock.gif
InBlock.gif#Region 
" Web Form Designer Generated Code "
InBlock.gif

InBlock.gif
    'This call is required by the Web Form Designer.
ExpandedSubBlockStart.gifContractedSubBlock.gif
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()
InBlock.gif
ExpandedSubBlockEnd.gif    
End Sub

InBlock.gif    
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
InBlock.gif    
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
InBlock.gif
InBlock.gif    
'NOTE: The following placeholder declaration is required by the Web Form Designer.
InBlock.gif
    'Do not delete or move it.
InBlock.gif
    Private designerPlaceholderDeclaration As System.Object
InBlock.gif
ExpandedSubBlockStart.gifContractedSubBlock.gif    
Private Sub Page_Init()Sub Page_Init(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles MyBase.Init
InBlock.gif        
'CODEGEN: This method call is required by the Web Form Designer
InBlock.gif
        'Do not modify it using the code editor.
InBlock.gif
        InitializeComponent()
ExpandedSubBlockEnd.gif    
End Sub

InBlock.gif
InBlock.gif#
End Region
InBlock.gif
InBlock.gif    
Public sss As String
ExpandedSubBlockStart.gifContractedSubBlock.gif    
Public Function HtmlEncode()Function HtmlEncode(ByVal str As StringAs String
InBlock.gif        
Dim L As Integer
InBlock.gif        
Dim result As String
InBlock.gif        
If str = "" Then
InBlock.gif            
Return ""
InBlock.gif
        End If
InBlock.gif        L 
= Len(str)
InBlock.gif        
Dim i As Integer
InBlock.gif        
For i = 1 To L
InBlock.gif            
Select Case Mid(str, i, 1)
InBlock.gif                
Case Chr(13)
InBlock.gif                    result 
= result + "<br>"
InBlock.gif
                Case Chr(34)
InBlock.gif                    result 
= result + "&quot;"
InBlock.gif
                Case Chr(32)
InBlock.gif                    
'result=result+"&nbsp;"
InBlock.gif
                    If i + 1 <= L And i - 1 > 0 Then
InBlock.gif                        
If Mid(str, i + 11= Chr(32Or Mid(str, i + 11= Chr(9Or Mid(str, i - 11= Chr(32Or Mid(str, i - 11= Chr(9Then
InBlock.gif                            result 
= result + "&nbsp;"
InBlock.gif
                        Else
InBlock.gif                            result 
= result + " "
InBlock.gif
                        End If
InBlock.gif                    
Else
InBlock.gif                        result 
= result + "&nbsp;"
InBlock.gif
                    End If
InBlock.gif                
Case Chr(9)
InBlock.gif                    result 
= result + "    "
InBlock.gif
                Case Else
InBlock.gif                    result 
= result + Mid(str, i, 1)
InBlock.gif            
End Select
InBlock.gif        
Next
InBlock.gif        
Return result
ExpandedSubBlockEnd.gif    
End Function

InBlock.gif
ExpandedSubBlockStart.gifContractedSubBlock.gif    
Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles Button1.Click
InBlock.gif        sss 
= HtmlEncode(TextBox1.Text)
InBlock.gif        
' sss = TextBox1.Text
ExpandedSubBlockEnd.gif
    End Sub

ExpandedBlockEnd.gif
End Class

HTML Part
ExpandedBlockStart.gif ContractedBlock.gif <% dot.gif @ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm1.aspx.vb" Inherits="WebApplication3.WebForm1" %>
None.gif
<! DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
None.gif
< HTML >
None.gif    
< HEAD >
None.gif        
< title > WebForm1 </ title >
None.gif        
< meta  name ="GENERATOR"  content ="Microsoft Visual Studio .NET 7.1" >
None.gif        
< meta  name ="CODE_LANGUAGE"  content ="Visual Basic .NET 7.1" >
None.gif        
< meta  name ="vs_defaultClientScript"  content ="JavaScript" >
None.gif        
< meta  name ="vs_targetSchema"  content ="http://schemas.microsoft.com/intellisense/ie5" >
None.gif    
</ HEAD >
None.gif    
< body  MS_POSITIONING ="GridLayout" >
None.gif        
< form  id ="Form1"  method ="post"  runat ="server" >
None.gif            
< FONT  face ="宋体" >
None.gif                
< asp:TextBox  id ="TextBox1"  style ="Z-INDEX: 101; LEFT: 40px; POSITION: absolute; TOP: 40px"  runat ="server"
None.gif                    Width
="360px"  Height ="144px"  TextMode ="MultiLine" ></ asp:TextBox >
None.gif                
< asp:Button  id ="Button1"  style ="Z-INDEX: 102; LEFT: 40px; POSITION: absolute; TOP: 200px"  runat ="server"
None.gif                    Width
="112px"  Text ="Display" ></ asp:Button >
None.gif                
< TABLE  id ="Table1"  style ="Z-INDEX: 103; LEFT: 40px; WIDTH: 360px; POSITION: absolute; TOP: 248px; HEIGHT: 128px"
None.gif                    cellSpacing
="1"  cellPadding ="1"  width ="360"  border ="1" >
None.gif                    
< TR >
None.gif                        
< td >< font  size ="2" > <% = sss %> < font ></ font ></ font ></ td >
None.gif                    
</ TR >
None.gif                
</ TABLE >
None.gif            
</ FONT >
None.gif        
</ form >
None.gif    
</ body >
None.gif
</ HTML >
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值