<!-- #include file="../../include.asp" -->

<%
'<!--
'################################################
'	名称 :トップページ背景設定
'	作成日:2015/12/3
'	作成者:小野
'################################################
'-->
'
%>

<%
main()
Sub main()

	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim UserName, ZipCode, Adress1, Adress2					'ユーザー名、郵便番号、住所1、住所2
	Dim TelNo, FaxNo, KanrishaId, Password					 '電話番号、FAX、管理者ID、パスワード
	Dim KyotsuPath, KojinPath, SystemName, Version, IPAddress, GakkoCD, hoshiki	 '共通データパス、個人データパス、システム名称、バージョン
	Dim WebCollaboPort	'TV電話ポート番号
	Dim FAXRiyo
	Dim ExtArray

	Dim TopMargin
	Dim LeftMargin

	Dim Query
	Dim Content

	Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'"
	Set Content = OpenQuery(Query)

	If Not(Content.BOF Or Content.EOF) Then
		UserName = Content.Fields("ユーザー名")
		KanrishaId = Content.Fields("管理者コード")
		Password = Content.Fields("パスワード")
		KyotsuPath = Content.Fields("共通データパス")
		SystemName = Content.Fields("システム名称")
		Version = Content.Fields("バージョン")
		IPAddress = Content.Fields("IPアドレス")
		GakkoCD = Content.Fields("学校CD")
		hoshiki = Content.Fields("方式")
		FAXRiyo = "" & Content.Fields("FAX利用")
		ExtArray = Content.Fields("FAX利用可能拡張子")
		TopMargin = Content.Fields("名刺印刷余白上")
		LeftMargin = Content.Fields("名刺印刷余白左")
	End If

	'IPアドレス・ポート番号分解
	WebCollaboPort = ""
	If InStr("" & IPAddress, ":") > 0 Then
		Dim IPAddressAry
		IPAddressAry = Split(IPAddress, ":")
		If UBound(IPAddressAry) = 1 Then
			IPAddress = IPAddressAry(0)
			WebCollaboPort = IPAddressAry(1)
		End If
	End If

	'学校CD固定
	If "" & GakkoCD = "" Then
		GakkoCD = "0123"
	End If

	If "" & TopMargin = "" Then
		TopMargin = 0
	End If
	If "" & LeftMargin = "" Then
		LeftMargin = 0
	End If


	'デフォルトフォルダ検出
	Dim DefFolder
	DefFolder = Server.MapPath("/" & HomeAlias & "/data/backup")
	Dim fso
	Set fso = CreateObject("Scripting.FileSystemObject")
	If Not(fso.FolderExists(DefFolder)) Then
		DefFolder = ""
	End If



	Dim jj,tmps
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="../../include.js?<% = TimeUniq() %>"></script>
<script language="JScript" src="../../includesj.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../includesj_enc.js?<% = TimeUniq() %>"></script>
<script type="text/javascript" src="../../javascript.js?<% = TimeUniq() %>"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 2;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)"	method="POST" action="fm_topimage_bin.asp" name="form1" onSubmit="return SubmitCheck();" ENCTYPE="multipart/form-data" autocomplete="off">
<input type="hidden" name="Command" value="">
<input type="hidden" name="DeleteFile" value="">

<%
	'Response.Write(DefFolder)
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(4))

	Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp');", "システム情報", "tblbtn('/" & HomeAlias & "/admin/kihon/fm_kihon_view.asp');", "タイトル背景設定" , "", "", "", "", "", "", ""))

	Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_2("戻る", "tblbtn('/" & HomeAlias & "/admin/kihon/fm_kihon_view.asp');", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL4("タイトル背景", "設定"))
%>


<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
	<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
		<tr>
			<td align="center">
				<table width="700" height="500" border="0" cellspacing="5" cellpadding="0" bgcolor="#ffffff" style="border:1px solid #000000">
					<tr>
						<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif"><!--薄青のチェックの背景-->
							<!--青線+タイトルの3x3の外側が幅、高さ20pxのテーブル-->
							<table border="0" cellspacing="0" cellpadding="0">
								<tr>
<!--3x3上段左	--><td height="25" width="20" background="/<% = HomeAlias %>/images/dlgline_lu.gif"></td>
<!--3x3上段中央--><td height="20" align="center" background="/<% = HomeAlias %>/images/dlgline_h.gif">
										<table width="230" border="0" cellspacing="0" cellpadding="0" height="20" background="/<% = HomeAlias %>/images/window_bk.gif">
											<tr>
												<td align="center" valign="bottom" class="tx2022mn">【 タイトル背景設定 】</td>
											</tr>
										</table>
									</td>
<!--3x3上段右	--><td height="25" width="20" background="/<% = HomeAlias %>/images/dlgline_ru.gif"></td>
								</tr>
								<tr>
<!--3x3中段左	--><td width="20" background="/<% = HomeAlias %>/images/dlgline_v.gif"></td>
<!--3x3中央		--><td height="340" width="600" align="center" valign="top">

									<table width="100%" border="0" cellpadding="0" cellspacing="5">
										<tr>
											<td valign="top" class="tx1618">
												<table border="0" width="600" cellpadding="0" cellspacing="0" style="border-collapse: collapse" class="tx1618">
													<tr>
														<td height="30">
															画像ファイル
															<input name="GazoFile" type="file" value="" size="60" class="tbox4">
															<input type="button" value="追 加" onClick="FileAdd();">
														</td>
													</tr>
													<tr>
														<td height="30">
															設定されている画像ファイル
														</td>
													</tr>
													<tr>
														<td>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="100%" border="0" cellpadding="0" cellspacing="5">
<%
	Dim objFS
	Set objFS = Server.CreateObject("Scripting.FileSystemObject")
	Dim objDIR
	Dim objFile

	Dim FileFolder
	FileFolder = "/" & HomeAlias & "/data/topimage"

	If Not(objFS.FolderExists(Server.MapPath(FileFolder))) Then
		objFS.CreateFolder(Server.MapPath(FileFolder))
	End If

	Set objDIR = objFS.GetFolder(Server.MapPath(FileFolder))
	For Each objFile In objDIR.Files
		If LCase(Right(objFile.Name, 4)) = ".jpg" Or LCase(Right(objFile.Name, 4)) = ".png" Or LCase(Right(objFile.Name, 4)) = ".gif" Then
			Response.Write("<tr><td class=""tx1416"" height=""28""><nobr><input type=""button"" value=""削除"" onClick=""FileDelete('" & objFile.Name & "');"">&nbsp;" & objFile.Name & "</nobr><td><tr>" & vbCrLf)
		End If
	Next

%>
</table>
</div>
														</td>
													</tr>
												</table>
											</td>
										</tr>
									</table>
								</td>
<!--3x3中段右--><td width="20" background="/<% = HomeAlias %>/images/dlgline_v.gif"></td>
								</tr>
								<tr>
<!--3x3下段左--><td height="20" width="20" background="/<% = HomeAlias %>/images/dlgline_ld.gif"></td>
<!--3x3下段中央--><td height="20" background="/<% = HomeAlias %>/images/dlgline_h.gif"></td>
<!--3x3下段右	--><td height="20" width="20" background="/<% = HomeAlias %>/images/dlgline_rd.gif"></td>
								</tr>
							</table>
						</td>
					</tr>
				</table>

			</td>
		</tr>
	</table>
</div>

</form>
</body>
<% = HtmlFooter %>

</html>

<SCRIPT LANGUAGE="JavaScript">

	function FileAdd() {
		form1.Command.value = "";
		if (form1.GazoFile.value == "" || form1.GazoFile.value == null) {
			alert("画像ファイルを選択してください ");
			return false;
		}
		var Ext = form1.GazoFile.value.slice(-4).toLowerCase();
//alert(Ext);
		if (Ext != ".jpg" && Ext != ".png" && Ext != ".gif") {
			alert("設定できるファイルは JPG・PNG・GIF のみです ");
			return false;
		}
		form1.Command.value = "Add";
		SubmitReal(form1);
		return true;
	}

	function FileDelete(Filename) {
		form1.Command.value = "";
		if (Filename != "") {
			if (confirm(Filename + " を削除してよろしいですか? ")) {
				form1.Command.value = "Delete";
				form1.DeleteFile.value = Filename;
				SubmitReal(form1);
				return true;
			}
		}
	}

</script>

<%
End Sub
%>