吐血寫法

by wllai2001

HTML

Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim javascript As String
        Me.RegisterHiddenField("myHiddenField", "")
        javascript = vbCrLf & "<script>"
        javascript += vbCrLf & "var ret;"
        javascript += vbCrLf & "ret=window.confirm('是否確定送出會簽?');"
        javascript += vbCrLf & "Form1.myHiddenField.value=ret;"
        javascript += vbCrLf & "Form1.submit();"
        javascript += vbCrLf & "</script>"
        Me.RegisterStartupScript("", javascript)
End Sub



Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Request.Form("myHiddenField") = "true" Then
            update_status()
        End If
End Sub