如何遍历page中的HTML控件

谈阿大 2008-05-27 11:14:04



#Region "控件进入的ID 和Text插入数据库"

    Function InsertLbName(ByVal _pageName As String, ByVal _page As Page)

        Dim Lab As Label

        Dim Btn As Button

        Dim HtmBtn As HtmlButton

        Dim objName As String

        objName = ""

        Dim objId As String

        objId = ""

        Dim SqlStr As String

        SqlStr = ""

        Dim i As Integer

        For i = 1 To 11

            Dim sqlStrMass As String

            objId = "Massage" & (i)

            sqlStrMass = ""

            sqlStrMass = "insert into  LanVersion (LanPageName,LanlabId,LanType)"

            sqlStrMass = sqlStrMass & "Values('" & _pageName & "','" & objId & "',2)"

            ComDB.ExecNonSQL(sqlStrMass)

        Next

        For Each ObjControl As Control In _page.Controls(1).Controls '遍历Page页上的所有控件

            If ObjControl.GetType.ToString = "System.Web.UI.WebControls.Label" Then

                Lab = ObjControl '把ObjControl引用给Lab

                objName = ComMou.Rep(Lab.Text) 'lable的名字写的一个方法去掉 text值中的一个' 如20'这样会造成数据库插入异常

                objId = Lab.ID 'Lable的ID

                SqlStr = "insert into  LanVersion (LanPageName,LanlabId,LanChName)"

                SqlStr = SqlStr & "Values('" & _pageName & "','" & objId & "', '" & objName & "')"

                ComDB.ExecNonSQL(SqlStr)

            ElseIf ObjControl.GetType.ToString() = "System.Web.UI.WebControls.Button" Then

                Btn = ObjControl

                objName = ComMou.Rep(Btn.Text) '写的一个方法去掉 text值中的一个' 如20'这样会造成数据库插入异常

                objId = Btn.ID

                SqlStr = "insert into  LanVersion (LanPageName,LanlabId,LanChName)"

                SqlStr = SqlStr & "Values('" & _pageName & "','" & objId & "', '" & objName & "')"

                ComDB.ExecNonSQL(SqlStr)

            ElseIf ObjControl.GetType.ToString() = "System.Web.UI.HtmlControls.HtmlInputButton" Then

                HtmBtn = ObjControl

                objName = ComMou.Rep() 'lable的名字

                objId = HtmBtn.ID 'Lable的ID

                SqlStr = "insert into  LanVersion (LanPageName,LanlabId,LanChName)"

                SqlStr = SqlStr & "Values('" & _pageName & "','" & objId & "', '" & objName & "')"

            End If

        Next

    End Function

#End Region