△▲ WebProg 初心者の質問 pert14▲△
某テンプレートサイトにてフラッシュのテンプレートを購入いたしました。
そこで自社用に編集を行っていたのですがフォームの送信プログラム
の所でもう？？？が一杯になってしまいました。
どうか回答のほう宜しくお願いいたします。
フラッシュの送信ボタンのプログラムとして
on (rollOver) {
gotoAndPlay("s1");
}
on (releaseOutside, rollOut) {
gotoAndPlay("s2");
}
on (release) {
var phone_descr = _parent.phone_descr;
var your_name_descr = _parent.your_name_descr;
var your_email_descr = _parent.your_email_descr;
var phone = _parent.phone;
var message = _parent.message;
var your_email = _parent.your_email;
var your_name = _parent.your_name;
getURL("contact."+_parent.server_option, "_blank", "POST");
i = 1;
while (this["field_"+i]) {
this["field_"+i] = "";
i++;
}
_parent.message = "";
_parent.your_name = "";
_parent.your_email = "";
_parent.phone = "";
_parent.fax = "";
}
そこで自社用に編集を行っていたのですがフォームの送信プログラム
の所でもう？？？が一杯になってしまいました。
どうか回答のほう宜しくお願いいたします。
フラッシュの送信ボタンのプログラムとして
on (rollOver) {
gotoAndPlay("s1");
}
on (releaseOutside, rollOut) {
gotoAndPlay("s2");
}
on (release) {
var phone_descr = _parent.phone_descr;
var your_name_descr = _parent.your_name_descr;
var your_email_descr = _parent.your_email_descr;
var phone = _parent.phone;
var message = _parent.message;
var your_email = _parent.your_email;
var your_name = _parent.your_name;
getURL("contact."+_parent.server_option, "_blank", "POST");
i = 1;
while (this["field_"+i]) {
this["field_"+i] = "";
i++;
}
_parent.message = "";
_parent.your_name = "";
_parent.your_email = "";
_parent.phone = "";
_parent.fax = "";
}
|
|
|
があり、拡張子aspとして
<%
Set reg = New RegExp
reg.Pattern = "^[A-Za-z0-9\._\-]+@([A-Za-z0-9\._\-]+\.)+[A-Za-z0-9\._\-]+$"
Set m = reg.Execute(Request.QueryString("your_email"))
if m.count > 0 then
smtpServer = "swapper.loc"
smtpPort = 25
name = Request.QueryString("your_name")
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "from " & name
myMail.From = Request.QueryString("your_email")
myMail.To = Request.QueryString("recipient")
myMail.HTMLBody = "<html><head><title>Contact letter</title></head><body><br>" & Request.QueryString("message") & "</body></html>"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing) = 2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver) = smtpServer
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpor... = smtpPort
myMail.Configuration.Fields.Update
myMail.Send
Response.Write("Your email was sent")
else
Response.Write("Invalid email")
End if
%>
<script>
resizeTo(300, 300)
//window.close()
</script>
とあります。
<%
Set reg = New RegExp
reg.Pattern = "^[A-Za-z0-9\._\-]+@([A-Za-z0-9\._\-]+\.)+[A-Za-z0-9\._\-]+$"
Set m = reg.Execute(Request.QueryString("your_email"))
if m.count > 0 then
smtpServer = "swapper.loc"
smtpPort = 25
name = Request.QueryString("your_name")
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "from " & name
myMail.From = Request.QueryString("your_email")
myMail.To = Request.QueryString("recipient")
myMail.HTMLBody = "<html><head><title>Contact letter</title></head><body><br>" & Request.QueryString("message") & "</body></html>"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing) = 2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver) = smtpServer
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpor... = smtpPort
myMail.Configuration.Fields.Update
myMail.Send
Response.Write("Your email was sent")
else
Response.Write("Invalid email")
End if
%>
<script>
resizeTo(300, 300)
//window.close()
</script>
とあります。
拡張子ＰＨＰとして
<?
$subject="from".$_GET['your_name'];
$headers= "From:".$_GET['your_email']."\n";
$headers.='Content-type: text/html; charset=iso-8859-1';
mail($_GET['[email protected]'], $subject, "
<html>
<head>
<title>Contact letter</title>
</head>
<body>
<br>
".$_GET['message']."
</body>
</html>" , $headers);
echo ("Your message was successfully sent!");
?>
<script>
resizeTo(300, 300)
//window.close()
</script>
があり、どこを変更すれば正しく当社に送信できるようになるでしょうか？
宜しくお願いいたします
<?
$subject="from".$_GET['your_name'];
$headers= "From:".$_GET['your_email']."\n";
$headers.='Content-type: text/html; charset=iso-8859-1';
mail($_GET['[email protected]'], $subject, "
<html>
<head>
<title>Contact letter</title>
</head>
<body>
<br>
".$_GET['message']."
</body>
</html>" , $headers);
echo ("Your message was successfully sent!");
?>
<script>
resizeTo(300, 300)
//window.close()
</script>
があり、どこを変更すれば正しく当社に送信できるようになるでしょうか？
宜しくお願いいたします