|
返信ありがとうございます。
まず、ログイン画面でログインボタン押下時の処理です
Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
Dim sURL As String
Dim lPos As Long
'' エラー表示はいったん非表示
Me.lblErr.Visible = False
'' 入力エラーがなければ実行
If Page.IsValid Then
'ログイン初回情報設定
Session("LOGIN_INIT") = "INIT"
'' セッションIDを取得
Session("LOGIN") = "LOGIN"
Dim sRdURL As String
sRdURL = FormsAuthentication.GetRedirectUrl(txtStaffNo.Text, False)
'Session("RETURN") = Request.QueryString("ReturnUrl")
sURL = Page.Request.Url.Query
lPos = InStr(sURL, "?ReturnUrl=")
If lPos > 0 Then
Session("RETURN") = Replace(Mid(sURL, lPos + Len("?ReturnURL=")), "%2fkeihi%2f", "")
End If
'' トップページを表示
FormsAuthentication.RedirectFromLoginPage(txtStaffNo.Text, False)
End If
End Sub
ログインボタン押下時に、G02000から処理が始まったり、G17015から始まったりするのはどのようなことが考えれるのでしょうか?
宜しくお願いします。
|