
<!-- #include file="./include.asp" -->

<%
'<!-- 
'################################################
'   名称  ：ログアウト処理
'   作成日：2002/8/9
'   作成者：山崎
'   目的　：セッションを削除する
'   概要  ：
'    <<表示>>
'    ・無し
'################################################
'-->
'
'
%>
<%
main()
Sub main()

'ウッドベル版廃止により利用停止
If 0=1 Then

	'WebCollabo連動終了ロジック
	'電話帳名に連続半角空白24個を書き込む。
	'サーバーが当該電話帳名を検出したら当該レコードを削除し
	'当該クライアントにシャットダウン命令を発信する
	Dim Hoshiki,APPSyurui,GakkoCD,Content2,Query2,Content,Query
	If Tvvariable = 1 Or Tvvariable = 2 Then
		If Session(HomeAlias & "EnshuKubun") = "G" Then
			Dim WebCollaboRiyo
			Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" 
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or Content.EOF) Then
				WebCollaboRiyo = Content.Fields("WebCollabo利用")
			End If
			If WebCollaboRiyo = "1" Then
				Query2 = "SELECT * FROM TC1システムM"
				Set Content2 = OpenQuery(Query2)
				If Not(Content2.BOF Or Content2.EOF) Then
					Hoshiki = Content2.Fields("方式")
					APPSyurui = Content2.Fields("App種類")
					GakkoCD = Content2.Fields("学校CD")
				End If
				Query = "exec SPWebCollabo終了 '" & Hoshiki & "','" & APPSyurui & "', '" & GakkoCD & "', '" & EnshuCD & "', '" & GakuseiNo & "'"
				Set Content = OpenQuery3(Query)
			End If
		End If
	End If

End If


	Session(HomeAlias & "GakuseiNo") = ""			'学生番号
	Session(HomeAlias & "GakuseiShimei") = ""		'学生氏名

	'演習選択後更新
	Session(HomeAlias & "EnshuKubun") = ""			'演習区分
	Session(HomeAlias & "EnshuCD") = ""				'演習CD
	Session(HomeAlias & "EnshuMeisyo") = ""			'演習名称
	Session(HomeAlias & "Shohizei") = ""			'消費税

	'会社選択後更新
	Session(HomeAlias & "KaisyaCD") = ""			'会社CD
	Session(HomeAlias & "KaisyaMeisyo") = ""		'会社名称
	Session(HomeAlias & "Gyosyu") = ""				'業種		'S：商社  B：銀行  U：運送倉庫会社　K：管理部
	Session(HomeAlias & "GyosyuMeisyo") = ""		'業種名称	'S：商社  B：銀行  U：運送倉庫会社　K：管理部
	Session(HomeAlias & "GyosyuKubun") = ""			'業種区分	'S：銀行以外  B：銀行
	Session(HomeAlias & "JisyaFlag") = ""			'自社フラグ	'1:自社 0:自社ではない

	Session(HomeAlias & "GyosyuColor") = ""			'業種カラー 	'S：#33CC99 B：#7499E5 U：#D9BC83 K：#AD82D9  ?：#E5ACE5
	Session(HomeAlias & "GyosyuColorObj") = ""		'業種カラーOBJ	'S：g  B：b  U：o　K：p ?:r


	Session(HomeAlias & "KaikeiKaishibi") = ""		'会計開始日
	Session(HomeAlias & "KaikeiSyuryobi") = ""		'会計終了日
	Session(HomeAlias & "Kaimeibi") = ""			'会計日
	Session(DBName & "Admin") = 0			'管理者フラグクリア

	Response.Redirect("/" & HomeAlias & "/default.asp?admin=" & Session(DBName & "AdminPC"))
End Sub
%>