演示地址：http://www.aleaf.com/box/ 用Javascript编写，共有22关，所有布局都参考某同类的手机游戏。 游戏规则和操作就不用多说了。 欢迎有兴趣的朋友交流…… ---2007-10-12------------------------------------------------------------ 网页版推箱子游戏最新更新： 1 - 完善程序代码，自动记录最佳走法； 2 - 增加提示功能（根据当前的最佳走法）； 3 - 增加自编地图功能。 ---2007-10-18------------------------------------------------------------ 1 - 增加了2关; 2 - 通过了22关;(本以为无解,原来自己的水平有限)

SWF文件头结构，留下供以后参考。

项目	类型	描述
文件类型说明	8位	文件类型的说明，F或者C，F表示文件没有被压缩，C表示采用zlib压缩文件
文件类型说明	8位	W
文件类型说明	8位	S
文件的版本号	8位	文件的版本号，比如version8，这一项就是0x08
文件的长度	32位	文件的长度，如果被压缩，则这个数字表示的是解压缩之后的文件长度
显示的尺寸	rect	这是一个特殊的类型。使用twips作为单位，1 twips = 1/1440英寸
贞频	16位	8.8的定点数（低八整数，高八小数）表示每一秒更新的贞数
贞数量	16位	影片一共有多少贞。注意右边是高位。例如0102表示有513贞，而不是258贞

注：表格内容选摘自：http://space.flash8.net/space/html/55/381555_itemid_307609.html

<% '*************************************** '     三个函数打造网页小偷服务器 '       ---- aleaf.com ---- ' '    url --要采集的网页 '    ptn --正则表达式,可控制采集指定内容 '*************************************** Response.Charset="gb2312" Dim url,ptn url=trim(request("url")) ptn=trim(request("ptn")) Response.Write GetContent(GetPage(url),ptn) Function GetContent(txt,ptnStr)     Dim regEx     Set regEx = New RegExp       regEx.IgnoreCase = True      regEx.Global = True           regEx.Pattern ="[\s\S]+"      If ptnStr<>"" Then         regEx.Pattern =ptnStr     End if     txt=replace(txt,vbCRLF,"")     GetContent=regEx.Execute(txt)(0).value End Function Function GetPage(urlStr)      Dim HTTP_Obj     On Error Resume Next     Set HTTP_Obj = Server.CreateObject("MSXML2.XMLHTTP")      HTTP_Obj.Open "Get", urlStr, False, "", ""      HTTP_Obj.Send     If HTTP_Obj.Readystate <> 4 Then         Set HTTP_Obj = Nothing         GetPage = "ERROR..."         Exit Function     End If     GetPage = ResponseStrToStr(HTTP_Obj.ResponseBody)     Set HTTP_Obj = Nothing End Function Function ResponseStrToStr(Body_Str)     Dim StreamObj     Set StreamObj = Server.CreateObject("Adodb.Stream")     StreamObj.Type = 1     StreamObj.Mode = 3     StreamObj.Open     StreamObj.Write Body_Str     StreamObj.Position = 0     StreamObj.Type = 2     StreamObj.Charset = "GB2312"     ResponseStrToStr = StreamObj.ReadText      StreamObj.Close     Set StreamObj = Nothing End Function %>

<% '***************************************** '      ASP网页实现防小偷或盗链              '         -- Aleaf.Com --              '***************************************** dim onlyURL,visitURL,fromURL ' 合法网址... onlyURL="http://www.aleaf.com/" ' 跳转网址... visitURL=request.serverVariables("URL") ' 读取来源... fromURL=trim(request.serverVariables("HTTP_REFERER")) if fromURL="" then     '***来源为空:可能直接输入网址或小偷...     '***如果是直接输入网址则跳转以产生一个合法的REFERER;若是小偷则不会跳转.     response.write "<div style='display:none'><p>拒绝小偷!!!"     response.write "<p>来自:" & fromURL      response.write "<p>请访问:<a id='link1' href='" & visitURL & "'>" & visitURL &"</a></div>"     response.write "<script language=""JavaScript"">document.all.link1.click()</script>" & vbCRLF     response.end elseif inStr(fromURL,onlyURL)<>1 then     '***非指定来源:盗链???...     response.write "<p>拒绝盗链!!!"     response.write "<p>来自:" & fromURL      response.write "<p>请访问:<a id='link1' href='" & onlyURL & "'>" & onlyURL &"</a>"     response.write "<p><script language=""JavaScript"">document.all.link1.click()</script>" & vbCRLF     response.end else      '***合法来源:执行后面的页面... end if %>

热烈庆祝个人博客开通！ 启用域名 www.7home.net  访问！ 庆祝一下！~~~~~~~~~~~~~~