php的一些简单例程-日期选择器邮件发送.doc

日期选择器?php /*/ /*函数：DateSelectorv1.1 */ /*编码：PHP3*/ /*作者：LeonAtkinson*/ /*创建三个表单字段，以用来先择 月份/日期/年份 */ /*输入：日期默认值以及输入的日期 */ /*输出：被HTML所定义的三个日期字段 */ /*/ functionDateSelector($inName,$useDate=0) /*创建一个月份名的数组*/ $monthName=array(1= January, February, March, April, May, June, July, August, September, October, November, December); /*如果数据非法或是没有被提供，就使用当前时间*/ if($useDate=0) $useDate=Time(); /*创建月份选择器*/ echo n; for($currentMonth=1;$currentMonth=12;$currentMonth+) echo .$monthName$currentMonth. n; echo ; /*创建日期选择器*/ echo n; for($currentDay=1;$currentDay=31;$currentDay+) echo $currentDayn; echo ; /*创建处份选择器*/ echo n; $startYear=date( Y,$useDate); for($currentYear=$startYear-5;$currentYear=$startYear+5;$currentYear+) echo $currentYearn; echo ; ? ChooseaDate: 邮件发送程序setTo(myE); $mail-send(); 更改日志: 时间 姓名备注- 10/21/1999R.Chambers创建 */ /* 试用报告: 没有出错报告可以发送带HTML标识的文本可以发送有附件的并HTML标识的文本 */ /* 函数列表: setTo($inAddress) setCC($inAddress) setBCC($inAddress) setFrom($inAddress) setSubject($inSubject) setText($inText) setHTML($inHTML) setAttachments($inAttachments) checkEmail($inAddress) loadTemplate($inFileLocation,$inHash,$inFormat) getRandomBoundary($offset) getContentType() formatTextHeader() formatHTMLHeader() formatAttachmentHeader($inFileLocation) send() */ classEmail /-全局变量var$mailTo= ; /邮件目的地址数组var$mailCC= ; /抄送人地址 var$mailBCC= ; /暗送人地址var$mailFrom= ; /发送人地址var$mailSubject= ; /邮件主题var$mailText= ; /纯文本信息var$mailHTML= ; /html文本信息var$mailAttachments= ; /附件数组 /* 函数：setTo($inAddress) 描述：设置电子邮件地址参数：$inAddress是string 类型按逗号把各个邮件地址分离出来返回值：如果成功则返回true */ functionsetTo($inAddress) /-把逗号做分隔符分离邮件地址 $addressArray=explode( ,$inAddress); /-检查每一个邮件地址，如果没有错误就退出。for($i=0;$icheckEmail($addressArray$i)=false)returnfalse; /-如果所有的邮件地址都正确，那么调用implode把邮件地址恢复 $this-mailTo=implode($addressArray, ,); returntrue; /* 函数：setCC($inAddress) 描述：设置邮件的抄送地址参数：$inAddress是String型 按逗号把各个邮件地址分离出来返回值：如果成功则返回true */ functionsetCC($inAddress) $addressArray=explode( ,$inAddress); for($i=0;$icheckEmail($addressArray$i)=false)returnfalse; $this-mailCC=implode($addressArray, ,); returntrue; /* 函数：setBCC($inAddress) 描述：设置暗送邮件地址参数：$inAddress是String型 按逗号把各个邮件地址分离出来返回值：如果成功则返回true */ functionsetBCC($inAddress) $addressArray=explode( ,$inAddress); for($i=0;$icheckEmail($addressArray$i)=false)returnfalse; $this-mailBCC=implode($addressArray, ,); returntrue; /* 函数：setFrom($inAddress) 描述：设置邮件发送人地址参数：$inAddress是 string型 (只有一个邮件地址) 返回值：如果成功则返回true*/ functionsetFrom($inAddress) if($this-checkEmail($inAddress) $this-mailFrom=$inAddress; returntrue; returnfalse; /* 函数：setSubject($inSubject) 描述：设置邮件主题参数：$inSubject是string 类型返回值：如果成功则返回true*/ functionsetSubject($inSubject) if(strlen(trim($inSubject)0) $this-mailSubject=ereg_replace( n, ,$inSubject); returntrue; returnfalse; /* 函数：setText($inText) 描述：设置邮件纯文本内容参数：$inText是string 类型 返回值：如果成功则返回true*/ functionsetText($inText) if(strlen(trim($inText)0) $this-mailText=$inText; returntrue; returnfalse; /* 函数：setHTML($inHTML) 描述：设置邮件HTML文本内容参数：$inHTML是string 类型 返回值：如果成功则返回true*/ functionsetHTML($inHTML) if(strlen(trim($inHTML)0) $this-mailHTML=$inHTML; returntrue; returnfalse; /* 函数：setAttachments($inAttachments) 描述：存贮附件字符串 参数：$inAttachments是一个包含了目录信息的String类型以逗号为分隔符返回值：如果成功则返回true*/ functionsetAttachments($inAttachments) if(strlen(trim($inAttachments)0) $this-mailAttachments=$inAttachments; returntrue; returnfalse; /* 函数：checkEmail($inAddress) 描述：检查邮件地址是法合法参数：$inAddress是string 类型返回值：如果合法则返回true*/ functioncheckEmail($inAddress) return(ereg( +(a-zA-Z0-9-+.)+(a-zA-Z0-9-2|net|com|gov|mil|org|edu|int)$,$inAddress); /* 函数：loadTemplate($inFileLocation,$inHash,$inFormat) 描述：读取一个模板文件并替换一些宏定义的值参数：$inFileLocation是string类型，记录目录信息$inHash是Hash类型，是要被替代的值 $inFormat是string类型，可以是text或html 返回值：如果被load则返回true*/ functionloadTemplate($inFileLocation,$inHash,$inFormat) /* 模板文件应该有像下面那样的样子：Dear!UserName, Youraddressis!UserAddress */ /-指定模板的一些符号$templateDelim= ; $templateNameStart= !; /-设置外部字串 $templateLineOut= ; /-打开模板文件if($templateFile=fopen($inFileLocation, r) /-循环分析文件，一行一行的分析while(!feof($templateFile) $templateLine=fgets($templateFile,1000); /-分开文件的每一行，并把其存于数组中，并且规范其语句$templateLineArray=explode($templateDelim,$templateLine); for($i=0;$isetText($templateLineOut); elseif(strtoupper($inFormat)= HTML)return($this-setHTML($templateLineOut); returnfalse; /* 函数：getRandomBoundary($offset) 描述：返回一个边界随机值参数：$offset是integer类型返回：字符串*/ functiongetRandomBoundary($offset=0) srand(time()+$offset); return( -.(md5(rand(); /* 函数：getContentType($inFileName) 描述：为文件种类返回一个内容的种类参数：$inFileName是一个string类型，记录文件名(可以含路径) 返回：字串*/ functiongetContentType($inFileName) /-剥去路径$inFileName=basename($inFileName); /-检查文件扩展名 if(strrchr($inFileName, .)=false) return application/octet-stream; /-得到文件扩展名，并判断文件类型$extension=strrchr($inFileName, .); switch($extension) case .gif:return image/gif; case .gz:return application/x-gzip; case .htm:return text/html; case .html:return text/html; case .jpg:return image/jpeg; case .tar:return application/x-tar; case .txt:return text/plain; case .zip:return application/zip; default:return application/octet-stream; return application/octet-stream; /* 函数：formatTextHeader 描述：为文本返回一个格式化过的头信息参数：没有返回：字串*/ functionformatTextHeader() $outTextHeader= ; $outTextHeader.= Content-Type:text/plain;charset=us-asciin; $outTextHeader.= Content-Transfer-Encoding:7bitnn; $outTextHeader.=$this-mailText. n; return$outTextHeader; /* 函数：formatHTMLHeader 描述：返回一个HTML的头信息参数：没有返回：字串*/ functionformatHTMLHeader() $outHTMLHeader= ; $outHTMLHeader.= Content-Type:text/html;charset=us-asciin; $outHTMLHeader.= Content-Transfer-Encoding:7bitnn; $outHTMLHeader.=$this-mailHTML. n; return$outHTMLHeader; /* 函数：formatAttachmentHeader($inFileLocation) 描述：返回一个附件的头信息参数：$inFileLocation是相关目录的String型变量返回：字串*/ functionformatAttachmentHeader($inFileLocation) $outAttachmentHeader= ; /-通过文件夹的扩展名得到content-type$contentType=$this-getContentType($inFileLocation); /-如果是TEXT的类型，那么就用标准的7bit编码if(ereg( text,$contentType) /-格式化信息头$outAttachmentHeader.= Content-Type:.$contentType. ;n; $outAttachmentHeader.= name=.basename($inFileLocation). . n; $outAttachmentHeader.= Content-Transfer-Encoding:7bitn; $outAttachmentHeader.= Content-Disposition:attachment;n; /-other:inline $outAttachmentHeader.= filename=.basename($inFileLocation). . nn; $textFile=fopen($inFileLocation, r); /-一行一行地检查文件while(!feof($textFile) $outAttachmentHeader.=fgets($textFile,1000); /-关闭文件fclose($textFile); $outAttachmentHeader.= n; /-非TEXT类型用 64-bit编码else /-格式头信息 $outAttachmentHeader.= Content-Type:.$contentType. ;n; $outAttachmentHeader.= name=.basename($inFileLocation). . n; $outAttachmentHeader.= Content-Transfer-Encoding:base64n; $outAttachmentHeader.= Content-Disposition:attachment;n; /-other:inline $outAttachmentHeader.= filename=.basename($inFileLocation). . nn; /-调用uuencode命令 exec( uuencode-m$inFileLocationnothing_out,$returnArray); /-加入每一行的返回值for($i=1;$imailCC!= )$mailHeader.= CC:.$this-mailCC. n; /-加入暗送地址if($this-mailBCC!= )$mailHeader.= BCC:.$this-mailBCC. n; /-加入发送人地址if($this-mailFrom!= )$mailHeader.= FROM:.$this-mailFrom. n; /-信息类型- /-TEXT文本if($this-mailText!= &$this-mailHTML= &$this-mailAttachments= ) returnmail($this-mailTo,$this-mailSubject,$this-mailText,$mailHeader); /-HTML和TEXT elseif($this-mailText!= &$this-mailHTML!= &$this-mailAttachments= ) /-得到一个随机边界$bodyBoundary=$this-getRandomBoundary(); /-格式化头信息 $textHeader=$this-formatTextHeader(); $htmlHeader=$this-formatHTMLHeader(); /-设置MIME 版本$mailHeader.= MIME-Version:1.0n; $mailHeader.= Content-Type:multipart/alternative;n; $mailHeader.= boundary=.$bodyBoundary. ; $mailHeader.= nnn; /-加入信体和边界$mailHeader.= -.$bodyBoundary. n; $mailHeader.=$textHeader; $mailHeader.= -.$bodyBoundary. n; /-加入HT