服务器如何区别客户端（aspphp）.txt

C&C++论坛精华

作者：donglinjiang
日期：2000-8-28 14:27:09
PHP
<?
 // Because this script sends out HTTP header information, the first characters in the file must be the <? PHP tag.

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

  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") {
    header("302 Moved Temporarily");       // Force the browser to load the WML file instead
    header("Location: ".$wmlredirect);
    exit;
  }
  else {
    header("302 Moved Temporarily");       // Force the browser to load the HTML file instead
    header("Location: ".$htmlredirect);
    exit;
  }
?>

ASP
<% 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%>