<form ... utn>
  ...
  <input type="submit" ...>
</form>

<?php
header("Content-type: text/vnd.wap.wml; charset=utf-8");
$header = "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n";
$header .= "<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\">";
echo $header;
?>

<?
/**
* 类名: get mobile info
* 描述: 手机信息类
* 其他: zhoz.com
*/
class MobileInfo {
  /**
  * 函数名称: getPhoneNumber
  * 函数功能: 取手机号
  * 输入参数: none
  * 函数返回值: 成功返回号码，失败返回false
  * 其它说明: http://log.zhoz.com
  */
  function getPhoneNumber() {
    if (isset($_SERVER['HTTP_X_NETWORK_INFO'])) {
      $str1 = $_SERVER['HTTP_X_NETWORK_INFO'];
      $getstr1 = preg_replace('/(.*,)(11[d])(,.*)/i','',$str1);
      Return $getstr1;
    } elseif (isset($_SERVER['HTTP_X_UP_CALLING_LINE_ID'])) {
      $getstr2 = $_SERVER['HTTP_X_UP_CALLING_LINE_ID'];
      Return $getstr2;
    }
    elseif (isset($_SERVER['HTTP_X_UP_SUBNO'])) {
      $str3 = $_SERVER['HTTP_X_UP_SUBNO'];
      $getstr3 = preg_replace('/(.*)(11[d])(.*)/i','',$str3);
      Return $getstr3;
    } elseif (isset($_SERVER['DEVICEID'])) {
      Return $_SERVER['DEVICEID'];
    } else {
      Return false;
    }
  }
  
  /**
  * 函数名称: getHttpHeader
  * 函数功能: 取头信息
  * 输入参数: none
  * 函数返回值: 成功返回号码，失败返回false
  * 其它说明: http://log.zhoz.com
  */
  function getHttpHeader(){
    $str = '';
    foreach ($_SERVER as $key=>$val) {
      $gstr = str_replace("&","&",$val);
      $str.= "$key -> ".$gstr."\r\n";
    }
    Return $str;
  }
  
  /**
  * 函数名称: getUA
  * 函数功能: 取UA
  * 输入参数: none
  * 函数返回值: 成功返回号码，失败返回false
  * 其它说明: http://log.zhoz.com
  */
  function getUA() {
    if (isset($_SERVER['HTTP_USER_AGENT'])) {
      Return $_SERVER['HTTP_USER_AGENT'];
    } else {
      Return false;
    }
  }
  
  /**
  * 函数名称: getPhoneType
  * 函数功能: 取得手机类型
  * 输入参数: none
  * 函数返回值: 成功返回string，失败返回false
  * 其它说明: http://log.zhoz.com
  */
  function getPhoneType() {
    $ua = $this->getUA();
    if($ua!=false) {
      $str = explode(' ',$ua);
      Return $str[0];
    } else {
      Return false;
    }
  }
  
  /**
  * 函数名称: isOpera
  * 函数功能: 判断是否是opera
  * 输入参数: none
  * 函数返回值: 成功返回string，失败返回false
  * 其它说明: http://log.zhoz.com
  */
  function isOpera() {
    $uainfo = $this->getUA();
    if (preg_match('/.*Opera.*/i',$uainfo)) {
      Return true;
    } else {
      Return false;
    }
  }
  
  /**
  * 函数名称: isM3gate
  * 函数功能: 判断是否是m3gate
  * 输入参数: none
  * 函数返回值: 成功返回string，失败返回false
  * 其它说明: http://log.zhoz.com
  */
  function isM3gate() {
    $uainfo = $this->getUA();
    if (preg_match('/M3Gate/i',$uainfo)) {
      Return true;
    } else {
      Return false;
    }
  }
  
  /**
  * 函数名称: getHttpAccept
  * 函数功能: 取得HA
  * 输入参数: none
  * 函数返回值: 成功返回string，失败返回false
  * 其它说明: 说明
  */
  function getHttpAccept() {
    if (isset($_SERVER['HTTP_ACCEPT'])) {
      Return $_SERVER['HTTP_ACCEPT'];
    } else {
      Return false;
    }
  }
  
  /**
  * 函数名称: getIP
  * 函数功能: 取得手机IP
  * 输入参数: none
  * 函数返回值: 成功返回string
  * 其它说明: 说明
  */
  function getIP() {
    $ip=getenv('REMOTE_ADDR');
    $ip_ = getenv('HTTP_X_FORWARDED_FOR');
    if (($ip_ != "") && ($ip_ != "unknown")) {
      $ip=$ip_;
    }
    return $ip;
  }
}
?>

<?
// Because this script sends out HTTP header information,
// the first characters in the file must be the <? PHP tag.

// relative URL to your HTML file
　　 $htmlredirect = "/html/my_htmlpage.html";
// ABSOLUTE URL to your WML file　
　　 $wmlredirect = "http://wap.mysite.com/wml/my_wmldeck.wml";

　　 if(strpos(strtoupper($HTTP_ACCEPT),"VND.WAP.WML") > 0)
{// Check whether the browser/gateway says it accepts WML.
　　　　 $br = "WML";
　　 }
　　 else {
　　　　 $browser=substr(trim($HTTP_USER_AGENT),0,4);
　　　　 if($browser=="Noki" || // Nokia phones and emulators
　　　　　　　 $browser=="Eric" || // Ericsson WAP phones and emulators
　　　　　　　 $browser=="WapI" || // Ericsson WapIDE 2.0
　　　　　　　 $browser=="MC21" || // Ericsson MC218
　　　　　　　 $browser=="AUR " || // Ericsson R320
　　　　　　　 $browser=="R380" || // Ericsson R380
　　　　　　　 $browser=="UP.B" || // UP.Browser
　　　　　　　 $browser=="WinW" || // WinWAP browser
　　　　　　　 $browser=="UPG1" || // UP.SDK 4.0
　　　　　　　 $browser=="upsi" || // another kind of UP.Browser ??
　　　　　　　 $browser=="QWAP" || // unknown QWAPPER browser
　　　　　　　 $browser=="Jigs" || // unknown JigSaw browser
　　　　　　　 $browser=="Java" || // unknown Java based browser
　　　　　　　 $browser=="Alca" || // unknown Alcatel-BE3 browser (UP based?)
　　　　　　　 $browser=="MITS" || // unknown Mitsubishi browser
　　　　　　　 $browser=="MOT-" || // unknown browser (UP based?)
　　　　　　　 $browser=="My S" ||　// unknown Ericsson devkit browser ?
$browser=="WAPJ" || // Virtual WAPJAG www.wapjag.de
$browser=="fetc" || // fetchpage.cgi Perl script from www.wapcab.de
$browser=="ALAV" || // yet another unknown UP based browser ?
　　　　　　　 $browser=="Wapa") // another unknown browser (Web based "Wapalyzer"?)
　　　　　　　 {
　　　　　　　 $br = "WML";
　　　　 }
　　　　 else {
　　　　　　 $br = "HTML";
　　　　 }
　　 }

　　 if($br == "WML") {
// Force the browser to load the WML file instead
　　　 header("302 Moved Temporarily");
　　　 header("Location: ".$wmlredirect);
　　　 exit;
　　 }
　　 else {
// Force the browser to load the HTML file instead
　　　 header("302 Moved Temporarily");
　　　 header("Location: ".$htmlredirect);
　　　 exit;
　　 }
　 ?>

<%
Response.Buffer = TRUE
　 Dim IsWap
　 httpAccept = LCase(Request.ServerVariables("HTTP_ACCEPT"))
　 if Instr(httpAccept,"wap") then
　 IsWap=1
　 Else Response.Redirect "/index.html" : Response.Flush : Response.End
End if
%>
<%Response.ContentType = "text/vnd.wap.wml"%><?xml version="1.0"?>
<%Response.Flush%>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
"http://www.wapforum.org/DTD/wml_1.1.xml">
　 <wml>
　 <card id="redirect">
　 <onevent type="onenterforward">
　 <go href="/index.wml"/>
　 </onevent>
　 <p>
　 <a href="/index.wml">enter</a>
　 </p>
　 </card>
　 </wml>
　 <%Response.Flush:Response.End%>