<!-- #include file="../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：運輸・倉庫・保険メニュー
' 作成日：2003/1/22
' 作成者：山崎
'################################################
'-->
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Kurikoshi
Kurikoshi = Request("Kurikoshi")
Dim IPAddress,hoshiki,GakkoCD,Appsyurui
Query = "SELECT * FROM TC1システムM"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
IPAddress1 = Content.Fields("IPアドレス")
hoshiki = Content.Fields("方式")
Appsyurui = Content.Fields("App種類")
GakkoCD = Content.Fields("学校CD")
End If
Dim KaishaImage
Query = "exec SPM会社取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
KaishaImage = "" & Content.Fields("トップ画像マスタ")
If "" & Content.Fields("トップ画像") <> "" Then
KaishaImage = "" & Content.Fields("トップ画像")
End If
End If
If KaishaImage <> "" Then
KaishaImage = "/" & HomeAlias & "/data/topimage/" & GB_EnshuCD & "/" & KaishaImage
End If
'KaishaImage = ""
%>
<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 = 1;
-->
</SCRIPT>
<%
'######################################################################################
'修正 By Hamada 2005/12/14 修正6月26日 Wolscastバグ対策及び Wood BEL仕様機能追加
'######################################################################################
If Request("WBCLB") <> "1" Then 'チェックしなければ起動しない
Else
If (Tvvariable = 1 Or Tvvariable = 2) And IPAddress1 <> "" Then '↓↓↓Tvvariable = 1 or 2 以外で全迂回（061025小野）
If Session(HomeAlias & "EnshuKubun") = "P" Then
Else
'↓↓↓WebCollabo利用フラグが立っていなければ全迂回（061117小野）
Dim WebCollaboRiyo
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
WebCollaboRiyo = Content.Fields("WebCollabo利用")
End If
If WebCollaboRiyo = "1" Or WebCollaboRiyo = "2" Then
Dim TelName,Content2,Query2,Conn,Recs,SQL1,tmpurl,IPAddress1,GroupCD,ref
ref = Request("ref")
If ref = "" Then
ref = Request.ServerVariables("HTTP_REFERER")
End If
If ref = "collabo" Then
ref = "bk/"
ElseIf ref <> "" Then
'キャッシュ抑制処理によりクエリ文字が付加されていれば除去する（091019小野）
If InStr(ref, "?") > 0 Then
ref = Right(Left(ref,InStr(ref, "?") - 1) ,3)
Else
ref = Right(ref,3)
End If
Else
ref = "99"
End If
If ref ="bk/" Then
Query2 = "SELECT * FROM TC5学生M WHERE 学生番号 ='" & GakuseiNo & "'"
Set Content2 = OpenQuery(Query2)
If Not(Content2.BOF Or Content2.EOF) Then
GroupCD = Content2.Fields("学生グループCD")
End If
IPAddress = Request.ServerVariables("REMOTE_ADDR")
TelName = GakuseiShimei & " " & KaisyaMeisyo
Query = "exec SPWebCollaboデータ更新 '" & hoshiki & "','" & Appsyurui & "', '" & GakkoCD & "', '" & EnshuCD & "', '" & GakuseiNo & "', '" & TelName & "', '" & IPAddress & "'"
'ウッドベル版廃止により利用停止
'Set Content = OpenQuery3(Query)
End If
Dim GakuseiShimei0
GakuseiShimei0 = KaisyaRyakuMeisyo & " - " & GakuseiShimei
If ref ="bk/" Then 'hoshikiによる分岐を廃止（小野）
If Tvvariable = 2 Then
'「会社略名称 - 学生氏名」をEUC-JPでURIエンコードする（Apache対策）
Dim GakuseiShimei1
Dim lngSourceSize 'GakuseiShimei の文字数
Dim strArray() '変換された文字列を格納する配列
Dim strSingle '抜き出された 1 文字を格納する変数
Dim i 'ループカウンタ
Dim intAsc '文字コード
Dim strHex '16 進数に変換した文字コード
Dim lngHexLength 'strHex の文字数
Dim lngCount 'strArray の格納位置
lngSourceSize = Len(GakuseiShimei0)
If lngSourceSize <> 0 Then
ReDim strArray(lngSourceSize * 6 - 1) 'strArray() のサイズを予約。文字数 * 6 にしておく。
For i = 1 To lngSourceSize Step 1 'GakuseiShimei の文字数分ループをまわす
strSingle = Mid(GakuseiShimei0, i, 1) 'i 文字目の 1 文字を strSource から抜き出す
intAsc = Asc(strSingle) '文字コードを取得
If intAsc = &H20 Then '文字が半角空白文字の場合
strArray(lngCount) = "+" '"+" を代わりに入れる
ElseIf (intAsc >= &H40 And intAsc <= &H5A) Or _
(intAsc >= &H61 And intAsc <= &H7A) Or _
(intAsc >= &H30 And intAsc <= &H39) Or _
intAsc = &H2A Or intAsc = &H2D Or _
intAsc = &H2E Or intAsc = &H5F Then '無変換文字だった場合
strArray(lngCount) = strSingle
Else
strArray(lngCount) = "%"
strHex = Hex(intAsc) '16 進文字コードを取得する
lngHexLength = Len(strHex)
If lngHexLength = 4 Then '2 バイト文字の場合
If True then
Dim HiByte 'as Integer
Dim LowByte 'as Integer
HiByte = CInt("&H" & Left(strHex, 2))
LowByte = CInt("&H" & Right(strHex, 2))
If LowByte >= &H9f Then
If HiByte >= &hE0 Then
HiByte = HiByte * 2 - &hE0
Else
HiByte = HiByte * 2 - &h60
End If
LowByte = LowByte + 2
Else
If HiByte >= &hE0 Then
HiByte = HiByte * 2 - &hE1
Else
HiByte = HiByte * 2 - &h61
End If
If LowByte < &H7F Then
LowByte = LowByte + &h60 +1
Else
LowByte = LowByte + &h60
End If
End If
strHex = Left(Hex(HiByte),2) & Left(Hex(LowByte),2) '16 進文字コードを取得する
'strHex = '16 進文字コードを取得する
End If
strArray(lngCount + 1) = Left(strHex, 2)
strArray(lngCount + 2) = "%"
strArray(lngCount + 3) = Right(strHex, 2)
lngCount = lngCount + 3
ElseIf lngHexLength = 2 Then '1 バイト文字の場合
strArray(lngCount + 1) = "8E"
strArray(lngCount + 2) = "%"
strArray(lngCount + 3) = strHex
lngCount = lngCount + 3
Else
strArray(lngCount + 1) = "0"
strArray(lngCount + 2) = strHex
lngCount = lngCount + 2
End If
End If
lngCount = lngCount + 1
Next
ReDim Preserve strArray(lngCount - 1)
GakuseiShimei1 = Join(strArray, "") 'EUC-JPでURIエンコードした文字列を返す
End If
GroupCD = "WebCollabo" 'イーステージ版対策：同一演習で異グループが区別されてしまうためグループをダミーに統一
tmpurl = "http://" & IPAddress1 & "/" & TvAlias & "url_check.php?" & GakkoCD & "&" & GroupCD & "&" & EnshuCD & "&" & GakuseiNo & "&" & GakuseiNo & "&"
Response.Write("<SCRIPT LANGUAGE=JavaScript>" & vbCrLf)
'Response.Write("window.open("""&tmpurl&""")" & vbCrLf)
If TvvariableES > 0 Then
Response.Write("var TmpUrl = """ & GakuseiShimei1)
Else
Response.Write("var TmpUrl = """ & GakuseiShimei0) 'IISの場合はS-JISで生データを返す
End If
Response.Write(""";" & vbCrLf)
Dim TmpWOpen
TmpWOpen = "window.open(""" & tmpurl & """+TmpUrl,"""",""toolbar=no,location=no,directories=no,status=,menubar=no,scrollbars=no,resizable=yes,width=300,height=100"");" & vbCrLf
'moveToは別ドメインに対してはブロックされるためアドレスが同一の場合にのみ作動させる
Dim TmpServerName
TmpServerName = IPAddress1
If InStr(IPAddress1, ":") > 0 Then
tmpurl = Split("" & IPAddress1, ":")
TmpServerName = tmpurl(0)
End If
If TmpServerName = Request.ServerVariables("SERVER_NAME") Then
Response.Write("CollaboWindow = " & TmpWOpen)
Response.Write("CollaboWindow.moveTo(0,0);" & vbCrLf)
Response.Write("CollaboWindow.focus();" & vbCrLf)
Else
Response.Write(TmpWOpen)
End If
Response.Write("</SCRIPT>" & vbCrLf)
Else
Dim Kidou,Kidou1
Kidou = "WebColabo起動"
Kidou1 = ""
tmpurl = "http://" & IPAddress1 & "/WebCollabo/WebCollaboExec.asp?p1=" & hoshiki & "&p2=" & Appsyurui & "&p3=" & GakkoCD & "&p4=" & EnshuCD & "&p5=" & GakuseiNo & "&p6=" & GakuseiShimei0 & "&IP=" & IPAddress1 & "&PORT=80"
Response.Write("<script language=jscript>" & vbCrLf)
Response.Write("window.open("""&tmpurl&""","""&Kidou&""","""&Kidou1&""")" & vbCrLf)
'Response.Write("window.open("""&tmpurl&""")" & vbCrLf)
Response.Write("</script>" & vbCrLf)
End If
End If
End If
End If
End If '↑↑↑Tvvariable = 1 or 2 以外で全迂回（061025小野）
End If
'######################################################################################
%>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"<% If Kurikoshi = "1" Then %> onLoad="alert('期末残高繰越処理を行い、繰越先の演習に移動しました。');"<% End If %>>
<!--<form OnKeyDown="FormKeyDown(this)" name="form1" method="POST" action="test1.asp">-->
<%
Response.Write(HtmlDesign(1))
Response.Write(HttpL1(3))
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "運輸・倉庫・保険", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL4("運輸・倉庫・保険", ""))
Dim Query, Content
Dim Bunsyo, KaifuFlg
Bunsyo = ""
Query = "exec SPD寄託入庫一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("有効フラグ") = 0 Then
Bunsyo = "寄託入庫物品が届いています"
End If
Content.MoveNext
Loop
If Bunsyo = "" Then
Query = "exec SPN受信文書一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("削除フラグ") = 0 And Content.Fields("開封フラグ") = 0 Then
If Bunsyo = "" Then
Bunsyo = "" & Content.Fields("文書名称")
ElseIf Right(Bunsyo, 2) <> "など" Then
Bunsyo = Bunsyo & " など"
End If
End If
Content.MoveNext
Loop
If Bunsyo <> "" Then
Bunsyo = Bunsyo & "が未開封です"
End If
End If
If Bunsyo = "" Then
Dim MailInfoM
Dim MailInfoF
Query = "exec SPNメール受信一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("削除フラグ") = 0 And Content.Fields("開封フラグ") = 0 Then
If MailInfoM = "" Then
MailInfoM = "メールが届いています"
End If
End If
Content.MoveNext
Loop
If Tvvariable > 0 Then
Query = "exec SPNFAX一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'R'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("削除フラグ") = 0 And Content.Fields("開封フラグ") = 0 Then
If MailInfoF = "" Then
MailInfoF = "FAXが届いています"
Exit Do
End If
End If
Content.MoveNext
Loop
End If
If MailInfoM = "" And MailInfoF <> "" Then
Bunsyo = MailInfoF
ElseIf MailInfoM <> "" And MailInfoF = "" Then
Bunsyo = MailInfoM
ElseIf MailInfoM <> "" And MailInfoF <> "" Then
Bunsyo = "メール・FAXが届いています"
End If
End If
Response.Write(HttpL5(Bunsyo))
Dim Kitakuriyou
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Kitakuriyou = "" & Content.Fields("寄託倉庫利用")
End If
If Kitakuriyou = "1" Then
Kitakuriyou = 1
Else
Kitakuriyou = 0
End If
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<% If KaishaImage = "" Then %>
<table width="912" height="360" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="630" height="480" align="left" valign="top" background="/<% = HomeAlias %>/images/mbkimg_u.jpg?<% = GB_STU %>">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><% = Spacer(1,50) %></td>
<td></td>
</tr>
<tr>
<td width="50" height="160"> </td>
<td width="320" height="160" align="center" valign="middle" background="/<% = HomeAlias %>/images/mbkimg_sd.jpg?<% = GB_STU %>">
<IFRAME name="informationiframe" SRC="informationboard.asp?<% = TimeUniq() %>" WIDTH="320" HEIGHT="160" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no>
<img src="/<% = HomeAlias %>/images/spacer.gif?<% = GB_STU %>" width="8" height="1">
</IFRAME>
</td>
</tr>
</table>
</td>
<td width="270" height="480" background="/<% = HomeAlias %>/images/mbk_mbk.gif?<% = GB_STU %>">
<table width="270" height="130" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="235" height="50">
<table width="282" height="60" border="0" cellpadding="0" cellspacing="0" background="/<% = HomeAlias %>/images/mmenu_btn.gif?<% = GB_STU %>" class="tbtn" onClick="tblbtn('menu_u2.asp')">
<tr>
<td width="65" height="50"> </td>
<td width="190" height="50" class="tx2022b">
<div><% = Spacer(1,8) %></div>
運輸・倉庫・保険業務
</td>
</tr>
</table>
</td>
</tr>
<% If Kitakuriyou > 0 Then %>
<tr>
<td width="235" height="40"> </td>
</tr>
<% End If %>
<tr>
<td width="235" height="50">
<table width="282" height="60" border="0" cellpadding="0" cellspacing="0" background="/<% = HomeAlias %>/images/mmenu_btn.gif?<% = GB_STU %>" class="tbtn" onClick="tblbtn('menu_s1.asp')">
<tr>
<td width="65" height="50"> </td>
<td width="190" height="50" class="tx2022b">
<div><% = Spacer(1,8) %></div>
経 理 業 務
</td>
</tr>
</table>
</td>
</tr>
<% If Kitakuriyou < 1 Then %>
<tr>
<td width="282" height="44">
<table width="282" height="44" border="0" cellpadding="0" cellspacing="0" background="/<% = HomeAlias %>/images/mmenu_btn2.gif?<% = GB_STU %>" class="tbtn" onClick="tblbtn('menu_s1.asp')">
<tr>
<td width="70" height="35"> </td>
<td width="170" height="35" class="tx2022b">
<div><% = Spacer(1,2) %></div>
経 理 部
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="282" height="44">
<table width="282" height="44" border="0" cellpadding="0" cellspacing="0" background="/<% = HomeAlias %>/images/mmenu_btn2.gif?<% = GB_STU %>" class="tbtn" onClick="tblbtn('menu_s3.asp')">
<tr>
<td width="70" height="35"> </td>
<td width="170" height="35" class="tx2022b">
<div><% = Spacer(1,2) %></div>
仕 入 部
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="282" height="44">
<table width="282" height="44" border="0" cellpadding="0" cellspacing="0" background="/<% = HomeAlias %>/images/mmenu_btn2.gif?<% = GB_STU %>" class="tbtn" onClick="tblbtn('menu_s2.asp')">
<tr>
<td width="70" height="35"> </td>
<td width="170" height="35" class="tx2022b">
<div><% = Spacer(1,2) %></div>
販 売 部
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="282" height="44">
<table width="282" height="44" border="0" cellpadding="0" cellspacing="0" background="/<% = HomeAlias %>/images/mmenu_btn2.gif?<% = GB_STU %>" class="tbtn" onClick="tblbtn('menu_s4.asp')">
<tr>
<td width="70" height="35"> </td>
<td width="170" height="35" class="tx2022b">
<div><% = Spacer(1,2) %></div>
社長室・総務部
</td>
</tr>
</table>
</td>
</tr>
<% Else %>
<tr>
<td width="235" height="40"> </td>
</tr>
<tr>
<td width="235" height="50">
<table width="282" height="60" border="0" cellpadding="0" cellspacing="0" background="/<% = HomeAlias %>/images/mmenu_btn.gif?<% = GB_STU %>" class="tbtn" onClick="tblbtn('menu_s4.asp')">
<tr>
<td width="65" height="50"> </td>
<td width="190" height="50" class="tx2022b">
<div><% = Spacer(1,8) %></div>
社長室・総務部
</td>
</tr>
</table>
</td>
</tr>
<% End If %>
</table>
</td>
</tr>
</table>
<% Else '背景画像設定あり（180705小野） %>
<table width="912" height="360" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="middle" align="center">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<% Session(HomeAlias & "TimeUniq") = "" 'TimeUniqセッション変数をクリアしないと初回以降更新されないのでクリア %>
<img id="ImageTop" src="<% = KaishaImage %>?<% = TimeUniq() %>" width="560" height="480">
<script language="JavaScript" type="text/JavaScript">
<!--
ResizeImage("ImageTop");
//画像の縦横比補正
function ResizeImage(ImageID) {
var newPic = new Image(); //初期化するためローカルで宣言する
newPic.src = document.getElementById(ImageID).src; //イメージプリロード
var LoopCnt = 0;
var CheckLoop = setInterval(ResizeImage2, 10); //以下の関数をループ処理する
function ResizeImage2() {
LoopCnt = LoopCnt + 1;
//プリロードが終わったら処理（10秒経過したら強制処理）
if (newPic.complete || LoopCnt > 1000) {
var NewWidth = document.getElementById(ImageID).width; //imgタグのwidthを取得
var NewHeight = document.getElementById(ImageID).height;//imgタグのheightを取得
//alert(NewWidth + " x " + NewHeight);
var Hiritsu;
//元画像のサイズとimgタグのサイズが異なっていれば内接リサイズ
if (newPic.width != NewWidth || newPic.height != NewHeight) {
if (newPic.width / newPic.height > NewWidth / NewHeight) {
Hiritsu = newPic.width / NewWidth;
} else {
Hiritsu = newPic.height / NewHeight;
}
NewWidth = newPic.width / Hiritsu;
NewHeight = newPic.height / Hiritsu;
document.getElementById(ImageID).width = NewWidth;
document.getElementById(ImageID).height = NewHeight;
}
clearInterval(CheckLoop); //setIntervalオブジェクトをクリアする
}
}
}
-->
</script>
</td>
</tr>
</table>
</td>
<td width="270" height="480">
<table width="270" height="130" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="282" height="60">
<table width="282" height="60" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="170" height="50" class="tx2022b">
<IFRAME name="informationiframe" SRC="informationboard.asp?<% = TimeUniq() %>" WIDTH="320" HEIGHT="160" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no>
<img src="/<% = HomeAlias %>/images/spacer.gif?<% = GB_STU %>" width="8" height="1">
</IFRAME>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="12">
</td>
</tr>
<tr>
<td width="310" height="60" align="center">
<table width="282" height="60" border="0" cellpadding="0" cellspacing="0" background="/<% = HomeAlias %>/images/mmenu_btn01.gif?<% = GB_STU %>" class="tbtn" onClick="tblbtn('menu_u2.asp')">
<tr>
<td width="65" height="50"> </td>
<td width="190" height="50" class="tx2022b">
<div><% = Spacer(1,8) %></div>
運輸・倉庫・保険業務
</td>
</tr>
</table>
</td>
</tr>
<% If Kitakuriyou > 0 Then %>
<tr>
<td width="235" height="40"> </td>
</tr>
<% End If %>
<tr>
<td width="310" height="60" align="center">
<table width="282" height="60" border="0" cellpadding="0" cellspacing="0" background="/<% = HomeAlias %>/images/mmenu_btn01.gif?<% = GB_STU %>" class="tbtn" onClick="tblbtn('menu_s1.asp')">
<tr>
<td width="65" height="50"> </td>
<td width="190" height="50" class="tx2022b">
<div><% = Spacer(1,8) %></div>
経 理 業 務
</td>
</tr>
</table>
</td>
</tr>
<% If Kitakuriyou < 1 Then %>
<tr>
<td width="310" height="44" align="center">
<table width="282" height="44" border="0" cellpadding="0" cellspacing="0" background="/<% = HomeAlias %>/images/mmenu_btn02.gif?<% = GB_STU %>" class="tbtn" onClick="tblbtn('menu_s1.asp')">
<tr>
<td width="70" height="35"> </td>
<td width="170" height="35" class="tx2022b">
<div><% = Spacer(1,2) %></div>
経 理 部
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="310" height="44" align="center">
<table width="282" height="44" border="0" cellpadding="0" cellspacing="0" background="/<% = HomeAlias %>/images/mmenu_btn02.gif?<% = GB_STU %>" class="tbtn" onClick="tblbtn('menu_s3.asp')">
<tr>
<td width="70" height="35"> </td>
<td width="170" height="35" class="tx2022b">
<div><% = Spacer(1,2) %></div>
仕 入 部
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="310" height="44" align="center">
<table width="282" height="44" border="0" cellpadding="0" cellspacing="0" background="/<% = HomeAlias %>/images/mmenu_btn02.gif?<% = GB_STU %>" class="tbtn" onClick="tblbtn('menu_s2.asp')">
<tr>
<td width="70" height="35"> </td>
<td width="170" height="35" class="tx2022b">
<div><% = Spacer(1,2) %></div>
販 売 部
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="310" height="44" align="center">
<table width="282" height="44" border="0" cellpadding="0" cellspacing="0" background="/<% = HomeAlias %>/images/mmenu_btn02.gif?<% = GB_STU %>" class="tbtn" onClick="tblbtn('menu_s4.asp')">
<tr>
<td width="70" height="35"> </td>
<td width="170" height="35" class="tx2022b">
<div><% = Spacer(1,2) %></div>
社長室・総務部
</td>
</tr>
</table>
</td>
</tr>
<% Else %>
<tr>
<td width="235" height="40"> </td>
</tr>
<tr>
<td width="310" height="60" align="center">
<table width="282" height="60" border="0" cellpadding="0" cellspacing="0" background="/<% = HomeAlias %>/images/mmenu_btn01.gif?<% = GB_STU %>" class="tbtn" onClick="tblbtn('menu_s4.asp')">
<tr>
<td width="65" height="50"> </td>
<td width="190" height="50" class="tx2022b">
<div><% = Spacer(1,8) %></div>
社長室・総務部
</td>
</tr>
</table>
</td>
</tr>
<% End If %>
</table>
</td>
</tr>
</table>
<% End If %>
</div>
</body>
<% = HtmlFooter %>
</html>
<%
End Sub
%>