<!-- #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 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("リンク") 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 %> <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"> <!-- ExitFlg = 1; HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; --> </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 name="form1" method="POST" action="portal_kaisha_bin.asp" ENCTYPE="multipart/form-data"> <input type="hidden" name="BannerHenkoFlg" value="0"> <input type="hidden" name="OldBanner" value="<% = Banner %>"> <input type="hidden" name="OldContentsValue" value="<% = ContentsValue %>"> <% Response.Write(HtmlDesign(11)) Response.Write(HttpL3_1(" 自社サイトを見る ", "tblbtn('portal_kaisha_view.asp?ViewKaisyaCD=" & KaisyaCD & "&ShijoCD=" & ShijoCD & "')", " 編集画面に戻る ", "tblbtn('portal_kaisha_edit.asp?ShijoCD=" & ShijoCD & "')", "閉じる", "ExitFlg=0;top.window.close()", "", "", "", "")) 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="1"> <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><% = Midashi %></td> </TR> <TR> <td height="30" bgcolor="#FFEE88" nowrap>バナー</td> <td><img src="<% = BannerURL %>" WIDTH="360" HEIGHT="40"></td> </TR> <TR> <td height="24" bgcolor="#FFEE88" nowrap>会社紹介</td> <td><% = Shokai %></td> </TR> <TR> <td height="24" bgcolor="#FFEE88" nowrap>表示項目設定</td> <td> <% If ShelfHyoji <> "1" Then Response.Write("<font color=""#888888"">商品棚</font>") Else Response.Write("商品棚") End If %> <% If ContentsHyoji <> "1" Then Response.Write("<font color=""#888888"">コンテンツ</font>") Else Response.Write("コンテンツ") End If %> <% If LinkHyoji <> "1" Then Response.Write("<font color=""#888888"">リンク</font>") Else Response.Write("リンク") End If %> </td> </TR> <TR> <td height="24" bgcolor="#FFEE88" nowrap>商品棚表示設定</td> <td> 在庫の無い商品を表示<% If ShelfZaiko <> "1" Then %>しない<% Else %>する<% End If %> </td> </TR> <TR> <td height="24" bgcolor="#FFEE88" nowrap>コンテンツタイトル</td> <td><% = ContentsTitle %></td> </TR> <TR> <td height="24" bgcolor="#FFEE88" nowrap>コンテンツ</td> <td><% = ContentsValue %></td> </TR> <TR> <td height="24" bgcolor="#FFEE88" nowrap>リンクタイトル</td> <td><% = LinkTitle %></td> </TR> <TR> <td height="24" bgcolor="#FFEE88" nowrap>リンク先URL</td> <td><% = LinkValue %></td> </TR> </TABLE> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </div> </form> </body> <% = HtmlFooter %> </html> <% End Sub %>