Button1_Click: Response.Redirect("webform2.aspx?flag=" & Button1.ID) Button2_Click: Response.Redirect("webform2.aspx?flag=" & Button2.ID) Page_Load: Dim str As String str = Request.QueryString("flag") Select Case str Case "Button1" Response.Write("由Button1提交并引起刷新!") Case "Button2" Response.Write("由Button2提交并引起刷新!") End Select
Response.Redirect("webform2.aspx?flag=" & Button1.ID)
Button2_Click:
Response.Redirect("webform2.aspx?flag=" & Button2.ID)
Page_Load:
Dim str As String
str = Request.QueryString("flag")
Select Case str
Case "Button1"
Response.Write("由Button1提交并引起刷新!") Case "Button2"
Response.Write("由Button2提交并引起刷新!")
End Select