如何在 vb 代码后面创建一个 link 的网站?
How to create a link to a website in vb code behind?
可能很简单,但是 Google 中的搜索词给出了太多不相关的结果。
Protected Sub Menu1_MenuItemClick(sender As Object, e As MenuEventArgs) Handles Menu1.MenuItemClick
If e.Item.Text = "SomeItem" Then
'The link goes here
End If
End Sub
如果要将当前页面发送到新的 url:
,请使用 Response.Redirect
Protected Sub Menu1_MenuItemClick(sender As Object, e As MenuEventArgs) Handles Menu1.MenuItemClick
If e.Item.Text = "SomeItem" Then
Response.Redirect("http://www.whosebug.com")
End If
End Sub
要在新的 window/tab 中打开新的 url,您必须使用 javascript。通常我会建议将 javascript 直接放在 aspx 页面上,但如果 url 将使用后面代码中的数据生成 url,您可以使用 ClientScript.RegisterStartupScript
函数。
Protected Sub Menu1_MenuItemClick(sender As Object, e As MenuEventArgs) Handles Menu1.MenuItemClick
If e.Item.Text = "SomeItem" Then
Dim sURL As String = "http://www.whosebug.com"
ClientScript.RegisterStartupScript(Me.GetType(), "script", "window.open('" & sURL + "', 'popup_window');", True)
End If
End Sub
可能很简单,但是 Google 中的搜索词给出了太多不相关的结果。
Protected Sub Menu1_MenuItemClick(sender As Object, e As MenuEventArgs) Handles Menu1.MenuItemClick
If e.Item.Text = "SomeItem" Then
'The link goes here
End If
End Sub
如果要将当前页面发送到新的 url:
,请使用Response.Redirect
Protected Sub Menu1_MenuItemClick(sender As Object, e As MenuEventArgs) Handles Menu1.MenuItemClick
If e.Item.Text = "SomeItem" Then
Response.Redirect("http://www.whosebug.com")
End If
End Sub
要在新的 window/tab 中打开新的 url,您必须使用 javascript。通常我会建议将 javascript 直接放在 aspx 页面上,但如果 url 将使用后面代码中的数据生成 url,您可以使用 ClientScript.RegisterStartupScript
函数。
Protected Sub Menu1_MenuItemClick(sender As Object, e As MenuEventArgs) Handles Menu1.MenuItemClick
If e.Item.Text = "SomeItem" Then
Dim sURL As String = "http://www.whosebug.com"
ClientScript.RegisterStartupScript(Me.GetType(), "script", "window.open('" & sURL + "', 'popup_window');", True)
End If
End Sub