在 ASP.NET 上使用 NavigateURL 添加动态链接 (VB)

发布于 2024-09-05 23:06:52 字数 675 浏览 7 评论 0原文

我的页面中有此代码，我希望每个 NavigateUrl 显示另一个页面，例如： simple.aspx?id=1, simple.aspx?id=2, ...

其中 id = c

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
 Dim c As Integer = 0
  While c < 5
   Dim Label1 As New Label()
   Dim ltr As New Literal()     
   Dim link As New HyperLink()
   link.NavigateUrl = "simple.aspx"
   link.BackColor = Drawing.Color.Aqua            
   Label1.Text = c.ToString()
   ltr.Text = "<br/>"
   PlaceHolder1.Controls.Add(Label1)
   PlaceHolder1.Controls.Add(link)
   PlaceHolder1.Controls.Add(ltr)
   c += 1
   End While
   End Sub

谢谢。

原文

I Have this code in my page, and I want that every NavigateUrl display another page like :
simple.aspx?id=1, simple.aspx?id=2, ...

Where id = c

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
 Dim c As Integer = 0
  While c < 5
   Dim Label1 As New Label()
   Dim ltr As New Literal()     
   Dim link As New HyperLink()
   link.NavigateUrl = "simple.aspx"
   link.BackColor = Drawing.Color.Aqua            
   Label1.Text = c.ToString()
   ltr.Text = "<br/>"
   PlaceHolder1.Controls.Add(Label1)
   PlaceHolder1.Controls.Add(link)
   PlaceHolder1.Controls.Add(ltr)
   c += 1
   End While
   End Sub

Thanks.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

猛虎独行 2024-09-12 23:06:52

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
 Dim c As Integer = 0
  While c < 5
   Dim Label1 As New Label()
   Dim ltr As New Literal()     
   Dim link As New HyperLink()
   link.NavigateUrl = "simple.aspx?id=" & c.tostring
   link.BackColor = Drawing.Color.Aqua            
   Label1.Text = c.ToString()
   ltr.Text = "<br/>"
   PlaceHolder1.Controls.Add(Label1)
   PlaceHolder1.Controls.Add(link)
   PlaceHolder1.Controls.Add(ltr)
   c += 1
   End While
   End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
 Dim c As Integer = 0
  While c < 5
   Dim Label1 As New Label()
   Dim ltr As New Literal()     
   Dim link As New HyperLink()
   link.NavigateUrl = "simple.aspx?id=" & c.tostring
   link.BackColor = Drawing.Color.Aqua            
   Label1.Text = c.ToString()
   ltr.Text = "<br/>"
   PlaceHolder1.Controls.Add(Label1)
   PlaceHolder1.Controls.Add(link)
   PlaceHolder1.Controls.Add(ltr)
   c += 1
   End While
   End Sub

回复收藏 0 原文

~没有更多了~