<?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 Class
class 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
?>