Response 在*.vb里不起作用。还要加命名空间
-------------------------------------
Imports System.Web.HttpContextCurrent.Response.Redirect("sign_wc.aspx")
-------------------------------------
Imports System.Web.HttpContextCurrent.Response.Redirect("sign_wc.aspx")
==================================================================================
Public Class WebForm1
Inherits System.Web.UI.Page
Protected WithEvents RadioButton1 As System.Web.UI.WebControls.RadioButton
Protected WithEvents RadioButton2 As System.Web.UI.WebControls.RadioButton
Protected WithEvents btn As System.Web.UI.WebControls.Button
Protected WithEvents RadioButton3 As System.Web.UI.WebControls.RadioButton#Region " Web 窗体设计器生成的代码 " '该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub#End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码 End Sub Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click If RadioButton1.Checked Then
Current.Response.Redirect("sign_index.asp")
ElseIf RadioButton2.Checked Then
Current.Response.Redirect("sign_wc.aspx")
ElseIf RadioButton3.Checked Then
Current.Response.Redirect("sign_sc.aspx")
End If End SubEnd Class