<!-- #include file="../../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：ポータルサイト（会社サイト編集）
' 作成日 ：2008/08/25
' 作成者 ：小野
' 目的 ：会社サイト編集画面の表示
' 概要 ：
' 修正変更：
'################################################
'-->
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Query
Dim Content
Dim ShijoCD
ShijoCD = Request("ShijoCD")
Dim Shinki
Shinki = 1
Dim Midashi
Dim Banner
Dim Shokai
Dim ShelfHyoji
Dim ShelfZaiko
Dim ContentsHyoji
Dim ContentsTitle
Dim ContentsValue
Dim LinkHyoji
Dim LinkTitle
Dim LinkValue
Query = "exec SPPポータル会社取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & GB_GakuseiNo & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Midashi = "" & Content.Fields("見出し文")
Banner = "" & Content.Fields("バナー")
Shokai = "" & Content.Fields("紹介文")
ShelfHyoji = "" & Content.Fields("商品棚表示")
ShelfZaiko = "" & Content.Fields("商品棚在庫無し表示")
ContentsHyoji = "" & Content.Fields("コンテンツ表示")
ContentsTitle = "" & Content.Fields("コンテンツタイトル")
ContentsValue = "" & Content.Fields("コンテンツ")
LinkHyoji = "" & Content.Fields("リンク表示")
LinkTitle = "" & Content.Fields("リンクタイトル")
LinkValue = "" & Content.Fields("リンク")
Shinki = 0
Else
Midashi = "" & ConvKaisyaMeisyo(KaisyaCD)
End If
Dim BannerURL
If Banner <> "" Then
BannerURL = FPortal & "/" & GB_EnshuCD & "/" & KaisyaCD & "/" & Banner
Else
BannerURL = "/" & HomeAlias & "/images/default_banner.gif"
End If
If ShelfZaiko <> "0" Then
ShelfZaiko = "1"
End If
Shokai = Replace(Shokai, "<BR>", vbCrLf)
%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
ExitFlg = 2;
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
-->
</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 name="form1" method="POST" action="portal_kaisha_bin.asp" ENCTYPE="multipart/form-data" autocomplete="off">
<input type="hidden" name="BannerHenkoFlg" value="0">
<input type="hidden" name="OldBanner" value="<% = Banner %>">
<input type="hidden" name="OldContentsValue" value="<% = ContentsValue %>">
<input type="hidden" name="ShijoCD" value="<% = ShijoCD %>">
<%
Response.Write(HtmlDesign(11))
If Shinki = 0 Then
Response.Write(HttpL3_1("保存", "SubmitCheck()", " 商品棚の編集 ", "tblbtn('portal_shelf_edit.asp?ShijoCD=" & ShijoCD & "')", " 会社一覧に戻る ", "tblbtn('portal_kaisha_ichiran.asp?ShijoCD=" & ShijoCD & "')", "閉じる", "ExitFlg=0;top.window.close()", "", ""))
Else
Response.Write(HttpL3_1("保存", "SubmitCheck()", " 会社一覧に戻る ", "tblbtn('portal_kaisha_ichiran.asp?ShijoCD=" & ShijoCD & "')", "閉じる", "ExitFlg=0;top.window.close()", "", "", "", ""))
End If
Response.Write(HttpL4("自社サイト編集", ""))
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" WIDTH="100%" HEIGHT="100%">
<TR>
<TD ALIGN="CENTER">
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="15" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="1" HEIGHT="100%">
<TR>
<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif">
<TABLE WIDTH="615" BORDER="1" CELLSPACING="0" CELLPADDING="3" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<TR>
<td WIDTH="110" height="24" bgcolor="#FFEE88" nowrap>見出し</td>
<td>
<input type="text" name="Midashi" value="<% = Midashi %>" style="height:20;" size="80" onKeyDown="FormKeyDown(this);" onBlur="FormStrLeftIME(this, 60, true);" class="tbox4_ime">
</td>
</TR>
<TR>
<td height="30" bgcolor="#FFEE88">バナー画像<BR>（360×40）</td>
<td>
<div id="bannerGazo"><img src="<% = BannerURL %>" WIDTH="360" HEIGHT="40"></div>
<input type="file" name="Banner" value="" size="58" UNSELECTABLE="On" onChange="GazoHenko(1);" class="tbox4nh">
<input type="button" style="width:66;" value="元に戻す" onClick="GazoHenko(0);">
</td>
</TR>
<TR>
<td height="24" bgcolor="#FFEE88" nowrap>会社紹介</td>
<td>
<textarea name="Shokai" rows="3" wrap="soft" cols="79" onBlur="FormStrLeftIME(this, 216, true);" class="tarea4_ime"><% = Shokai %></textarea>
</td>
</TR>
<TR>
<td height="24" bgcolor="#FFEE88" nowrap>表示項目設定</td>
<td>
<input type="checkbox" name="ShelfHyoji" value="1" <% If ShelfHyoji= "1" Then Response.Write(" checked") End If %>>商品棚
<input type="checkbox" name="ContentsHyoji" value="1" <% If ContentsHyoji= "1" Then Response.Write(" checked") End If %>>コンテンツ
<input type="checkbox" name="LinkHyoji" value="1" <% If LinkHyoji= "1" Then Response.Write(" checked") End If %>>リンク<br>
</td>
</TR>
<TR>
<td height="24" bgcolor="#FFEE88" nowrap>商品棚表示設定</td>
<td>
在庫の無い商品を <INPUT type='radio' name='ShelfZaiko' value= "1" <% If ShelfZaiko = "1" Then Response.Write(" checked") End If %>>表示する
<INPUT type='radio' name='ShelfZaiko' value= "0" <% If ShelfZaiko = "0" Then Response.Write(" checked") End If %>>表示しない
</td>
</TR>
<TR>
<td height="24" bgcolor="#FFEE88" nowrap>コンテンツタイトル</td>
<td>
<input type="text" name="ContentsTitle" value="<% = ContentsTitle %>" style="height:20;" size="80" onKeyDown="FormKeyDown(this);" onBlur="FormStrLeftIME(this, 60, true);" class="tbox4_ime">
</td>
</TR>
<TR>
<td height="30" bgcolor="#FFEE88" nowrap>コンテンツ</td>
<td>
現在のコンテンツ：<B><% = ContentsValue %></B>
<input type="file" name="ContentsValue" value="" size="58" UNSELECTABLE="On" class="tbox4nh">
<input type="button" style="width:66;" value="元に戻す" onClick="ContentsClear();">
</td>
</TR>
<TR>
<td height="24" bgcolor="#FFEE88" nowrap>リンクタイトル</td>
<td>
<input type="text" name="LinkTitle" value="<% = LinkTitle %>" style="height:20;" size="80" onKeyDown="FormKeyDown(this);" onBlur="FormStrLeftIME(this, 60, true);" class="tbox4_ime">
</td>
</TR>
<TR>
<td height="24" bgcolor="#FFEE88" nowrap>リンク先URL</td>
<td>
<input type="text" name="LinkValue" value="<% = LinkValue %>" style="height:20;" size="80" onKeyDown="FormKeyDown(this);" onBlur="FormStrLeftIME(this, 60, true);" maxlength="120" class="tbox4" style="ime-mode:inactive;">
</td>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</div>
</form>
</body>
<script language="JavaScript" type="text/JavaScript">
<!--
function SubmitCheck() {
if (form1.Midashi.value == "") {
alert("見出しを入力してください ");
form1.Midashi.focus();
return false;
}
SubmitReal(form1);
return true;
}
function GazoHenko(mode) {
if (mode == 1) {
//IE以外ではローカル画像を表示できない
if (navigator.userAgent.indexOf("; MSIE ") < 0 && navigator.userAgent.indexOf("Trident") < 0) {
} else {
bannerGazo.innerHTML = '<img src="' + form1.Banner.value + '" WIDTH="360" HEIGHT="40">';
}
form1.BannerHenkoFlg.value = '1';
} else {
var el = document.form1.elements["Banner"];
el.parentNode.replaceChild(el.cloneNode(false), el);
bannerGazo.innerHTML = '<img src="<% = BannerURL %>" WIDTH="360" HEIGHT="40">';
form1.BannerHenkoFlg.value = '0';
}
}
function ContentsClear() {
var el = document.form1.elements["ContentsValue"];
el.parentNode.replaceChild(el.cloneNode(false), el);
}
-->
</script>
<% = HtmlFooter %>
</html>
<%
End Sub
%>