<% main() Sub main() If Not(InternetCheck()) Then Exit Sub End If If Not(VisitorCheck()) Then Exit Sub End If 'Response.Write(GB_VisitorID) 'Exit Sub %> <% 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 TargetTBL Dim TargetTBLRecv TargetTBL = "ビジター" TargetTBLRecv = "ショップ" If ActShopID <> "" Then TargetTBL = "ショップ" TargetTBLRecv = "ビジター" End If Dim SendID SendID = Request("SendID") Dim Subject Subject = ConvProhiStr(Request("Subject")) Dim Honbun Honbun = Replace(ConvProhiStr(Request("Honbun")), vbCrLf, "
") 'Response.Write(Subject) 'Exit Sub Dim Query Dim Content Dim Content2 Dim SendMailID Dim RecvMailID '送信メール Query = "" Query = Query & " " Query = Query & " SELECT MAX(TFメール" & TargetTBL & ".メールID) AS 最大メールID " Query = Query & " FROM TFメール" & TargetTBL & " " 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 & ".送受信区分 = 'S' " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then SendMailID = Content.Fields("最大メールID") End If If "" & SendMailID = "" Then SendMailID = 0 End If SendMailID = SendMailID + 1 Query = "" Query = Query & " " If ActShopID <> "" Then Query = Query & " INSERT INTO TFメールショップ (ショップID, 送受信区分, メールID, ログインID, 日時, 題名, 本文) " Query = Query & " VALUES (" & ActShopID & ", 'S', " & SendMailID & ", '" & SendID & "', GETDATE(), '" & Subject & "', '" & Honbun & "') " Else Query = Query & " INSERT INTO TFメールビジター (ログインID, 送受信区分, メールID, ショップID, 日時, 題名, 本文) " Query = Query & " VALUES ('" & GB_UserID & "', 'S', " & SendMailID & ", " & SendID & ", GETDATE(), '" & Subject & "', '" & Honbun & "') " End If 'Response.Write(Query) 'Exit Sub Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) '受信メール Query = "" Query = Query & " " Query = Query & " SELECT MAX(TFメール" & TargetTBLRecv & ".メールID) AS 最大メールID " Query = Query & " FROM TFメール" & TargetTBLRecv & " " If ActShopID <> "" Then Query = Query & " WHERE TFメール" & TargetTBLRecv & ".ログインID = '" & SendID & "' " Else Query = Query & " WHERE TFメール" & TargetTBLRecv & ".ショップID = " & SendID & " " End If Query = Query & " AND TFメール" & TargetTBLRecv & ".送受信区分 = 'R' " Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then RecvMailID = Content.Fields("最大メールID") End If If "" & RecvMailID = "" Then RecvMailID = 0 End If RecvMailID = RecvMailID + 1 Query = "" Query = Query & " " If ActShopID <> "" Then Query = Query & " INSERT INTO TFメールビジター (ログインID, 送受信区分, メールID, ショップID, 日時, 題名, 本文) " Query = Query & " VALUES ('" & SendID & "', 'R', " & RecvMailID & ", " & ActShopID & ", GETDATE(), '" & Subject & "', '" & Honbun & "') " Else Query = Query & " INSERT INTO TFメールショップ (ショップID, 送受信区分, メールID, ログインID, 日時, 題名, 本文) " Query = Query & " VALUES ('" & SendID & "', 'R', " & RecvMailID & ", '" & GB_UserID & "', GETDATE(), '" & Subject & "', '" & Honbun & "') " End If Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) Response.Redirect("mail.asp?Mode=S&MailID=" & SendMailID & "&ActShopID=" & ActShopID & "") End Sub %>