<%
'保存先設定
savePath = Server.MapPath( "./temp/" )
'添付最大サイズ設定 3Mで設定中
maxSsize = 3145728
lngTB = Request.TotalBytes
bin = Request.BinaryRead(lngTB)
Set bsp = Server.CreateObject("basp21")
Set fso = CreateObject("Scripting.FileSystemObject")
'バイナリーデータから値取得
strName = bsp.Form(bin,"name")
strAdd = bsp.Form(bin,"add")
strTel = bsp.Form(bin,"tel")
strMail = bsp.Form(bin,"mail")
strSubject = bsp.Form(bin,"subject")
strBody = bsp.Form(bin,"body")
strPhoto = bsp.FormFileName(bin,"photo")
'現在の日時を取得しyyyymmddhhmmssに変換
wkNow = Year(Now())
wkNow = wkNow & Right("0" & Month(Now()) , 2)
wkNow = wkNow & Right("0" & Day(Now()) , 2)
wkNow = wkNow & Right("0" & Hour(Now()) , 2)
wkNow = wkNow & Right("0" & Minute(Now()) , 2)
wkNow = wkNow & Right("0" & Second(Now()) , 2)
if strName = "" then
stop_send = 1
err_msg = err_msg & "氏名を入力してください。
" & Chr(13)
else
datatrack = datatrack & "氏名：" & strName & "***spliter***"
end if
datatrack = datatrack & "住所：" & strAdd & "***spliter***"
datatrack = datatrack & "電話番号：" & strTel & "***spliter***"
if strMail = "" then
stop_send = 1
err_msg = err_msg & "ご連絡先メールアドレスを入力してください。
" & Chr(13)
else
if bsp.Match("/[^@]+@[^@]+\.[^@]+/", strMail) = 0 then
stop_send = 1
err_msg = err_msg & "メールアドレスの形式が不正です。
" & Chr(13)
else
datatrack = datatrack & "メールアドレス：" & strMail & "***spliter***"
mailfrom = strMail
end if
end if
datatrack = datatrack & "件名：" & strSubject & "***spliter***"
if strBody = "" then
stop_send = 1
err_msg = err_msg & "お問い合わせ・情報提供内容を入力してください。
" & Chr(13)
else
datatrack = datatrack & "お問い合わせ・情報提供：" & vbcrlf & strBody & "***spliter***"
end if
if strPhoto <> "" then
filesize = bsp.FormFileSize(bin,"photo")
newf1 = Mid(strPhoto,InstrRev(strPhoto,"\")+1)
' response.Write("newf1=" & newf1 & "
")
extension = fso.GetExtensionName(newf1)
' response.Write("extension=" & extension)
If (extension = "jpg") Or (extension = "gif") Or (extension = "bmp") Then
else
stop_send = 1
err_msg = err_msg & "このファイル形式は添付できません。
" & Chr(13)
end if
if filesize => maxSsize then
stop_send = 1
err_msg = err_msg & "添付ファイルのサイズが大きすぎます。
" & Chr(13)
else
datatrack = datatrack & "添付ファイル：" & vbcrlf & strPhoto & "***spliter***"
end if
else
datatrack = datatrack & "添付ファイル：" & "***spliter***"
end if
'datatrack = datatrack & "008 [Remote_Host] " & Request.ServerVariables("REMOTE_HOST") & "***spliter***"
'datatrack = datatrack & "009 [Remote_ADDR] " & Request.ServerVariables("REMOTE_ADDR") & "***spliter***"
Select Case stop_send
Case 0
if strPhoto <> "" then
newf1 = Mid(strPhoto,InstrRev(strPhoto,"\")+1)
'response.Write("newf1=" & newf1)
'ファイル名かぶり防止乱数作成
HIGHT_VALUE = 999
LOW_VALUE = 100
Randomize
rand = Int((HIGHT_VALUE - LOW_VALUE + 1) * Rnd + LOW_VALUE)
fpath = savePath & "\" & wkNow & "-" & rand & "-" & newf1
leng = bsp.FormSaveAs(bin,"photo", fpath)
' select case leng
' case -1
' response.Write("-1 : 渡されたパラメータは、１バイトの配列ではありません。")
' case -2
' response.Write("-2 : フォームの中に名前がありません。")
' case -3
' response.Write("-3 : ファイルを作成できません。")
' case -4
' response.Write("-4 : ファイルの書込みが失敗しました。")
' end select
end if
response.write "
下記の入力内容でよろしければ、送信ボタンをクリックしてください。
"
trackstr = split(datatrack,"***spliter***")
for i = 0 to 6
response.write trackstr(i) & "
"
mailinfo = mailinfo & trackstr(i) & vbcrlf
next
%>
<%
Case else
response.write err_msg
%>
<%
End Select
%>