きょうちゃんの独り言

ASP.NET クライアントからは一画面だけ動作する場合
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

TextBox1.Text = Session("IP")

If IsPostBack = True Then
Session("IP") = Request.ServerVariables("REMOTE_ADDR")
Else

If IsNothing(Session("IP")) Then
Label1.Visible = False
Close_Button.Visible = False
Session("IP") = Request.ServerVariables("REMOTE_ADDR")
Else

Label1.Text = "複数起動できません"
Label1.Visible = True
Close_Button.Visible = True
Close_Button.Attributes("OnClick") = "window.close()"
Exit Sub


End If

End If

End Sub