Html 如何用vb在asp.net中添加按钮点击事件_Html_Asp.net_Vb.net

Html 如何用vb在asp.net中添加按钮点击事件

html asp.net vb.net

Html 如何用vb在asp.net中添加按钮点击事件,html,asp.net,vb.net,Html,Asp.net,Vb.net,我对onclick事件有问题。下面是一个与我的项目类似的示例 HTML <%@ Page Language="VB" AutoEventWireup="true" CodeFile="Example.aspx.vb" Inherits="Example" %> <html> <head runat="server"> <title>Untitled Page</title> </head> <body>

我对onclick事件有问题。下面是一个与我的项目类似的示例

HTML

<%@ Page Language="VB" AutoEventWireup="true" CodeFile="Example.aspx.vb" Inherits="Example" %>
<html>
<head runat="server">
    <title>Untitled Page</title>
</head>
<body>
    <form id="form1" runat="server">
        <asp:PlaceHolder ID="PlaceHolder1" runat="server"></asp:PlaceHolder>
        <br />
        <asp:Label ID="label1" runat="server" Text="Label"></asp:Label>
    </form>
</body>
</html>


无标题页

Partial Class Example
    Inherits System.Web.UI.Page
    Dim No_of_Animals As Integer = 6 ' Number of Animals
    Dim Cage(No_of_Animals) As String
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        label1.Text = " Animal released:  " & Session.Item("AnimalReleased")
        Cage(0) = "Cow"
        Cage(1) = "Bat"
        Cage(2) = "Dog"
        Cage(3) = "Cat"
        Cage(4) = "Snake"
        Cage(5) = "Pig"
        Dim html As New StringBuilder()
        html.Append("<table>")
        For Animal = 1 To No_of_Animals
            html.Append("<tr><td>Cage " & Animal & " : </td>")
            html.Append("<td> " & Cage(Animal - 1) & "</td>")
            html.Append("<td><button runat=""server"" OnServerClick=""DisplayAnimal(" & Animal - 1 & ")"">Release</button></td></tr>")
        Next
        html.Append("</table>")
        PlaceHolder1.Controls.Add(New Literal() With {.Text = html.ToString()})
    End Sub
    Public Sub DisplayAnimal(ByVal CageNo As Integer)
        Session.Item("AnimalReleased") = Cage(CageNo)
    End Sub
End Class

部分类示例
继承System.Web.UI.Page
Dim No__动物作为整数=6'动物数量
昏暗的笼子（没有动物）作为绳子
受保护的子页加载（ByVal sender作为对象，ByVal e作为System.EventArgs）处理Me.Load
label1.Text=“动物释放：”&Session.Item（“动物释放”）
笼子（0）=“奶牛”
笼子（1）=“蝙蝠”
笼（2）=“狗”
笼子（3）=“猫”
笼子（4）=“蛇”
笼（5）=“清管器”
将html设置为新的StringBuilder（）
html.Append（“”）
对于动物=1到无动物
html.Append（“Cage”和Animal&“：”）
html.Append（“&Cage（动物-1）&”）
html.Append（“Release”）
下一个
html.Append（“”）
占位符1.Controls.Add（带有{.Text=html.ToString（）}的新文本（）
端接头
Public Sub DisplayAnimal（ByVal CageNo作为整数）
会话项目（“动物释放”）=笼（笼号）
端接头
末级

在我点击一个按钮后，页面将刷新，但是

session.item（“AnimalRelease”）

从未被赋予值

我怀疑onclick没有正常工作。

根据MSDN，OnServerClick应该是小写：“OnServerClick”

我换了，先生，但我还是有同样的问题。