workrepre.aspx.vb

来自「网上办公自动化之工作汇报整个模块下载。JDFLOW版权所有」· VB 代码 · 共 25 行


Partial Class GZHB_workRepRe
    Inherits System.Web.UI.Page
    Dim dd As Boolean

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Session.Remove("FileStatus")
        If (Request.QueryString("check") = "true") Then
            Label_Show.Text = "您的操作已被成功接受"
            dd = True
        Else
            Label_Show.Text = "操作失败，请重试！"
            dd = False
        End If
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button_GoBack.Click
        If dd = True Then
            Page.Response.Redirect("workRep.aspx")
        ElseIf dd = False Then
            Response.Write("<script>history.go(-2);</script>")
        End If
    End Sub
End Class