<?php/************************************** WML处理---H_wml.php* 创建人: huang_xiang* 创建时间:2008-12-25 9:29* 更新时间:2009-2-18 13:38* Email:yin273642232@163.com QQ:273642232*************************************//*************************************实例代码 include_once("H_wml.php"); //引入文件 $H_wml = new H_wml(); //产生对象 $H_wml -> H_encod = "gb2312"; //设置字符编码(wap页的编码) $H_wml -> H_head(); //设置头信息 $H_wml -> H_nocah(); //无缓存(是否缓存)需要缓存则不需要写该行 $H_wml -> H_card("cd1","叶绿辉香"); //设定card标签 $H_wml -> H_img("image/logo.wbmp","Logo"); //设定图片(图片路径,注释) $H_wml -> H_br(); //换行 $H_wml -> H_link("index.php","<font color=\"red\"><b>去首页</b></font>"); //超链接(连接地址,文字) $H_wml -> H_str(" "); //空格 $H_wml -> H_br(); //换行 $H_wml -> H_str("QQ:273642232;Email:yin273642232@163.com"); //字符串 $H_wml -> H_disp(); //显示*************************************///Start Classclass H_wml{ public $H_debug = false; public $H_desce; //描述 public $H_ROOT_DIR; //文件地址路径 public $H_str; //字符 public $H_encod; //字符编码 public $H_bqi=0; public $H_gbary; public function __construct(){ //当实例化一个对象的时候,这个对象的这个方法首先被调用 return ''; } public function __destruct(){ //当删除一个对象或对象操作终止的时候,调用该方法 return ''; } public function __get($key){ //当试图读取一个并不存在的属性的时候被调用 return '['.$key.'] Variable not find'; } public function __set($key,$val){ //当试图向一个并不存在的属性写入值的时候被调用 return '['.$key.'] Variable not find'; } public function __call($key,$args){ //当试图调用一个对象并不存在的方法时,调用该方法 return '['.$key.'] Function not find'; } public function __toString(){ //当打印一个对象的时候被调用 return $this -> H_desce(); } public function __clone(){ //当对象被克隆时,被调用 return "clone"; } public function H_desce(){ //返回描述 $this -> H_desce .= '类名:H_wml-WML处理;'; $this -> H_desce .= '函数:H_head(),返回:这是wml头部,参数:无;'; $this -> H_desce .= '函数:H_endbq($val),返回:记录结束标签,参数:$val-被记录的标签;'; $this -> H_desce .= '函数:H_card($id,$title),返回:设置卡片,参数:$id-该卡片的id.$title-该卡片的title;'; $this -> H_desce .= '函数:H_nocah(),返回:设置缓存,参数:无;'; $this -> H_desce .= '函数:H_p($str,$align="left"),返回:设置一行,参数:$str-改行字符串.$align-显示模式(默认居左 left);'; $this -> H_desce .= '函数:H_link($link,$str),返回:设置连接,参数:$link-连接地址.$str连接字符;'; $this -> H_desce .= '函数:H_img($src,$alt),返回:设置图片,参数:$src-图片文件路径.$alt-图片描述;'; $this -> H_desce .= '函数:H_input($name,$type="text",$format="",$maxlength="10",$emptyok="false"),返回:设置输入框,参数:$name-名字.$type-类型(默认text).$format-格式,$maxlength-最大长度.$emptyok-是否记录(默认不记录);'; $this -> H_desce .= '函数:H_br(),返回:设置换行,参数:无;'; $this -> H_desce .= '函数:H_str($str),返回:设置字符,参数:$str-字符串;'; $this -> H_desce .= '函数:H_disp(),返回:输出信息(wml内容),参数:无;'; return $this -> H_desce; } public function H_head(){ //设置头信息 $this -> H_gbary=""; $this -> H_bqi = 0; $H_head = header('Content-type:text/vnd.wap.wml'.($this -> H_encod == '' ? '' : ';charset='.$this -> H_encod)); $H_head .= "\n"; $H_head .= "<?xml version=\"1.0\"".($this -> H_encod == '' ? '' : ' encoding="'.$this -> H_encod.'"')."?>"; $H_head .= "\n"; $H_head .= '<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">'; $H_head .= "\n"; $H_head .= '<wml>'; $H_head .= "\n"; $this -> H_endbq('</wml>'); $this -> H_str = $H_head; return true; } public function H_endbq($val){ $this -> H_gbary[$this -> H_bqi] = $val; ++$this -> H_bqi; return true; } public function H_card($id,$title){ //设置卡片 $H_card = "<card id=\"$id\" title=\"$title\">"; $H_card .= "\n"; $this -> H_endbq('</card>'); $this -> H_str .= $H_card; return true; } public function H_nocah(){ //设置缓存 $H_nocah = "<head><meta http-equiv=\"Cache-Control\" content=\"no-cache\"/></head>"; $H_nocah .= "\n"; $this -> H_str .= $H_nocah; return true; } public function H_p($str,$align="left"){ //设置一行 $H_p = "<p align=\"$align\">".$str.'</p>'; $H_p .= "\n"; $this -> H_str .= $H_p; return true; } public function H_link($link,$str){ //设置连接 $H_link = "<a href=\"".$link."\">".$str."</a>"; $H_link .= "\n"; $this -> H_str .= $H_link; return true; } public function H_img($src,$alt){ //设置图片 $H_img = '<img src="'.$src.'" alt="'.$alt.'" />'; $H_img .= "\n"; $this -> H_str .= $H_img; return true; } public function H_input($name,$type="text",$format="",$maxlength="10",$emptyok="false"){ //设置输入框 $H_input = '<input name="'.$name.'" type="'.$type.'" format="'.$format.'" maxlength="'.$maxlength.'" emptyok="'.$emptyok.'" />'; $H_input .= "\n"; $this -> H_str .= $H_img; return true; } public function H_br(){ //设置换行 $this -> H_str .= '<br />'; return true; } public function H_str($str){ //设置字符 $this -> H_str .= $str; return true; } public function H_disp(){ //输出信息 while($this -> H_bqi > 0){ $val .= "\n".$this -> H_gbary[$this -> H_bqi -1 ]; --$this -> H_bqi; } echo $this -> H_str.$val; return true; } public function text2wml($content){ // 将 WML 变量前缀"$"转义 $content = str_replace('$', '$$', $content); // 转换特殊字符,并将 Windows/DOS 换行符(\r\n)转化为 Unix 换行符(\n) $content = str_replace("\r\n", "\n", htmlspecialchars($content)); // 通过换行符来将各行分开进行处理(过滤空行) $content = explode("\n", $content); for ($i = 0; $i < count($content); $i++) { // 过滤首尾空格 $content[$i] = trim($content[$i]); // 如果去掉全角空格为空行,则设为空行,否则不对全角空格过滤。 if (str_replace(" ", "", $content[$i]) == "") $content[$i] = ""; } //合并各行,转化为 WML,并过滤掉空行 $content = str_replace("<p><br /></p>\n", "", implode("<br /></p>\n<p>", $content)."\n"); return $content; } public function html2wml($content,$H_p="",$H_str=""){ // 过滤掉样式表和脚本 $content = preg_replace("/<style .*?<\/style>/is", "", $content); $content = preg_replace("/<script .*?<\/script>/is", "", $content); // 首先将各种可以引起换行的标签(如<br />、<p> 之类)替换成换行符"\n" $content = preg_replace("/<br \s*\/?\/>/i", "", $content); $content = preg_replace("/<\/?p>/i", "", $content); $content = preg_replace("/<\/?td>/i", "", $content); $content = preg_replace("/<\/?div>/i", "", $content); $content = preg_replace("/<\/?blockquote>/i", "", $content); $content = preg_replace("/<\/?li>/i", "", $content); // 将" "替换为空格 $content = preg_replace("/\ \;/i", " ", $content); // 某些不规范的网页中可能有" ",在普通网页中显示会按照" "显示,不会引起错误,但是在 WAP 中会原样显示,因此也要替换成空格。 $content = preg_replace("/\ /i", " ", $content); // 过滤掉剩下的 HTML 标签 $content = strip_tags($content); // 将 HTML 中的实体(entity)转化为它所对应的字符(WML 仅支持很有现的几个 entity),这里我转化的是中文网页,因此我指定了"GB2312"编码。 $content = html_entity_decode($content, ENT_QUOTES, "GB2312"); // 过滤掉不能转化的实体(entity) $content = preg_replace("/\&\#.*?\;/i", "", $content); // 上面是将 HTML 网页内容转化为带换行的纯文本,下面是将这些纯文本转化为 WML。 $H_temp = text2wml($content); $H_temp = $H_str != "" ? $H_temp.$H_str : $H_temp; $H_temp = $H_p != "" ? "<p>".$H_temp."</p>" : $H_temp; return $H_temp; }}//End Class?>