<% main() Sub main() If Not(InternetCheck()) Then Exit Sub End If If Not(VisitorCheckMail()) Then Exit Sub End If 'Response.Write(GB_ShopAdmin) 'Exit Sub %> <% Dim Query Dim Content Dim Content2 Dim ActShopID ActShopID = Request("ActShopID") If ActShopID <> "" And LCase(ActShopID) <> LCase(GB_ShopAdmin) Then Response.Write("別のウィンドウまたは別のタブページで現在と異なるIDでログインしました。
" & vbCrLf) Response.Write("同一PC上で複数のIDでログインすることはできません。
" & vbCrLf) Response.Write("
" & vbCrLf) Response.Write("戻る" & vbCrLf) Exit Sub End If Dim Mode Mode = Request("Mode") If Mode = "" Then Mode = "R" End If Dim MailID MailID = Request("MailID") Dim Label Label = "受信メール一覧" If Mode = "Add" Then Label = "メール返信" End If If Mode = "S" Then Label = "送信メール一覧" End If If Mode = "R" And MailID <> "" Then Label = "受信メール詳細" End If If Mode = "S" And MailID <> "" Then Label = "送信メール詳細" End If Dim TargetTBL TargetTBL = "ビジター" If ActShopID <> "" Then TargetTBL = "ショップ" End If Dim ViewCnt ViewCnt = 30 '1ページの表示件数 Dim Page Page = Request("Page") If Page = "" Or Not(IsNumeric(Page)) Then Page = "0" End If Page = CInt(Page) Dim Meisho If ActShopID <> "" Then Set Content = QueryGetShopAdmin(GB_ShopAdmin, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then Meisho = "" & Content.Fields("名称") End If ElseIf GB_UserID <> "" And GB_Password <> "" Then Set Content = QueryGetLogin(GB_UserID, GB_Password, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then Meisho = "" & Content.Fields("氏名") End If End If %>

[ <% = Meisho %> ] のメールボックス <% = Spacer(1, 10) %> <% If MailID <> "" Or Mode = "S" Then %> <% End If %> <% If MailID <> "" Or Mode = "R" Then %> <% End If %> <% If ActShopID <> "" Then %> <% End If %> <% = Label %> <% = Spacer(7, 1) %> <% = ActionButton3Image("RecvBtn", "../images/btn01bl.png", "../images/btn01bl_o.png", 4, "../images/btn01bc.png", "../images/btn01bc_o.png", 90, "../images/btn01br.png", "../images/btn01br_o.png", 4, 24, "受信メール一覧", "tx1214w", "center", "location.href='" & Request.ServerVariables("SCRIPT_NAME") & "?Mode=R&ActShopID=" & ActShopID & "';") %> <% = Spacer(7, 1) %> <% = ActionButton3Image("SendBtn", "../images/btn01bl.png", "../images/btn01bl_o.png", 4, "../images/btn01bc.png", "../images/btn01bc_o.png", 90, "../images/btn01br.png", "../images/btn01br_o.png", 4, 24, "送信メール一覧", "tx1214w", "center", "location.href='" & Request.ServerVariables("SCRIPT_NAME") & "?Mode=S&ActShopID=" & ActShopID & "';") %> <% = Spacer(7, 1) %> <% = Spacer(7, 1) %> <% = ActionButton3Image("MenuBtn", "../images/btn01bl.png", "../images/btn01bl_o.png", 4, "../images/btn01bc.png", "../images/btn01bc_o.png", 112, "../images/btn01br.png", "../images/btn01br_o.png", 4, 24, "管理メニューに戻る", "tx1214w", "center", "location.href='" & HomeAliasSL & "shopadminmenu.asp';") %> <% = Spacer(7, 1) %> <% = ActionButton3Image("LogoutBtn", "../images/btn01bl.png", "../images/btn01bl_o.png", 4, "../images/btn01bc.png", "../images/btn01bc_o.png", 64, "../images/btn01br.png", "../images/btn01br_o.png", 4, 24, "ログアウト", "tx1214w", "center", "location.href='" & HomeAliasSL & "?Logout=1';") %> <% = Spacer(7, 1) %> <% = ActionButton3Image("ReturnBtn", "../images/btn01bl.png", "../images/btn01bl_o.png", 4, "../images/btn01bc.png", "../images/btn01bc_o.png", 76, "../images/btn01br.png", "../images/btn01br_o.png", 4, 24, "モールに戻る", "tx1214w", "center", "location.href='" & HomeAliasSL & "';") %>

ddeeff<% Else %>bbffcc<% End If %>"> <% If Mode = "Add" Then '返信 %> <% Query = "" Query = Query & " " Query = Query & " SELECT TFメール" & TargetTBL & ".*, TMショップ.ショップID, TMショップ.ログインID AS ショップログインID, TMショップ.名称 AS ショップ名称, TMログイン.氏名 " Query = Query & " FROM TFメール" & TargetTBL & " " Query = Query & " INNER JOIN TMショップ " Query = Query & " ON TFメール" & TargetTBL & ".ショップID = TMショップ.ショップID " Query = Query & " INNER JOIN TMログイン " Query = Query & " ON TFメール" & TargetTBL & ".ログインID = TMログイン.メールアドレス " If ActShopID <> "" Then Query = Query & " WHERE TFメール" & TargetTBL & ".ショップID = " & ActShopID & " " Else Query = Query & " WHERE TFメール" & TargetTBL & ".ログインID = '" & GB_UserID & "' " End If Query = Query & " AND TFメール" & TargetTBL & ".送受信区分 = 'R' " Query = Query & " AND TMショップ.演習CD = " & GB_PracticeCD & " " '演習所属ショップで絞り込む Query = Query & " AND TFメール" & TargetTBL & ".メールID = " & MailID & " " Query = Query & " ORDER BY TFメール" & TargetTBL & ".日時 DESC " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then %> <% End If %> <% ElseIf MailID <> "" Then '詳細 %> <% '既読フラグを立てる Query = "" Query = Query & " " Query = Query & " UPDATE TFメール" & TargetTBL & " " Query = Query & " SET 既読 = '1' " Query = Query & " FROM TFメール" & TargetTBL & " " Query = Query & " INNER JOIN TMショップ " Query = Query & " ON TFメール" & TargetTBL & ".ショップID = TMショップ.ショップID " Query = Query & " INNER JOIN TMログイン " Query = Query & " ON TFメール" & TargetTBL & ".ログインID = TMログイン.メールアドレス " If ActShopID <> "" Then Query = Query & " WHERE TFメール" & TargetTBL & ".ショップID = " & ActShopID & " " Else Query = Query & " WHERE TFメール" & TargetTBL & ".ログインID = '" & GB_UserID & "' " End If Query = Query & " AND TFメール" & TargetTBL & ".送受信区分 = '" & Mode & "' " Query = Query & " AND TMショップ.演習CD = " & GB_PracticeCD & " " '演習所属ショップで絞り込む Query = Query & " AND TFメール" & TargetTBL & ".メールID = " & MailID & " " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Query = "" Query = Query & " " Query = Query & " SELECT TFメール" & TargetTBL & ".*, TMショップ.ショップID, TMショップ.ログインID AS ショップログインID, TMショップ.名称 AS ショップ名称, TMログイン.氏名 " Query = Query & " FROM TFメール" & TargetTBL & " " Query = Query & " INNER JOIN TMショップ " Query = Query & " ON TFメール" & TargetTBL & ".ショップID = TMショップ.ショップID " Query = Query & " INNER JOIN TMログイン " Query = Query & " ON TFメール" & TargetTBL & ".ログインID = TMログイン.メールアドレス " If ActShopID <> "" Then Query = Query & " WHERE TFメール" & TargetTBL & ".ショップID = " & ActShopID & " " Else Query = Query & " WHERE TFメール" & TargetTBL & ".ログインID = '" & GB_UserID & "' " End If Query = Query & " AND TFメール" & TargetTBL & ".送受信区分 = '" & Mode & "' " Query = Query & " AND TMショップ.演習CD = " & GB_PracticeCD & " " '演習所属ショップで絞り込む Query = Query & " AND TFメール" & TargetTBL & ".メールID = " & MailID & " " Query = Query & " ORDER BY TFメール" & TargetTBL & ".日時 DESC " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then %> <% If Mode <> "S" Then %> <% End If %> <% End If %> <% Else '一覧 %> <% Query = "" Query = Query & " " Query = Query & " SELECT TFメール" & TargetTBL & ".*, TMショップ.ショップID, TMショップ.ログインID AS ショップログインID, TMショップ.名称 AS ショップ名称, TMログイン.氏名 " Query = Query & " FROM TFメール" & TargetTBL & " " Query = Query & " INNER JOIN TMショップ " Query = Query & " ON TFメール" & TargetTBL & ".ショップID = TMショップ.ショップID " Query = Query & " INNER JOIN TMログイン " Query = Query & " ON TFメール" & TargetTBL & ".ログインID = TMログイン.メールアドレス " If ActShopID <> "" Then Query = Query & " WHERE TFメール" & TargetTBL & ".ショップID = " & ActShopID & " " Else Query = Query & " WHERE TFメール" & TargetTBL & ".ログインID = '" & GB_UserID & "' " End If Query = Query & " AND TFメール" & TargetTBL & ".送受信区分 = '" & Mode & "' " Query = Query & " AND TMショップ.演習CD = " & GB_PracticeCD & " " '演習所属ショップで絞り込む ' Query = Query & " AND TFメール" & TargetTBL & ".メールID = " & MailID & " " Query = Query & " ORDER BY TFメール" & TargetTBL & ".日時 DESC " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then Do While Not(Content.BOF Or Content.EOF) %> <% If Mode <> "S" Then %> <% End If %> <% Content.MoveNext Loop Else %> <% End If %> <% End If %> 題名 " style="width:480px;" class="tb1416ime" maxlength="127"> <% = ActionButton3Image("SendBtn" & Content.Fields("メールID"), "../images/btn01bl.png", "../images/btn01bl_o.png", 4, "../images/btn01bc.png", "../images/btn01bc_o.png", 37, "../images/btn01br.png", "../images/btn01br_o.png", 4, 24, "送 信", "tx1416w", "center", "SendMail();") %> <% Dim TmpHonbun TmpHonbun = "" TmpHonbun = TmpHonbun & "" TmpHonbun = TmpHonbun & "" & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf TmpHonbun = TmpHonbun & "----------------------------------------------------------------" & vbCrLf If ActShopID <> "" Then TmpHonbun = TmpHonbun & "From: """ & Content.Fields("氏名") & """ ＜" & Content.Fields("ログインID") & "@hsns.sfc-jpn.jp＞" & vbCrLf TmpHonbun = TmpHonbun & "Sent: " & Content.Fields("日時") & vbCrLf TmpHonbun = TmpHonbun & "To: """ & Content.Fields("ショップ名称") & """ ＜" & Content.Fields("ショップログインID") & "@hsns.sfc-jpn.jp＞" & vbCrLf Else TmpHonbun = TmpHonbun & "From: """ & Content.Fields("ショップ名称") & """ ＜" & Content.Fields("ショップログインID") & "@hsns.sfc-jpn.jp＞" & vbCrLf TmpHonbun = TmpHonbun & "Sent: " & Content.Fields("日時") & vbCrLf TmpHonbun = TmpHonbun & "To: """ & Content.Fields("氏名") & """ ＜" & Content.Fields("ログインID") & "@hsns.sfc-jpn.jp＞" & vbCrLf End If TmpHonbun = TmpHonbun & "Subject: " & Content.Fields("題名") & vbCrLf TmpHonbun = TmpHonbun & vbCrLf TmpHonbun = TmpHonbun & Replace(Content.Fields("本文"), "<br>", vbCrLf) & vbCrLf Response.Write(TmpHonbun) %> <% If ActShopID <> "" Then %> "> <% Else %> "> <% End If %> <% = Content.Fields("日時") %> <% If ActShopID <> "" Then %> <% = Content.Fields("氏名") & """ ＜" & Content.Fields("ログインID") %>@hsns.sfc-jpn.jp＞ <% Else %> <% = Content.Fields("ショップ名称") %> ＜<% = Content.Fields("ショップログインID") %>@hsns.sfc-jpn.jp＞ <% End If %> <% = ActionButton3Image("SendBtn" & Content.Fields("メールID"), "../images/btn01bl.png", "../images/btn01bl_o.png", 4, "../images/btn01bc.png", "../images/btn01bc_o.png", 37, "../images/btn01br.png", "../images/btn01br_o.png", 4, 24, "返 信", "tx1416w", "center", "location.href='mail.asp?Mode=Add&MailID=" & Content.Fields("メールID") & "&ActShopID=" & ActShopID & "';") %> <% = Content.Fields("題名") %> <% = Content.Fields("本文") %> <% = Content.Fields("日時") %> <% If ActShopID <> "" Then %> <% = Content.Fields("氏名") %> <% Else %> <% = Content.Fields("ショップ名称") %> <% End If %> &ActShopID=<% = ActShopID %>"><% = Content.Fields("題名") %>   <% If "" & Content.Fields("既読") = "1" Then %> <% = ActionButton3Image("SendBtn" & Content.Fields("メールID"), "../images/btn01bl.png", "../images/btn01bl_o.png", 4, "../images/btn01bc.png", "../images/btn01bc_o.png", 37, "../images/btn01br.png", "../images/btn01br_o.png", 4, 24, "返 信", "tx1416w", "center", "location.href='mail.asp?Mode=Add&MailID=" & Content.Fields("メールID") & "&ActShopID=" & ActShopID & "';") %> <% Else %> 未読 <% End If %> メールはありません

<% End Sub %>