刚刚发过 Apple Girl 使用 iPad2 翻唱改版 Tik Tok，今天再发一个小天后艾薇儿的现场翻唱可爱版的 Tik Tok 外加两个现场版串烧MV吧，喜欢艾薇儿的朋友别错过哦……
艾薇儿现场超强翻唱Ke$ha神曲TiK ToK！超爱这个编曲！
手机用户点击这里观看
3月2日艾薇儿现场激情串烧2首热门单曲！
手机用户点击这里观看
补充：话说这里还有个很销魂的男生版：
2011年11月27日星期日
2011年11月26日星期六
开始抓猫了，可不是抓狂啊！
玩法：像右侧图那样，将猫困在一个深色原点围成的圈子里面就算成功了。看起来好像很简单哦，事实上……请大家注意，这是让你去抓猫，可不是让你抓狂啊！
牛人教你用如何 JavaScript 来写 Gameboy 模拟器！
你如果访问过一些英文网站，应该知道JSNES， 一个用Javascript写成的 FC (小霸王游戏机/又称红白机) 模拟器。这个模拟器让人们知道 JavaScript 引擎足够强大了……
现在，又一个牛人写了一系列的教程，讲述如何用JavaScript来写一个Gameboy模拟器，详尽描述了从一开始模拟CPU，到最后运行俄罗斯方块的过程。或许，这个GameBoy模拟器还能帮你测试你用的浏览器的JavaScript性能哦，呵呵。
ASP通用分页类[转载]
从开始学习到使用ASP到现在也写了不少程序了，最令人头痛的是写数据分页，每次都是由于几个变量名或几个参数的不同，因而需要每次都写哪一段冗长而又繁杂的分页代码，代码长了使得程序的可读性变差，容易出差，调试半天也找不出错在哪里，所以慢慢的我开始使用一些网上的提供的分页函数或分页类。的确省事不少，但是通常的函数和类的做法都是就数据显示部分也封装了起来，每次为了达到自己需要的显求效果要去改动函数或者类的本身，所以使用起来也不是怎么方便,自己写的分页改起来已经够复杂了，更不要说别人的了。
所以趁昨天有空自己写了一个分页的类，自我感觉良好（不要用鸡蛋砸我），在这里和大家分享一下自己的经验（谈不上经验，感想吧）。在这里我也不想说分页的原理了，反正大家都懂，要我往深入的谈我也不会。呵呵。
一、创建分页类的目标
在写之前，我曾想过，我究竟要写怎么样一个类，回想起以前写分页过程的时候，最烦的莫过于每次都要写哪一段复杂的分页代码，最大的烦恼每次都是仅仅几个变量名的不同。所以第一个要实现的就是要把这个封装起来，第二个就是要把分页的导航条也封装起来,第三个，不习惯哪些把数据显示部分也封装起来的方法，这不是方便编程，对与哪些对显示效果每次都不同的用户来说，比自己写分页还要麻烦。所以我的目地就是对RecordSet进行一些简单的封装。
二、创建过程
所以我写的第一个属性，就是返一个经过处理的RecordSe
Public Property Get GetRs()
Set XD_Rs=Server.createobject(“adodb.recordset”)
XD_Rs.PageSize=PageSize
XD_Rs.Open XD_SQL,XD_Conn,1,1
If not(XD_Rs.eof and XD_RS.BOF) Then
If int_curpage>XD_RS.PageCount Then
int_curpage=XD_RS.PageCount
End If
XD_Rs.AbsolutePage=int_curpage
End If
Set GetRs=XD_RS
End Property
这个属性的作用是更据指定RecordSet 的当前面，并到指针指向当前页的第一条记录,这个应该就是整个类的完成分页的核心了，当然，其中的一些参数是靠其它的属性来获取，所以这里顺便介绍一个这个类所要的基本参数
=============================================
‘GetConn 得到数据库连接
‘
‘=============================================
Public Property Let GetConn(obj_Conn)
Set XD_Conn=obj_Conn
End Property
‘=============================================
‘GetSQL 得到查询语句
‘
‘==============================================
Public Property Let GetSQL(str_sql)
XD_SQL=str_sql
End Property
‘===============================================
‘PageSize 属性
‘设置每一页的分页大小
‘===============================================
Public Property Let PageSize(int_PageSize)
If IsNumeric(Int_Pagesize) Then
XD_PageSize=CLng(int_PageSize)
Else
str_error=str_error & “PageSize的参数不正确”
ShowError()
End If
End Property
Public Property Get PageSize
If XD_PageSize=”" or (not(IsNumeric(XD_PageSize))) Then
PageSize=10
Else
PageSize=XD_PageSize
End If
End Property
以上几个是在使用类的过程必需要指定的参数，曾经我在写属性的时候对每个传入的参数加上IsObject(obj_conn)等判断，为的是类的健壮，但是后来想来想去，这个对与ASP来说没有必要，不加还能加快点速度，至于为什么这样，我想各位在使用过程中也会发现，加还不如不加。这也是我经过了思想斗争以后才去掉了，只保留了一些必要的验证。
一个参数就是当前页的获得，在程序中我用int_curpage来标识，这个的话放在类的创建过程中获得在好也没有了
‘========================
‘设定一些参数的黙认值
‘========================
XD_PageSize=10 ‘设定分页的默认值为10
‘========================
‘获取当前面的值
‘========================
If request(“page”)=”" Then
int_curpage=1
ElseIf not(IsNumeric(request(“page”))) Then
int_curpage=1
ElseIf CInt(Trim(request(“page”)))<1 Then
int_curpage=1
Else
Int_curpage=CInt(Trim(request(“page”)))
End If
End Sub
到这里这个类分的功能基本已经实现了，只要在调用这个类的页面的URL后面加上page=n，它就会显示第n页的内容了，所以接下去要做的就是创建一个数据导航条了，我把它设计为类似以面的形式
9 3[1] [2] [3] [4] [5] [6] [7] [8] 4 :页次:1/8页 共51条记录 7条/每页
在页面里通过调用ShowPage()的方法显示出来，ShowPage可以在GetRS以后的任意位置调用，也可以调用多次
Public Sub ShowPage()
Dim str_tmp
int_totalRecord=XD_RS.RecordCount
If int_totalRecord<=0 Then
str_error=str_error & “总记录数为零，请输入数据”
Call ShowError()
End If
If int_totalRecord=”" Then
int_TotalPage=1
Else
If int_totalRecord mod PageSize =0 Then
int_TotalPage = CLng(int_TotalRecord / XD_PageSize * -1)*-1
Else
int_TotalPage = CLng(int_TotalRecord / XD_PageSize * -1)*-1+1
End If
End If
If Int_curpage>int_Totalpage Then
int_curpage=int_TotalPage
End If
‘=====================================================
‘显示分页信息，各个模块根据自己要求更改显求位置
‘=====================================================
response.write “
str_tmp=ShowFirstPrv ‘显示首页、前一页
response.write str_tmp
str_tmp=showNumBtn ‘数字导航
response.write str_tmp
str_tmp=ShowNextLast ‘下一页、末页
response.write str_tmp
str_tmp=ShowPageInfo
response.write str_tmp
response.write “”
end Sub
到这里类的功能才算完整（为了节省版面，我有些方法没有放上去，再下面附上全部完整代码）写一个简单页面测试一下
<%
’把分页类包含进来
set conn = server.CreateObject(“adodb.connection”)
conn
爱梦想，做自己，我是韩寒
可怕的错觉 – 人人都会犯的致命错误PDF电子书 (文字版)
《可怕的错觉:人人都会犯的致命错误》内容简介：如果能少些错误，你在生活中就会得到更多的快乐，在工作中就会有更多的收获，在人生中就会有更多的美好……
读完这本书，你会恍然大悟，你会发现那些每天潜伏在你身边，你却从未察觉的或大或小或严重或轻微的错误。对照这本书，把它们从你错觉的阴影下揪出来，一一克服、改正，你会对世界有新的视角，对生活有新的感受，对人生有新的理解，你会发现一个全新的自己，一个更受别人欢迎的自己，一个更让自己骄傲的自己。
苏打绿：失去生命的力量也不可惜
“每一道音轨都是情感的痕迹，即使你的星球和我的星球不一样，但总有一条轨道是可以被寻找，可以相通的吧！于是我在我的星球上等你，你在你的星球上等我……”
一定是这样的吧。即使不了解但却可以被感知。
苏打绿，就是拥有这样的音乐魔力。
所以即使不能够去听现场，依然可以隔着这么遥远的距离，听得到他们音乐里面最真实朴素的纯净梦想。
那个叫做青峰的小男人，用他孩子气的纯真眼眸，雌雄难辨飘忽不定的声线，连同那些执拗的，坚持的，啜泣的，骄傲的，冷艳的，撒娇的，感动的样子，勇敢地向所有人展示着他们对于音乐梦想的不懈追求和努力。
从一开始的不被认可到走出一片自己的天空，这路途中到底有着怎样的艰辛和难过，大概也只能如鱼饮水，冷暖自知吧。
我们看到今天的苏打绿，看到他们的专辑，看到他们作为独立音乐第一个站在小巨蛋舞台上，看得到他们所有这些那些的荣耀，但却看不到这些亮眼光环背后那些酸涩的日子。
那样的日子，是漫长成长的日子，是努力进步的日子，是不断积累历练的日子，是期待梦想成真的日子。
但是因为有音乐在，有梦想在，于是所有的日子都是值得纪念的。
像这样为了梦想努力的苏打绿，是我们每个人都很熟悉的样子吧。
因为每个人身边都是有那样一群人在的，那样一群为了梦想而活的人。每一次看到他们因为不断接近梦想而日渐温热的面庞，就会觉得异常地感动。毕竟不是每个人都有勇气去改变这虚浮的生活的。
青峰说，如果你不想成为长辈期待的样子，不想成为世界期待你的样子，你想要坚持做自己喜欢的样子，那么请你一定要勇敢地站出来，温柔地推翻这个世界，把它变成我们的。
请你一定要勇敢地站出来，勇敢地追求自己想要的生活。
这个世界给于我们太多期待的同时也强加给我们太多羁绊和束缚。很多人都觉得一旦走进社会面对繁琐的生活，梦想这回事就没有任何实际的意义了。可是在苏打绿这里，我忽然觉得，即使你已经开始计算着柴米油盐开始计算着加班费开始计算着办公室八卦开始计算着枕边人的艳遇，梦想依然可以是我们内心深处最动人的愿望和最朴素的理想。那个梦，就是永远坚持做最真实的自己。
我始终觉得，不管是谁，只要你是在为自己的梦想而努力地生活，就是值得让人敬畏和喜爱的。
虽然自己情绪低迷的时候，也时常觉得生活冷淡地让人绝望，好像一天都要活不下去了。看着那些日子排着队一天一天到来又一天一天逝去，却始终觉得每一个都与另一个一样，一样不值得期待，不值得怀念。后来朋友说，只有真正走在梦想路途上的人才知道前途有多迷茫。我开始觉得，也许我真的只是缺少那么一点改变的勇气而已。不管怎样，至少在自己可以做一些什么的时候尽力去做吧，哪怕最后并不能走向自己想要的那个未来，也要努力地去活。
所以我，很感谢苏打绿，感谢青峰，感谢你们是如此优秀的代言人，代替我们这些平凡的孩子们实现了梦想。看到如此光芒四射而又如此平凡真实的你们，我就会觉得很幸福。因为在你们幸福的倒影里，我好像看到了未来的自己。
是你们，教会我要勇敢地追求自己想要的未来。
是你们，教会我要温柔地对待自己想要推翻的世界。
是你们，教会我要坚定地跟随自己动人的梦想。
是你们，教会我爱和成长，感恩和梦想。
（来源：花掌柜）
订阅：
博文 (Atom)