#!/usr/bin/perl -w

use CGI qw(:standard);
require 'jcode.pl';
require 'mimew.pl';

$sendmail = '/usr/bin/sendmail -t ';

$mailto = 'code202@po12.oninet.ne.jp';

$Subject = '資料請求・アンケート';

$queryString = $ENV{'QUERY_STRING'};
if ($ENV{'REQUEST_METHOD'} eq "POST"){

if ($queryString ne "") { $queryString .="&";

}
for ($i = 0; $i < $ENV{'CONTENT_LENGTH'}; $i++) {

$queryString .= getc;

}
}
foreach (split(/&/, $queryString)) {

s/A+/ /g; s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("c",hex($1))/ge; ($name, $value) = split(/=/,$_, 2); $in{$name} = $value;

}
$mailmess = <<EOM;

御請求の資料: $in{'material'}
郵便番号: $in{'post1'}-${'post2'}
都道府県: $in{'pref1'}
市区郡以降: $in{'addr'}
氏名： $in{'name11'}$in{'name12'}
フリガナ: $in{'name21'}$in{'name22'}
性別: $in{'sex'}
電話番号: $in{'tel'}
PC用Eメール: $in{'mail'}
携帯メール: $in{'p_mail'}
高等学校所在地: $in{'pref2'}
学校区分: $in{'q31'}
高等学校名: $in{'school'}
学年: $in{'q32'}
予\備\校県所在地: $in{'pref3'}
予\備\校: $in{'cram1'}
校名: $in{'cram2'}
興味のある学部・学科: $in{'q4'}
知りたい情報: $in{'q5'}
本学以外に興味のある大学・学部 
1.大学: $in{'q611'}学部:$in{'q612'}学科:$in{'q613'} 
2.大学: $in{'q621'}学部:$in{'q622'}学科:$in{'q623'} 
3.大学: $in{'q631'}学部:$in{'q632'}学科:$in{'q633'} 
7進路に関する情報源: $in{'q7'}
8その他: $in{'other'}
9役立つ情報(資料等): $in{'q9'}

EOM

$Subject = &mimeencode($Subject);
&jcode'convert(*mailmess,'jis');

open SMTP,"| $sendmail";

print SMTP <<"EOL";
From: $in{'mail'}$in{'p_mail'}
To: $mailto
Subject: $Subject
Content-Type: text/plain; charset=iso-2022-jp

$mailmess
EOL

close SMTP;

print "Location:http://shigeoka.regulus.ne.jp/end1.html\n\n";

print <<MES;
Content-type: text/html
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="Microsoft FrontPage 4.0">
<META NAME="ProgId" CONTENT="FrontPage.Editor.Document">
</HEAD>
<BODY bgcolor="cdd2ce">
 
 
 
 
 
 
 
 
 
<table width="300" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>

<td bgcolor="4963bc" align="center">
 
 
資料請求を受け付けました。 
 
ありがとうございました。 
 
 
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center"><a href="http://www.cis.ac.jp/">
 
戻る</a> 
 

 
</td>
</tr>
</table>

</BODY>
</HTML>
MES
exit;

コメント(2) ｜

カテゴリ：パソコン > 総合

「11/10 フォーム作成」をウェブ検索する

2006年11月10日(金) 23:28:26 Modified by notarejini06

スマートフォン版で見る

なにかと役立つサイト

11/10 フォーム作成