Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim WebForm As Object
WebForm = Me.FindControl("Form1")
WebForm.Attributes("target") = xListTarget
WebForm.Attributes("onSubmit") = "return SendThisForm();"
End Sub
Private Sub btn_Submit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Submit.Click
Server.Transfer(xSearchActionPath)
End Sub
沒有留言:
張貼留言