ASP.NET VB 页面控件与数据绑定-优快云博客

本文介绍ASP.NET中使用VB进行页面控件管理的方法，包括隐藏控件的应用、页面加载判断、数据绑定时的HTML编码处理等。通过具体实例展示了如何避免HTML特殊字符引起的问题，并提供了一个绑定数据到GridView的示例。

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

1 前台的隐藏控件用于存一些需要用到的变量

<asp:HiddenField ID="getbrd" runat="server" Value="0" />

VB当中是用<input visible>来存储的

2 Is Not IsPostBack 判断页面是否是第一次进入

3 VB。net 中

If cus IsNot Nothing Then

If cus Is Nothing Then

4 Tirm是去掉字符串两边的多于的空格中间的不会

5 除了textbox以外的控件，

当输入的文本中有htm标签，例如<br>和分号时提交的时候会倒掉（一般为登录页面需要存入数据的页面）在页面前台加入

<%@ Page Language="vb" AutoEventWireup="false" MasterPageFile="MasterPageForMap.Master"
Codebehind="OtherInfo.aspx.vb" Inherits="CustomerEntitySln.OtherInfo_aspx" Title="その他設置" ValidateRequest="false" %>

这样处理后存入数据不会出错，不然会不识别<br>的字符串。

而在girdview绑定数据的时候会解析成htm标签导致显示错误例如<br>会解析成换行，所以在绑定数据的时候应该作处理

Imports System.Data.SqlClient
Imports System.Xml
Imports System.Configuration
Imports System.Data
Imports System
Imports System.Web
Imports System.Collections.Generic

Public Class HtmlEncodeOpation
    Inherits System.Web.UI.Page
    ' <summary>
    ' function    : HtmlEncodeFunciton
    ' date/version : 2008/08/18/v0.1
    ' changer    :
    ' note     : HtmlEncodeFunciton
    ' </summary>
    Public Function HtmlEncodeFunciton(ByVal ob As Object)
        Dim Properties() As Reflection.PropertyInfo = ob.GetType.GetProperties
        For Each pi As Reflection.PropertyInfo In Properties
            pi.SetValue(ob, Convert.ChangeType(StringOpation(pi.GetValue(ob, Nothing).ToString()), pi.PropertyType), Nothing)
        Next
        Return ob
    End Function
    ' <summary>
    ' function    : StringOpation
    ' date/version : 2008/08/18/v0.1
    ' changer    :
    ' note     : StringOpation
    ' </summary>
    Public Function StringOpation(ByVal strtemp As String) As String
        If strtemp.Length <> 0 Then
            strtemp = strtemp.Replace("'", "''")
            Return strtemp
        Else
            Return strtemp
        End If
    End Function
End Class
第一个函数处理实体，第二个函数处理字符串这样处理后的文本就会正确形式显示

绑定函数

    Protected Sub CoSearchList_DataRowBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs)
        If (e.Row.RowType = DataControlRowType.Header) Then
            For Each cell As TableCell In e.Row.Cells
                cell.Attributes.Add("style", "FONT-WEIGHT:normal")
            Next
        End If
        If (e.Row.RowType = DataControlRowType.DataRow) Then
            If (e.Row.DataItem Is Nothing) Then
                Return
            End If
            '実体を初期化
            Dim CoList As Model.CustomerCoSearchList = CType(e.Row.DataItem, Model.CustomerCoSearchList)
            '一覧の要素を初期化
            Dim lnkbtnName As LinkButton = CType(e.Row.FindControl("lnkbtnName"), LinkButton)
            Dim lblAddress As Label = CType(e.Row.FindControl("lblAddress"), Label)
            Dim lblcode As Label = CType(e.Row.FindControl("lblcode"), Label)
            Dim lblTel As Label = CType(e.Row.FindControl("lblTel"), Label)
            Dim lblclass1 As Label = CType(e.Row.FindControl("lblclass1"), Label)
            Dim lblclass2 As Label = CType(e.Row.FindControl("lblclass2"), Label)
            Dim lblclass3 As Label = CType(e.Row.FindControl("lblclass3"), Label)
            Dim lblEdit As LinkButton = CType(e.Row.FindControl("lblEdit"), LinkButton)

            lnkbtnName.Text = Server.HtmlEncode(CoList.Name)
            lnkbtnName.PostBackUrl = "./CustomerCoView.aspx?Id=" + CoList.Id
            lblAddress.Text = Server.HtmlEncode(CoList.Address)
            lblcode.Text = CoList.Code
            lblTel.Text = Server.HtmlEncode(CoList.TelNum)
            lblclass1.Text = Server.HtmlEncode(CoList.ClassName1)
            lblclass2.Text = Server.HtmlEncode(CoList.ClassName2)
            lblclass3.Text = Server.HtmlEncode(CoList.ClassName3)

            lblEdit.PostBackUrl = "./CustomerCoEdit.aspx?Id=" + CoList.Id
        End If
    End Sub