<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If '会社セッション初期化（演習状況記帳チェック後の対処） KaisyaCD = "" GB_KaisyaCD = "" KaisyaMeisyo = "" GB_KaisyaMeisyo = "" KaisyaRyakuMeisyo = "" GB_KaisyaRyakuMeisyo = "" Session(HomeAlias & "KaisyaCD") = "" Session(HomeAlias & "Gyosyu") = "" Session(HomeAlias & "GyosyuMeisyo") = "" Session(HomeAlias & "KaisyaMeisyo") = "" Session(HomeAlias & "KaisyaRyakuMeisyo") = "" Session(HomeAlias & "JisyaFlag") = "" Session(HomeAlias & "ShijyoCD") = "" Dim HyojiFlg HyojiFlg = Request("HyojiFlg") Dim EnshuName Dim Query Dim Content Dim TmpEnshuKubun TmpEnshuKubun = ConvEnshuKubun(EnshuCD) Dim SortMode SortMode = Request("SortMode") If SortMode = "" Then SortMode = "2" End If Dim Keyword Keyword = Request("Keyword") Dim Page Page = Request("Page") If Page <> "" Then Page = ConvMoneyToInt(Page) Else Page = 0 End If Dim PageRow PageRow = 100 %> <% = HtmlHeader("") %>

<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "送信メール一覧", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) 'Response.Write(HttpL3_1("再表示", "tblbtn('fm_mail_ichiran.asp?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "')", "印刷", "PrintoutRealInline('" & Replace(Request.ServerVariables("URL"), ".asp", "_print.asp") & "?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "');", "", "", "", "", "", "")) Response.Write(HttpL3_1("再表示", "tblbtn('fm_mail_ichiran.asp?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&Keyword=" & Keyword & "')", "", "", "", "", "", "", "", "")) 'Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) If TmpEnshuKubun = "P" Then If HyojiFlg = "1" Then Response.Write(HttpL3_2("マスター会社を非表示", "tblbtn('fm_mail_ichiran.asp?EnshuCD=" & EnshuCD & "&SortMode=" & SortMode & "&Keyword=" & Keyword & "')", "書類一覧", "tblbtn('fm_tyohyo.asp')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("マスター会社を表示", "tblbtn('fm_mail_ichiran.asp?EnshuCD=" & EnshuCD & "&SortMode=" & SortMode & "&Keyword=" & Keyword & "&HyojiFlg=1')", "書類一覧", "tblbtn('fm_tyohyo.asp')", "", "", "", "", "", "")) End If Else Response.Write(HttpL3_2("書類一覧", "tblbtn('fm_tyohyo.asp')", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL4("送信メール一覧", "")) Response.Write(HttpL5("")) %>

対象演習名

<% If GB_Admin = 2 Then %> <% = EnshuMeisyo %> <% Else %> <% End If %>

ソート基準

検索キーワード

<% If TmpEnshuKubun = "P" Then %> <% Else %> <% End If %>

学生氏名

会社コード

会社名称

件名

本文

<% If Page > 0 Then %> <% End If %> <% Dim ii, jj, wcol ii = 0 Query = "exec SPM演習状況メール送信一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & SortMode & "', '" & Keyword & "'" 'Response.Write(Query) 'Exit Sub Set Content = OpenQuery(Query) 'ページ送り For jj = 1 To PageRow * Page If Not(Content.BOF Or Content.EOF) Then Content.MoveNext End If Next For ii = 1 To PageRow If Not(Content.BOF Or Content.EOF) Then ' Do While Not(Content.BOF Or Content.EOF) '同時同業マスター会社を除く If HyojiFlg = "1" And TmpEnshuKubun = "P" And ConvKaisyaGakuseiNo(EnshuCD, Content.Fields("会社CD")) = "" Then '同時同業生徒会社のうち自社設定会社以外を除く ElseIf HyojiFlg <> "1" And TmpEnshuKubun = "P" And "" & ConvKaisyaJisyaFlg(EnshuCD, Content.Fields("会社CD")) <> "1" Then Else Dim KaisyaGakusei 'KaisyaGakusei = "" & ConvGakuseiShimei(ConvKaisyaGakuseiNo(EnshuCD, Content.Fields("会社CD"))) KaisyaGakusei = "" & Content.Fields("氏名") '同時同業では削除されたユーザーの会社は表示しない If TmpEnshuKubun = "P" And KaisyaGakusei = "" Then Else Response.Write("" & vbCrLf) If TmpEnshuKubun = "P" Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") End If End If Content.MoveNext ' Loop End If Next If Not(Content.BOF Or Content.EOF) Then %> <% End If %>

前のページを表示
" & KaisyaGakusei & "	" & Content.Fields("会社CD") & "	" & Content.Fields("会社名称") & "	" & HardWrap(Content.Fields("件名")) & "	" & HardWrap(Replace(Content.Fields("内容"), " ", "")) & "
次のページを表示

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