<% ' ' ' %> <% 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 = "" %> <% = HtmlHeader("") %> <% '###################################################################################### '修正 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("" & 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("" & vbCrLf) End If End If End If End If End If '↑↑↑Tvvariable = 1 or 2 以外で全迂回（061025小野） End If '###################################################################################### %> onLoad="alert('期末残高繰越処理を行い、繰越先の演習に移動しました。');"<% End If %>> <% 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 Query = "exec SPN受信文書一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) Dim Bunsyo, KaifuFlg 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 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 %>

<% If KaishaImage = "" Then %>

<% = Spacer(1,18) %>
	<img src="/<% = HomeAlias %>/images/spacer.gif?<% = GB_STU %>" width="8" height="1">

<% 'Kitakuriyou = 1 %> <% If Kitakuriyou > 0 Then %> <% End If %> <% If Kitakuriyou < 1 Then %> <% Else %> <% End If %>

<% = Spacer(1,8) %>

受付業務

<% = Spacer(1,8) %>

経理業務

<% = Spacer(1,2) %>

経　理　部

<% = Spacer(1,2) %>

仕　入　部

<% = Spacer(1,2) %>

販　売　部

<% = Spacer(1,2) %>

社長室・総務部

<% = Spacer(1,8) %>

社長室・総務部

<% Else '背景画像設定あり（180705小野） %>

<% Session(HomeAlias & "TimeUniq") = "" 'TimeUniqセッション変数をクリアしないと初回以降更新されないのでクリア %>

<% If Kitakuriyou > 0 Then %> <% End If %> <% If Kitakuriyou < 1 Then %> <% Else %> <% End If %>

<% = Spacer(1,8) %>

受付業務

<% = Spacer(1,8) %>

経理業務

<% = Spacer(1,2) %>

経　理　部

<% = Spacer(1,2) %>

仕　入　部

<% = Spacer(1,2) %>

販　売　部

<% = Spacer(1,2) %>

社長室・総務部

<% = Spacer(1,8) %>

社長室・総務部

<% End If %>

<% = HtmlFooter %> <% End Sub %>