<% 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 'リファラをチェックしフォーム以外からの直接送信をブロックする If InStr(Request.ServerVariables("HTTP_REFERER"), "://" & Request.ServerVariables("SERVER_NAME") & HomeAliasSL & "mail.asp") < 1 Then Response.Write("Access Denied") Exit Sub End If 'SPAMチェック Dim CheckStr CheckStr = Replace(Request("Shimei") & Request("Organization") & Request("Naiyo"), vbCrLf, "") '※ConvProhiStrする前の生文字列 'Response.Write("文字数：" & Len(CheckStr) & "
") 'Response.Write("バイト：" & AscLen(CheckStr) & "
") 'Exit Sub '文字数とバイト数が同じであれば英文判定で弾く If Len(CheckStr) = AscLen(CheckStr) Then Response.Write("Access Denied") Exit Sub End If %> <% Dim MailAddr MailAddr = Request("MailAddr") Dim MailAddrView MailAddrView = Request("MailAddrView") Dim Shimei Shimei = ConvProhiStr(Request("Shimei")) Dim Organization Organization = ConvProhiStr(Request("Organization")) Dim Naiyo Naiyo = ConvProhiStr(Request("Naiyo")) Dim ItemName ItemName = ConvProhiStr(Request("ItemName")) If ItemName <> "" Then Naiyo = "「" & ItemName & "」についての問合せ" & vbCrLf & vbCrLf & Naiyo End If Dim Query Dim Content Dim Content2 Dim ContentMail Dim SendMailID Dim SendAddr SendAddr = "ecmall@sfc-jpn.co.jp" '受付メールアドレス If Selshop <> "" Then Set Content = QueryGetShop(SelShop, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(Content.BOF Or Content.EOF) Then SendAddr = "" & Content.Fields("店舗メールアドレス") End If End If %>

<% Dim Body Body = "" Body = Body & "" Body = Body & vbCrLf Body = Body & vbCrLf Body = Body & "***** <メールアドレス> *****************" & vbCrLf If MailAddrView <> "" Then 'ローカルモード Body = Body & "メールアドレス：" & MailAddrView & vbCrLf Else Body = Body & "メールアドレス：" & MailAddr & vbCrLf End If Body = Body & vbCrLf Body = Body & "***** <氏名> ***************************" & vbCrLf Body = Body & Shimei & vbCrLf Body = Body & vbCrLf Body = Body & "***** <団体名> ***********************" & vbCrLf Body = Body & Organization & vbCrLf Body = Body & vbCrLf Body = Body & "***** <お問い合わせ内容> ***********************" & vbCrLf Body = Body & Naiyo & vbCrLf Body = Body & vbCrLf ' Body = Body & "***** <送信端末情報> *******************" & vbCrLf ' Body = Body & "送信元IPアドレス　" & Request.ServerVariables("REMOTE_ADDR") & vbCrLf ' Body = Body & "送信元ホスト名　" & Request.ServerVariables("REMOTE_HOST") & vbCrLf ' Body = Body & "使用クライアント　" & Request.ServerVariables("HTTP_USER_AGENT") & vbCrLf Dim MailTo MailTo = SendAddr Dim MailFrom MailFrom = Shimei & "<" & MailAddr & ">" Dim Subject 'Subject = AppTitle & "からのお問い合わせ" Subject = MallName & "へのお問い合わせ" 'メール送信 If LocalMode = "1" Then 'ローカルモードの内部メール If Selshop <> "" Then Query = "" Query = Query & " " Query = Query & " SELECT MAX(TFメールショップ.メールID) AS 最大メールID " Query = Query & " FROM TFメールショップ " Query = Query & " WHERE TFメールショップ.ショップID = " & Selshop & " " Query = Query & " AND TFメールショップ.送受信区分 = 'R' " Set ContentMail = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) If Not(ContentMail.BOF Or ContentMail.EOF) Then SendMailID = ContentMail.Fields("最大メールID") End If If "" & SendMailID = "" Then SendMailID = 0 End If SendMailID = SendMailID + 1 Query = "" Query = Query & " " Query = Query & " INSERT INTO TFメールショップ (ショップID, 送受信区分, メールID, ログインID, 日時, 題名, 本文) " Query = Query & " VALUES (" & Selshop & ", 'R', " & SendMailID & ", '" & MailAddr & "', GETDATE(), '" & Subject & "', '" & Replace(Body, vbCrLf, " ") & "') " Set ContentMail = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass) End If Else '公開モードのインターネットメール送信 If Not(BASPSendMail(MailTo, MailFrom, Subject, Body, "", "お急ぎの場合はお手元のメールソフトで " & MailTo & " までご連絡ください。")) Then Exit Sub End If End If %> お問い合わせメールが送信されました

<% End Sub %>