<!-- #include file="./include_top.txt" -->
<%
option Explicit
%>
<% Response.Buffer = True %>
<!-- #include file="./include_dim.txt" -->
<!-- #include file="./include_static.txt" -->
<!-- #include file="./include_variable.txt" -->
<!-- #include file="./include_func.asp" -->
<!-- #include file="./include_funcsj.asp" -->
<!-- #include file="./include_layout.asp" -->
<%
'################################################
'	 名称	：共通変数の定義
'	 作成日：2002/8/9
'	 作成者：山崎
'	 目的　：共通変数を定義をする
'	 概要	：
'		<<表示>>
'		・無し
'################################################
%>
<%


	Dim GB_IEmode
	GB_IEmode = ""
																			'EdgeのIEモードは「MSIE」文字が無いので「Trident」文字で判定
	If InStr(Request.ServerVariables("HTTP_USER_AGENT"), "; MSIE ") > 1 Or InStr(Request.ServerVariables("HTTP_USER_AGENT"), "Trident") > 1 Then
		GB_IEmode = "1"
	Else
		MailCheckInterval = 1111 'IEモードでない場合は受発信文書チェック間隔をセッションが切れない20分未満間隔に延ばす
	End If


	Response.AddHeader "Content-Type", "text/html; charset=Shift_JIS"	'文字化け対策
	If GB_IEmode = "1" Then
		Response.AddHeader "X-UA-Compatible", "IE=5"
	End If

	If GB_IEmode <> "1" Then
		Tvvariable = 0 'IE以外はTV電話無効
	End If

	Dim GB_CSS
	GB_CSS = ""
	If GB_IEmode <> "1" Then
		GB_CSS = "EC" 'Edge/Chromeのスタールシートファイル名接頭辞
	End If


	Session.Timeout = 1440
	Server.ScriptTimeout = 1200


	'ホームエイリアスを取得する（090909小野）
	Dim HomeAlias		'ホームエイリアス名格納変数
	Dim HomeAliasAry	'環境変数SCRIPT_NAMEを分解格納する配列
	Dim HomeAliasCnt	'ループカウンタ
	HomeAlias = Request.ServerVariables("SCRIPT_NAME")
	HomeAliasAry = Split(HomeAlias, "/")
	For HomeAliasCnt = 0 To UBound(HomeAliasAry)
		'SCRIPT_NAMEの先頭にスラッシュが複数入ってるとブランク配列が生じるので文字列を探す
		If "" & HomeAliasAry(HomeAliasCnt) <> "" Then
			HomeAlias = HomeAliasAry(HomeAliasCnt)
			Exit For
		End If
	Next
	Dim HomeAliasSL		'ホームエイリアス名格納変数（前後スラッシュ付き）
	HomeAliasSL = "/" & HomeAlias & "/"


	Dim SQLConn
	Dim ct21Conn
	Dim TvConn							'テレビ会議用
	SQLConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & DBUser & ";Password=" & DBPass & ";Initial Catalog=" & DBName & ";Data Source=" & SQLServer
	'非利用
	ct21Conn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=ct21user;Password=ct21;Initial Catalog=" & ct21dbName & ";Data Source=" & ct21Server
	'非利用
	TvConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & DBUser & ";Password=" & DBPass & ";Initial Catalog=" & collabodbName & ";Data Source=" & SQLServer

	Dim db, Content


	Dim GB_AppTitle
	Dim GB_SystemCD
	Dim GB_GakuseiNo, GB_GakuseiShimei
	Dim GB_EnshuKubun, GB_EnshuCD, GB_EnshuMeisyo, GB_TenkiKubun
	Dim GB_SeitoNo, GB_KaisyaCD, GB_KaisyaMeisyo, GB_KaisyaRyakuMeisyo, GB_Gyosyu, GB_GyosyuMeisyo
	Dim GB_GyosyuKubun, GB_JisyaFlag, GB_ShijyoCD
	Dim GB_KaikeiKaishibi, GB_KaikeiSyuryobi, GB_Kaimeibi, GB_Shohizei, GB_ShowPrintHeader
	Dim GB_GyosyuColor, GB_GyosyuColorObj
	Dim GB_ShohizeiMode
	Dim GB_EnshuID
	Dim GB_EnshuPassword
	Dim GB_Admin
	Dim GB_AdminPC
	Dim GB_AdminPCE
	Dim HttpH0

	Dim GakuseiNo, GakuseiShimei
	Dim EnshuCD, EnshuMeisyo
	Dim KaisyaCD, KaisyaMeisyo, KaisyaRyakuMeisyo, Gyosyu, GyosyuMeisyo, GyosyuKubun

	Dim FBackupTemp, FSend, FGoods, FPortal, FTopimage
	FBackupTemp = HomeAliasSL & "data/backuptemp"
	FSend = HomeAliasSL & "data/send"
	Fgoods = HomeAliasSL & "data/goods"
	FPortal = HomeAliasSL & "data/portal"
	FTopimage = HomeAliasSL & "data/topimage"

	HttpH0 = ""


	'初期値
	GB_AppTitle = AppTitle

	'教師機モード(?admin=1など)
	GB_AdminPC = Session(DBName & "AdminPC")

	'ログイン後更新
	GB_SystemCD = Session(HomeAlias & "SystemCD")			'システムコード
	GB_GakuseiNo = Session(HomeAlias & "GakuseiNo")			'学生番号
	GB_GakuseiShimei = Session(HomeAlias & "GakuseiShimei")	'学生氏名
	GB_EnshuID = Session(HomeAlias & "EnshuID")				'演習管理者ID
	GB_EnshuPassword = Session(HomeAlias & "EnshuPassword")	'演習管理者パスワード
	GB_Admin = Session(DBName & "Admin")					'管理者区分
	GB_AdminPCE = Session(HomeAlias & "AdminPCE") '演習管理者の対象演習CD

	'演習選択後更新
	GB_EnshuKubun = Session(HomeAlias & "EnshuKubun")				'演習区分
	GB_EnshuCD = Session(HomeAlias & "EnshuCD")					'演習CD
	GB_EnshuMeisyo = Session(HomeAlias & "EnshuMeisyo")				'演習名称
	GB_Shohizei = Session(HomeAlias & "Shohizei")				'消費税
	If "" & GB_Shohizei = "" Then GB_Shohizei = 0 End If
	GB_ShohizeiMode = Session(HomeAlias & "ShohizeiMode")	'税率固定or変動モード
	GB_ShowPrintHeader = Session(HomeAlias & "ShowPrintHeader")			'印刷ヘッダー表示

	'会社選択後更新
	GB_KaisyaCD = Session(HomeAlias & "KaisyaCD")				'会社CD
	GB_KaisyaMeisyo = Session(HomeAlias & "KaisyaMeisyo")			'会社名称
	GB_KaisyaRyakuMeisyo = Session(HomeAlias & "KaisyaRyakuMeisyo")		'会社略名称
	GB_Gyosyu = Session(HomeAlias & "Gyosyu")					'業種		'S：商社	B：銀行	U：運送倉庫会社　K：管理部
	GB_GyosyuMeisyo = Session(HomeAlias & "GyosyuMeisyo")			'業種名称	'S：商社	B：銀行	U：運送倉庫会社　K：管理部
	GB_GyosyuKubun = Session(HomeAlias & "GyosyuKubun")				'業種区分	'S：銀行以外	B：銀行
	GB_JisyaFlag = Session(HomeAlias & "JisyaFlag")				'自社フラグ	'1:自社 0:自社ではない
	GB_ShijyoCD = Session(HomeAlias & "ShijyoCD")				'市場CD

	GB_GyosyuColor = Session(HomeAlias & "GyosyuColor")				'業種カラー	'S：#33CC99 B：#7499E5 U：#D9BC83 K：#AD82D9	?：#E5ACE5
	GB_GyosyuColorObj = Session(HomeAlias & "GyosyuColorObj")			'業種カラーOBJ	'S：g	B：b	U：o　K：p ?:r

	GB_KaikeiKaishibi = Session(HomeAlias & "KaikeiKaishibi")			'会計開始日
	GB_KaikeiSyuryobi = Session(HomeAlias & "KaikeiSyuryobi")			'会計終了日
	GB_Kaimeibi = Session(HomeAlias & "Kaimeibi")				'会計日

	GakuseiNo = GB_GakuseiNo
	If Request("GakuseiNo") <> "" Then GakuseiNo = Request("GakuseiNo") End If
	GakuseiShimei = GB_GakuseiShimei
	If Request("GakuseiShimei") <> "" Then GakuseiShimei = Request("GakuseiShimei") End If

	EnshuCD = GB_EnshuCD
	If Request("EnshuCD") <> "" Then EnshuCD = Request("EnshuCD") End If
	EnshuMeisyo = GB_EnshuMeisyo
	If Request("EnshuMeisyo") <> "" Then EnshuMeisyo = Request("EnshuMeisyo") End If
	GyosyuKubun = GB_GyosyuKubun
	If Request("GyosyuKubun") <> "" Then GyosyuKubun = Request("GyosyuKubun") End If

	KaisyaCD = GB_KaisyaCD
	If Request("KaisyaCD") <> "" Then KaisyaCD = Request("KaisyaCD") End If
	KaisyaMeisyo = GB_KaisyaMeisyo
	If Request("KaisyaMeisyo") <> "" Then KaisyaMeisyo = Request("KaisyaMeisyo") End If
	KaisyaRyakuMeisyo = GB_KaisyaRyakuMeisyo
	If Request("KaisyaRyakuMeisyo") <> "" Then KaisyaRyakuMeisyo = Request("KaisyaRyakuMeisyo") End If
	Gyosyu = GB_Gyosyu
	If Request("Gyosyu") <> "" Then Gyosyu = Request("Gyosyu") End If
	GyosyuMeisyo = GB_GyosyuMeisyo
	If Request("GyosyuMeisyo") <> "" Then GyosyuMeisyo = Request("GyosyuMeisyo") End If
	GyosyuKubun = GB_GyosyuKubun
	If Request("GyosyuKubun") <> "" Then GyosyuKubun = Request("GyosyuKubun") End If


	'名称表記マスタ関連 ※変数名及びセッション変数名は "MHM" & TDA表記名称M.表記CD で固定（ログイン時にDBから取得した値を固定変数名で取得するため）
	Dim MHMSTDSELLPRICE
	MHMSTDSELLPRICE = "" & Session(HomeAlias & "MHMSTDSELLPRICE")	'標準販売単価
	Dim MHMNONYUKIJITSU
	MHMNONYUKIJITSU = "" & Session(HomeAlias & "MHMNONYUKIJITSU")	'納入期日
	Dim MHMKANJOSAIMOKC
	MHMKANJOSAIMOKC = "" & Session(HomeAlias & "MHMKANJOSAIMOKC")	'資本（勘定細目）
	Dim MHMINRANLEFT
	MHMINRANLEFT = "" & Session(HomeAlias & "MHMINRANLEFT")		'左印欄（デフォルトは空白）
	Dim MHMINRANCENTER
	MHMINRANCENTER = "" & Session(HomeAlias & "MHMINRANCENTER")	'中央印欄（デフォルトは空白）
	Dim MHMINRANRIGHT
	MHMINRANRIGHT = "" & Session(HomeAlias & "MHMINRANRIGHT")	'係　印


	Dim FtpServer, FtpUser, FtpPass
	FtpServer = "www2.sfc-jpn.jp"
	FtpUser = "sfc"
	FtpPass ="sfc"


	Dim HtmlFooter
	HtmlFooter = ""
	HtmlFooter = HtmlFooter & "<SCRIPT LANGUAGE=""JavaScript"">" & vbCrLf
	HtmlFooter = HtmlFooter & "" & vbCrLf
	HtmlFooter = HtmlFooter & "function GetKaikeiKaishibi(){return '" & GB_KaikeiKaishibi & "';}" & vbCrLf
	HtmlFooter = HtmlFooter & "" & vbCrLf
	HtmlFooter = HtmlFooter & "function GetKaikeiSyuryobi(){return '" & GB_KaikeiSyuryobi & "';}" & vbCrLf
	HtmlFooter = HtmlFooter & "" & vbCrLf
	HtmlFooter = HtmlFooter & "</SCRIPT>" & vbCrLf
	' FOR=""window"" EVENT=""onload"" LANGUAGE=""JavaScript""
	HtmlFooter = HtmlFooter & "<SCRIPT LANGUAGE=""JavaScript"">" & vbCrLf
'	HtmlFooter = HtmlFooter & "	alert('HtmlFooter');" & vbCrLf
	HtmlFooter = HtmlFooter & "	Init();" & vbCrLf
	HtmlFooter = HtmlFooter & "</SCRIPT>" & vbCrLf


	Dim PageBreakBefore	'IE8対応改ページタグ
	PageBreakBefore = "<div style=""page-break-before:always;""><img src=""" & HomeAliasSL & "images/spacer.gif"" width=""0"" height=""0""></div>" & vbCrLf


	Dim ScriptXver 'ScriptXバージョントグル用変数
	ScriptXver = Request.Cookies("sj4webScriptX")
	'電商くんからサイバー会計連携時のみ最初に値が入っておらず
	'下のPrintScriptX代入処理のScriptXObject()関数で型違いになってしまうので強制
	If "" & ScriptXver = "" Or Not(IsNumeric(ScriptXver)) Then
		ScriptXver = 8
	End If


	'セッションによるパッケージモード強制切替
	If Session(DBName & "PackageMode") = 1 Then
		PackageMode = 1
		MajorVersion = 5
	ElseIf Session(DBName & "PackageMode") = 0 Then
		PackageMode = 0
		If Session(DBName & "MajorVersion") = 7 Then
			MajorVersion = 7
		ElseIf Session(DBName & "MajorVersion") = 6 Then
			MajorVersion = 6
		ElseIf Session(DBName & "MajorVersion") = 5 Then
			MajorVersion = 5
		ElseIf Session(DBName & "MajorVersion") = 4 Then
			MajorVersion = 4
		End If
	End If

	'パッケージモードによるフラグ強制切替
	If MajorVersion >= 5 Then
		Genkavariable = 1
	Else
		Genkavariable = 0
	End If

	'パッケージモードによるタイトル強制切替
	'（既存環境に合わせるためinclude_static.txt内でタイトルが定義されている場合は切り替えない）
	If AppTitle = "" Then
		AppTitleToggle()	'Function
	End If


	'簡易メモ表示フラグリセット
	Session(HomeAlias & "AdminMessageHyoji") = ""


	'ブラウザキャッシュ抑制用セッション変数
	'※画像サイズ変更時にキャッシュ処理により古い画像が表示されるケースがあるため
	'※毎回変動するダミー引数を付加することで別ファイルとして扱われるようIEを騙す。
	'※毎回全てダウンロードするとデータ量が増えて重くなる懸念があるので
	'※初回のみダミー値を作成し1回目のみ新規ダウンロードがかるようにする。
	'※（TimeUniq関数自体もセッション管理により初回のみに限定しているが
	'※　そちらで仕様変更が生じることがあるかもしれないので別にしておく）
	If "" & Session("TimeUniq") = "" then
		Session("TimeUniq") = TimeUniq()
	End If
'	Session("TimeUniq") = TimeUniq() '毎回取得はこっち
	Dim GB_STU
	GB_STU = Session("TimeUniq")

	'印刷関連トグル処理
	Dim PrintOnLoad
	Dim PrintScriptX
	If PrintOpenWindow = 0 Then
		'「別ウィンドウで印刷ページを表示」がOFFなら「手動印刷」も強制OFF
		PrintManually = 0
	End If
	If PrintManually > 0 Then
		'手動の場合
		PrintOnLoad = ""
		PrintScriptX = ""
	ElseIf GB_IEmode = "1" And PrintMarginControl > 0 Then
		'余白調節有り(IEモードのみ)
		PrintOnLoad = "this.focus();doPrint(window);"
		PrintScriptX = ScriptXObject()
	Else
		'余白調節無し
		PrintOnLoad = "this.focus();window.print();"
		PrintScriptX = ""
	End If


	Dim GB_CSVOutput 'CSV出力汎用（サブルーチンで出力するためグローバル）
	GB_CSVOutput = ""


Function AppTitleToggle()
'	If 0=1 Then
	If "" & Session(DBName & "PackageMode") = "" Then
		'サイバートレード連携のための強制処理（default_bin.asp直接の場合はセッション変数が存在しない）
		'クエリ文字列セッションによるパッケージモード強制切替
		'（データベース名が接頭辞になっている）
		If Request("mode") = "CT21toCA21" Then
			Session(DBName & "CT21toCA21") = "1"
			Session(DBName & "PackageModeQuery") = "CyberAccount21"
			Session(DBName & "PackageMode") = 1
			PackageMode = 1
		Else
			Response.Redirect("./?" & Request.ServerVariables("QUERY_STRING")) 'セッション切れ時はトップに戻る
		End If
	End If
	If Session(DBName & "PackageMode") = 1 Then
		AppTitle = "サイバー会計21Web（" & SetupNendo & "版）"
		GB_AppTitle = AppTitle
	ElseIf Session(DBName & "PackageMode") = 0 Then
		If Session(DBName & "MajorVersion") = 4 Then
			AppTitle = "スーパー実践くん4WebCollabo（" & SetupNendo & "版）"
			GB_AppTitle = AppTitle
		ElseIf Session(DBName & "MajorVersion") = 5 Then
			AppTitle = "スーパー実践くん5（" & SetupNendo & "版）"
			GB_AppTitle = AppTitle
		ElseIf Session(DBName & "MajorVersion") = 6 Then
			AppTitle = "スーパー実践くん6（" & SetupNendo & "版）"
			GB_AppTitle = AppTitle
		Else
			AppTitle = "スーパー実践くん（" & SetupNendo & "版）"
		End If
	Else
		AppTitle = "スーパー実践くん（" & SetupNendo & "版）"
	End If
End Function

%>