1、系统登陆的退出
public Sub Page_Load(Sender As Object,e As EventArgs)
Dim scriptString As String = "<script language=JavaScript>if(confirm('您真的要退出科研管理信息系统吗?')"
scriptString+=")"
scriptString+="{window.parent.window.close()}else{javascript:history.back(-1)}</"
scriptString+="script>"
If(Not Me.IsStartupScriptRegistered("Startup")) Then
Me.RegisterStartupScript("Startup", scriptString)
End If
End Sub
2、系统的注销
public Sub Page_Load(Sender As Object,e As EventArgs)
Dim scriptString As String = "<script language=JavaScript>if(confirm('您真的要注销对科研管理信息系统的登陆吗?')"
scriptString+=")"
scriptString+="{window.parent.window.close(); window.open('login.aspx','_blank')}else{javascript:history.back(-1)}</"
scriptString+="script>"
If(Not Me.IsStartupScriptRegistered("Startup")) Then
Me.RegisterStartupScript("Startup", scriptString)
End If
End Sub
End Class
public Sub Page_Load(Sender As Object,e As EventArgs)
Dim scriptString As String = "<script language=JavaScript>if(confirm('您真的要退出科研管理信息系统吗?')"
scriptString+=")"
scriptString+="{window.parent.window.close()}else{javascript:history.back(-1)}</"
scriptString+="script>"
If(Not Me.IsStartupScriptRegistered("Startup")) Then
Me.RegisterStartupScript("Startup", scriptString)
End If
End Sub
2、系统的注销
public Sub Page_Load(Sender As Object,e As EventArgs)
Dim scriptString As String = "<script language=JavaScript>if(confirm('您真的要注销对科研管理信息系统的登陆吗?')"
scriptString+=")"
scriptString+="{window.parent.window.close(); window.open('login.aspx','_blank')}else{javascript:history.back(-1)}</"
scriptString+="script>"
If(Not Me.IsStartupScriptRegistered("Startup")) Then
Me.RegisterStartupScript("Startup", scriptString)
End If
End Sub
End Class
博客给出科研管理信息系统的登陆退出和注销代码。登陆退出时会弹出确认框,确认则关闭窗口,取消则返回上一页;注销时确认会关闭窗口并打开登录页,取消同样返回上一页,代码使用了 JavaScript 语言。
2222

被折叠的 条评论
为什么被折叠?



