皮皮网

1.如何开发免费的wap建站程序？
2.Spimes x5.0主题模板全开源源码/Typecho主题模板
3.自动识别WEB和WAP访客的游游戏源码p源页游源码

如何开发免费的wap建站程序？

       å»ºç«™ï¼Œå»ºWAP站，想自己开发写文件，编程序数据，首先，你得下载一些免费的程序放到你的站点 里去调试，觉得那里不合心就改那里，至于怎么改，那得看你对这方面的认知有多少，懂得多少了，呵呵，免费程序多得很，但没几个是完整顺手的，动手大胆改改吧，别怕改错，呵呵，改错了想灰复原来的程序也很简单的，改的其中能备份那更好了。

Spimes x5.0主题模板全开源源码/Typecho主题模板

       品牌：Typecho

       语言：PHP

       类型：主题模板

       支持：PC+WAP

       Spimes x5.0主题模板全开源源码，适用于博客、戏源戏自媒体、码W码网资讯类网站设计与开发，开心自适应兼容手机和平板设备，农场适用于团队或工作室门户主题。游游戏源码p源页游滚石导航网源码精心打磨，戏源戏提供速度与优雅的码W码网极致体验。

       安装教程：

       此主题模板适用于最新版Typecho，开心安装在模板目录`usr/themes`，农场插件目录`usr/plugins`。游游戏源码p源页游

       若需添加留言板功能，戏源戏在网站根目录创建“message.txt”空文件。码W码网不需此功能，开心无需设置。农场syscall源码

       使用`txtcache`文件夹，位于网站根目录，用于缓存结构：根目录`-txtcache文件夹-`txt文件。已包含在主题压缩包中。

       主题适用于`php5.6-8.0`，伪静态配置使用宝塔自带的Typecho。

       在后台顶部导航菜单设置，sendevent源码打开永久链接，启用并选择链接样式保存。

       免责声明：依据二○一三年一月三十日《计算机软件保护条例》两次修订第条规定，个人学习和研究软件内含的设计思想和原理，通过安装、显示、传输或存储软件等方式使用软件的firstwingy源码，无需获得软件著作权人的许可，也不需支付报酬。基于此，鼓励用户按照说明研究软件。请注意，所有源码来源于网络收集、修改或交换，dsmall 源码若有侵权，请及时联系我们处理。

自动识别WEB和WAP访客的源码

       既然要利用已经存在的为HTML浏览器编写的代码，就需要知道请求是从HTML浏览器还是从WML浏览器过来的。同样地，如果想重新引导的HTML浏览器直接到相应的HTML文档上，WML浏览器到WML页面上，以下的PHP代码就可以做到这些。

       // 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 = "/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=="MC" || // Ericsson MC

        $browser=="AUR " || // Ericsson R

        $browser=="R" || // Ericsson R

        $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(" Moved Temporarily");

        header("Location: ".$wmlredirect);

        exit;

        }

        else {

       // Force the browser to load the HTML file instead

        header(" Moved Temporarily");

        header("Location: ".$htmlredirect);

        exit;

        }

        ?

       这个判断是在服务端完成的， PHP代码将首先查看网关是否接收text/vnd.wap.vml MIME类型。如果不是，将检测前面的字符，查看是否为WML浏览器。如果不符合，那么就假设为HTML浏览器。如果有新的WML浏览器，那么ID字符串也要增加。

       这个代码基于Robert Whitinger（robert@wapsight.com）的代码，使用了Don Amaro（donamaro.concepcion@nl.unisys.com）提供的列表。

        注意：由于只需要四个字符串就可以辨别，因此例如："WapIDE-SDK/2.0;(Rs(Arial))" 可以使用“WapI”来代替是可行的做法，也是足够的。

        同样的功能也可以通过ASP来解决。先判断请求的是“/index.wml” 或者 “/index.html” 和所需要的MIME类型。另外以下的脚本辨别的方式和上面不一样。另外还需要网关告诉服务器它能接收的text/vnd.wap.wml MIME类型。该例子如下所示：

       %

       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%