<!-- #include file="../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：トップページ背景設定
' 作成日：2015/12/3
' 作成者：小野
'################################################
'-->
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim UserName, ZipCode, Adress1, Adress2 'ユーザー名、郵便番号、住所１、住所２
Dim TelNo, FaxNo, KanrishaId, Password '電話番号、ＦＡＸ、管理者ＩＤ、パスワード
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>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
ExitFlg = 2;
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)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="650" height="100%" border="0" cellspacing="5" cellpadding="5" bgcolor="#ffffff" style="border:1px solid #000000">
<tr>
<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" class="tx1416">
<tr height="44">
<td valign="top">
画像ファイル
<input name="GazoFile" type="file" value="" size="60" class="tbox4nh">
<input type="button" class="tx1416" style="cursor:pointer;" value="追 加" onClick="FileAdd();">
<br>
<span class="tx1214">※JPG・PNG・GIF形式の画像ファイルを設定できます。</span>
</TD>
</TR>
<tr>
<td valign="top">
<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:628px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="2">
<%
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"" width=""200""><img src=""" & FileFolder & "/" & objFile.Name & """ width=""200""></td><td> <input type=""button"" value=""削除"" onClick=""FileDelete('" & objFile.Name & "');""> " & HardWrap(objFile.Name) & "<td><tr>" & vbCrLf)
End If
Next
%>
</table>
</div>
</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
%>