exit.aspx.vb

来自「一个报税管理系统AJAX第二版B-S.rar」· VB 代码 · 共 24 行


Partial Class _Default
    Inherits System.Web.UI.Page
    Public pulic As New pulic1
    Protected Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button1.Click
        Dim strSQL As String = "delete from using where usrname='" & Session("using") & "'"
        Session("bz") = ""
        pulic.noquery(strSQL)   ' 屏蔽
        Response.Redirect("login.aspx")

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim str = ""
        '   Response.Write("if   (confirm( '确定打印吗？ ')==true){return   true}else{return   false} ")
        ' Response.Write(" <script   language=javascript> if(confirm( '确定修改吗 ')){点击确定后执行的操作}else{点击取消后执行的操作} </script> ")
        Dim strSQL As String = "delete from using where usrname='" & Session("using") & "'"
        Session("bz") = ""
        pulic.noquery(strSQL)   ' 屏蔽
        Response.Write("<script language=javascript>alert('操作成功！');</script>")
        Response.Redirect("login.aspx")
    End Sub
End Class