大猪笔记

2011年广告收入情况

myllop@gmail.com (大猪) — Sat, 28 Jan 2012 17:29:36 +0800

一直以来我也没指望博客能带来收入，我写博客的目的跟很多人一样，都是记录生活相关的，没有非常专业的内容，自然也就不会有太大的流量，就更没想靠广告带来收入，虽然曾经有几个人在博客买过广告位，但由于没有带来什么点击量，最长的也就是1个月，费用更是可以忽略不计，再加上维护博客运营每年也花不了几个钱，平时少抽两包烟也就行了。有时候也想整点广告赚点零花钱，但我也知道想指望博客赚钱真的不容易。

也有朋友说我博客一直都有放置广告，但却是为了排版和美观才放的，只要看关键位置没有放广告就知道了。而年底的时候无意中打开google和百度广告联盟才发现有意外收获^_^，google的收入完全可以忽略，都知道google广告联盟在国内的点击费用已经被削减到不能再低的地步了，虽然我有心理准备，但一看到那个$10.08美元，我真的无语了。带来意外收获的是百度广告联盟，没想到从2011年1月份开始渐渐有了收入，一年下来居然也有千把块钱，虽然不是特别多，但还是意外之财，下面是2011年的广告月收入列表。

拿着这些意外之财想了很久才想到给自己买部手机，买不到高端智能机，但买个低端还是可以的。
最后感谢一下一直支持我博客的朋友们，希望你们也能收到意外之财。

终于结婚了

myllop@gmail.com (大猪) — Wed, 11 Jan 2012 16:37:46 +0800

在老爸老妈一再的催促下，终于结束了长达5年的恋爱生活，老妈找了个什么半仙，算了个黄道吉日居然是元旦，BS狗P半仙一把，元旦是个好日子谁都知道，我也终于在这一天结束了为期20多年的单身生活，进入了所谓的“围城”。结婚对很多人来说都是激动万分的，但我却没有这么强烈的感觉，可能跟老婆认识的时间比较长的原因吧。硬要说有什么感觉的话，那就是责任更重了一分，这是大实话，结了婚就要承担起一个家庭的重担，可能现在还没什么特别的感觉，一但有了孩子后，这种感觉肯定会很明显，最重要的一点是老爸老妈终于了了一桩心事。

对于结婚我没有别人所说的什么“入围”的特殊感觉，更没有任何不自由的感觉，只要彼此相互信任、宽容，我想应该不会出什么太大的问题。结婚是很累人的，尤其是结婚的事情都由自己忙乎的时候，这种体会更加深刻了，因为老爸老妈年纪大了，也不懂现在年轻人的结婚风格。而且按他们的要求，我估计规矩多到我会崩溃，所以自己忙了，前前后后一边上班一边办置结婚用品、家居用品、婚纱照等事项，也用了2个多月的时间，唯一的感触就是“累”，更搞笑的是酒席我居然没吃几口，忙到晚上回家后饿的用方便面充饥，好在没出什么状况。

既然结婚了，就要有另一种生活态度上的改变，也许每个人的人生都有不同的结局，但都在试图让自己的家庭过的更美好，对我来说也是如此，另外，既然选择了彼此，就应该努力向完美的生活走下去。

80后的回忆

myllop@gmail.com (大猪) — Sat, 24 Dec 2011 11:16:30 +0800

曾经被说成是“垮掉的一代”，“最没责任心的一代”，“愚昧的一代”，“最自私的一代”，“最叛逆的一代”……被冠上这些称号的正是我们这帮80后。正是我们这帮被社会所不了解的一代人，也惭惭成了中国社会的新生力量，看看现在的国内富豪排行榜，看看娱乐界，看看体育明星；各行各业的佼佼者都少不了80后的影子，现在的80后已经开始摆脱各种负面称号的“帽子”，慢慢的成为中国的顶梁柱。

我们的付出了改变社会的力量的同时，也让我们忘记了多少童年趣事，是否还记得大白兔、跳绳、捉迷藏、大头儿子小头爸爸，是它们让80后的童年不再感到乏味；

身为80后的我们，有着太多值得回忆的东西，我们没有经历70后的红色年代，也没有90后的时尚科技玩意儿，有的只是陪伴我们一起长大的各种各样早已过时了的玩具和游戏。也就是有了这些玩具的陪伴，才让我们枯燥无味的童年变的无限精彩。

也让我们这些正在惭惭老去的80后充满了美好的童年回忆，还记得铁皮青蛙、雷锋书包、玻璃球、弹弓这些让我们充满无尽乐趣的玩具吗？怀旧的你是否也要淘一件回去重温童年的快乐呢？

Zblog主题整理(更新中...)

myllop@gmail.com (大猪) — Mon, 28 Nov 2011 11:17:00 +0800

刚接触zblog那阵子灰常喜欢捣腾，前前后后不知道仿了多少主题，好在我仿的主题也被不少朋友看上，至少辛苦劳动没有白费，每次看到有人用我仿的主题都会很开心，算是对我的认可吧，我仿过的主题很多，但被菠萝阁收录的却没几个，不过也的确都是比较经典的，至于其他的主题我都是发在ZBLOG官方论坛里，贴子很乱，也没有整理出来，也许有些不错的主题贴子都沉下去了，这段时间趁有空的时候把我仿过的主题整理出来，有需要主题的朋友找起来也会轻松不少，不过有部分主题不是免费的，但收费也不会太高，只是辛苦费而已，下面是部分主题，其他的还在整理中。

若有哪位朋友用了我仿的主题也可以在评论中贴出网址，方便我整理收集，非常感谢。

第一款：iBlue
我估计这款是使用人数最多的

预览下载：http://download.rainbowsoft.org/themes/dazhuer/

第二款：alltuts (￥15元)
国外的一款WP主题移植的，非常经典

第三款：flight

预览下载：http://bbs.rainbowsoft.org/thread-53874-1-1.html

第四款：PJ主题

预览下载：http://bbs.rainbowsoft.org/forum.php?mod=viewthread&tid=52483&page=1&extra=#pid280810

第五款：盒子主题

预览下载：201112080942272313.rar

拍拍满300送300事件

myllop@gmail.com (大猪) — Tue, 22 Nov 2011 09:29:27 +0800

上个月淘宝的事件估计很多人都知道，而就在淘宝事件闹的很大的时候，拍拍选择了这个最佳时机来了一次“拍拍全场满300送300”的活动，不管对淘宝的影响有多大，对于消费者来说这都是好事，我也是刚好跟同事选了几款东西，总价接近400元，当时我就是怕这种活动有猫腻，才仔细又仔细的看了活动说明，并且按照活动规则点了领取按钮，拍拍也提示说领取成功，并在11.17日发放现金券和红包，但等到17号我却1毛钱的红包和现金券都没收到，上网一搜，发现N多人都有这个情况。看到有人说可能是数据量太大要分批发放的，当时也就没再追究了，结果等到第2天依然没有收到，就打拍拍客服电话问问，结果这个电话的难打程度绝对出乎任何人的意料，那个电话忙音的音乐真的让人听到天荒地老。

我打了不下20次热线，愣是没打进去，后来晚上又打了几次终于接通了客服，说明情况后，客服查询了一会，然后就说交易异常导致不能发放现金券和红包，但到底是什么异常却说不出来，我就郁闷了，我正常交易过程哪来的交易异常？就算有异常你跟我说明白不行吗？但人家就是不跟你说，那有啥办法，接着也通过询问在线客服的方式和维权方式来寻找解决办法，结果都是一样的跟你绕弯，绕到最后让你自己没有耐心而放弃，不得不佩服这种解决问题的办法，本来还想再继续申诉的，结果人家拍拍说了，没在20号之前维权的就算是放弃了，我了个擦，尼玛，从17~20号一共才3天，打电话打了1天多，等了1天，忽悠了1天，这TM哪还有时间跟你维权？真TM郁闷的让人蛋疼。

后来想想太TM坑爹了，你拍拍趁着淘宝受攻击的时候推出个活动，本意是想拉拢客户的，结果活动投入资金过大，导致无法收场，只能牺牲一部分买家来解决问题，我想说你要没那金刚钻就别揽着瓷器活，学人家做活动，结果又搞不好，我是第一次在拍拍参加这种活动，也不知道以前有没有发生过这种事，总之，以后我不会再用拍拍。

后话！据小道消息说，拍拍这次活动对外宣称当天交易额是7个亿，实际上才8000W，而现金券和红包总数就达到1.3亿。

PS：再BS一下财付通的信用卡还款拿Q币，更是坑爹中的坑爹，还完款后还要你邀请好友还款才能拿到所谓的Q币。

博客活动——微小说进行中(有礼品哦)

myllop@gmail.com (大猪) — Mon, 31 Oct 2011 13:59:33 +0800

活动已成功结束！！

开博这么多年从未举办过什么活动，看到很多博客都举办过各种各样的活动，心里也萌生了这个想法，但一直没实际行动，这次在GeekCook的赞助下，成功举办这个小活动，暂且就定为第1期吧。

既然是活动就肯定会有奖品，而活动内容也比较简单，只需要在本篇文章评论里留下问题答案即可参予。

活动内容如下：

1.我说：思想有多远，你就可以穿越多远;你说：我为穿越而来，为觅一段旷世奇缘，为闯一世金戈铁马……或是，为了，见你。你可以是叱咤风云的王，亦或是命如草芥的卑奴，一切就只凭你那细腻的感情线和你无限膨胀的大脑。一觉醒来，你发现自己穿越了，上下几千年，任你穿越，你要去哪?遇见谁?会有哪些奇遇??将你的奇思妙想写入《一觉醒来后发现自己有了穿越时空的能力，你会怎么办?》，也许，这仅仅是一篇微小说，也许，这就是你的下一段故事……

例如：醒来后发现有了时空穿越的能力，我就先回到古代，随便拿点东西再带到未来去卖，要不了多久我就成富翁了。

2.活动结束后，我们会选出“最具创意奖”一个，和“幸运博友”一名。

3.“最具创意奖”的奖品《红与黑》铝制笔记本一个，“幸运博友”的奖品是GeekCook20元优惠券一张(可直接购物使用)

注意：参与活动请使用常用的E-mail，以便于及时联系。
活动截止日期：2011年11月15日。

本次活动由GeekCook赞助。

zblog增加链接管理项目

myllop@gmail.com (大猪) — Wed, 26 Oct 2011 09:22:08 +0800

看到很多朋友的博客上都出现类似小纸条样式的便笺，或是公告，或是语录，这种看上去很简单直观的功能虽然可以在模板里更改，但如果每次更改都需要下载模板文件再上传，怎么说也是很不方便，而zblog的插件又不像wp那样丰富，如果单就这么个小功能再做一个插件的话似乎又有点太不值得(主要是人懒^_^)。

今天分享一下我博客首页上的那个淡黄色背景的公告条是怎么实现后台管理的，原理很简单，只是在后台的“链接管理”中增加一个项目，然后在模板中增加对应标签即可，下面是实现方法，怕麻烦的童鞋可止步于此了。

这里需要修改2个文件，一个是admin目录中的edit_link.asp，另一个是function目录中的c_system_event.asp

1.用记事本或DW或editplus打开admin\edit_link.asp文件
找到下面这行代码：

<%=ZC_MSG039%>

在其下面添加一行：
这里的"#fragment-5"一定要是唯一的，且要跟下面的"#fragment-5"保持一致

公告

然后再找到下面这段代码：

tpath="./INCLUDE/misc.asp"

Response.Write "

" & ZC_MSG170 & ":

"
Response.Write "

"&TransferHTML(LoadFromFile(BlogPath & unEscape(tpath),"utf-8"),"[textarea]")&"

" & vbCrlf

Response.Write ""

在这段代码后面增加一段：
注意：这里的 id=""fragment-5""跟上面的对应

  Response.Write ""

  tpath="./INCLUDE/announcement.asp"'自己添加的公告

  Response.Write "

" & ZC_MSG170 & ":

"
Response.Write "

"&TransferHTML(LoadFromFile(BlogPath & unEscape(tpath),"utf-8"),"[textarea]")&"

" & vbCrlf

Response.Write ""

保存关闭文件

2.打开function\c_system_event.asp文件
找到下面这段代码：

  tpath="./INCLUDE/misc.asp"
  txaContent=Request.Form("txaContent_Misc")

  If IsEmpty(txaContent) Then txaContent=Null
  If Not IsNull(tpath) Then
    If Not IsNull(txaContent) Then
      Call SaveToFile(BlogPath & tpath,txaContent,"utf-8",False)
    End IF
  End If

在其后面增加下面这段：

  tpath="./INCLUDE/announcement.asp"    '这段是为了添加公告自己增加的
  txaContent=Request.Form("txaContent_Announcement")

  If IsEmpty(txaContent) Then txaContent=Null
  If Not IsNull(tpath) Then
    If Not IsNull(txaContent) Then
      Call SaveToFile(BlogPath & tpath,txaContent,"utf-8",False)
    End IF
  End If

保存并关闭文件，修改部分就完成了，接下来就是调用，调用很简单，只需要在模板中添加自己想要调用便笺的位置，将标签放进去即可。

调用标签：<#CACHE_INCLUDE_ANNOUNCEMENT#>

重点：在这里需要说明一下，我这里用的文件名是announcement.asp，所以在程序和调用标签中用到的都是这个名字，如需其它名字，请根据自己需求调整

开通支付宝捐赠功能

myllop@gmail.com (大猪) — Sat, 22 Oct 2011 10:11:49 +0800

N早以前Paypal有捐赠付款功能，相信很多朋友都有在一些个人网站上见到那个黄色的Donate按钮，但在国内来说捐赠这一说法几乎是不现实的，尤其是网络捐赠。但对于个人站长来说偶尔在网络上收收款还是很有必要的，但Paypal对于我们来说有点不太实用，而且还要支付高额提现费用。

就在前2天支付宝开通了个人收款服务，这个功能最初也是有的，可能支付宝处于利益考虑，后来给关闭了，之前个人想要收款只能申请开通支付宝支付功能，麻烦不说还要集成支付接口，总的来说是不方便。这次支付宝以另一种形式重新开启个人收款服务，对于个人站长收款来说的确是很方便。

趁现在刚开通不久，赶紧去抢注一个！

https://shenghuo.alipay.com/transfer/mc/apply.htm

虽然我知道没人会给我捐赠，我还是做了这么个捐赠按钮，说不定就有哪位好心人看我为zblog的付出就给我捐了点，呵呵呵！

如果你觉得从我的分享中得到了帮助，并且希望我持续发展，请点击下面按钮

IT人，请不要忽视了自己

myllop@gmail.com (大猪) — Fri, 21 Oct 2011 10:37:36 +0800

前2年在逛博客或是个人网站时还没什么感觉，但去年到今年明显感觉，80后玩博客的很多都已进入而立之年，经常会在博客里看到有关家庭孩子的文章或照片，处处充满了家的温馨；或许那个让我们没日没夜泡在网上的日子正在慢慢消失，而更多的精力放在家庭和孩子身上了，哪怕当年我们再怎么豪言壮语，再怎么充满斗志，也无法抵挡岁月带来的改变，毕竟我们需要承担起一个家庭的重担，这就必然会失去一些自由和爱好。从很多博主的文章中都依稀可见当年那种无忧无虑豪壮志的年青岁月，而如今却一去不复返，都在为了让家人过上更好的生活而努力。

因为担子重，压力大，很多时候却忘了自己的存在，在结婚前估计大部分人都有几个爱好，结婚后这种情况肯定会大大减少(有钱的主不在此范围内)。为的只是希望家人吃的更好，穿的更好，在亲戚朋友面前更有面子；但我想说，现在吃不上饭的人很少很少吧，只要一家人开心快乐的生活就足够了，真的没有必要把自己搞的憔悴不堪，重病缠身，否则结果绝对会让你后悔不已，说说我身边的2个人吧。

发生在我身边的2个例子，有个同事因为拼命赚钱，导致现在一身的病，隔三差五去医院。前2天更是听到一个朋友说他一个朋友今年刚到30岁却得了尿毒症，听的我心里一阵发凉。现在诸如此类的现象太多太多了，钱固然重要，但为了省钱放弃自己的爱好，迫使自己像个赚钱机器，得不到更多的精神享受，又何尝不是一种内心煎熬。为了挣钱而忽视了自身健康，即使赚到了钱，那下半辈子却要拖累家人身心疲惫的照顾自己，何偿不是一种负担？我们只想让自己承受更多的重担来换取家庭的幸福，却没想到这也是另一种形式的加重负担。

所以！IT人，趁着还有健康身体的时候赶紧重视起来，每天少对着电脑一会，不会耽误工作，多运动一会也不会累死，重拾丢弃的兴趣也不会增加负担，珍惜跟家人一起幸福的日子吧。

ZBLOG评论之星头像本地缓存

myllop@gmail.com (大猪) — Thu, 29 Sep 2011 10:02:16 +0800

前言：这个效果在wp里N早就被实现了，但咱zblog人单力簿没那么多的业余爱好者和开发者，只好自己动手！

之前为了更加直观的表达方式和排版美观，就把haphic的评论之星插件加上了Gravatar头像，效果是达到了，但由于Gravatar是国外站的原因，每次在读取评论之星列表时，Gravatar头像都加载的特别慢，又加上我朝又经常和谐这些国外站，导致Gravatar头像经常是打不开，于是昨天抽空又修改了下插件，可以把头像缓存到博客空间里，至于缓存大小不用担心，这些头像一般都不会超过5K，很小很小，我设置的Gravatar头像是35*35，缓存的每个头像文件才1K大小。这样的话读取Gravatar头像就非常快了，至于效果可以刷新我的博客，到底部看评论之星那里头像的加载速度，不过我的空间也在国外可能没那么快。

下面是实现原理及代码，感兴趣的童鞋可以研究一下，不感兴趣的就直接下载闪人吧。

'这里，用来获取远程头像文件，并存到本地
Function SaveRemoteFile(LocalFileName,RemoteFileUrl)
    SaveRemoteFile=True
  dim Ads,Retrieval,GetRemoteData
  Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
  With Retrieval
     .Open "Get", RemoteFileUrl, False, "", ""
     .Send
      If .Readystate<>4 then
        SaveRemoteFile=False
        Exit Function
      End If
     GetRemoteData = .ResponseBody
  End With
  Set Retrieval = Nothing
  Set Ads = Server.CreateObject("Adodb.Stream")
  With Ads
     .Type = 1
     .Open
     .Write GetRemoteData
     .SaveToFile server.MapPath(LocalFileName),2
     .Cancel()
     .Close()
  End With
  Set Ads=nothing
  End Function

'这里是检查缓存的头像文件是否存在
Function CheckFile(ByVal ckFilename)
  Dim M_fso
  CheckFile=False
  Set M_fso = CreateObject("Scripting.FileSystemObject")
  If M_fso.FileExists(ckFilename) Then
  CheckFile=True
  End If
  Set M_fso = Nothing
End Function

'这段就是用来判断当前头像文件是否存在，如果不存在存读取并保存远程头像文件
if CheckFile(Server.MapPath("\PLUGIN\CmtStar\gravatar\"&md5(aryCmtEmail(k))&".png"))=True then
  gravatar_img = "/PLUGIN/CmtStar/gravatar/"&md5(aryCmtEmail(k))&".png"
else
  if SaveRemoteFile("\PLUGIN\CmtStar\gravatar\"&md5(aryCmtEmail(k))&".png","http://www.gravatar.com/avatar/"&md5(aryCmtEmail(k))&"?s=32&d=wavatar&r=G")=True then
    gravatar_img =  "/PLUGIN/CmtStar/gravatar/"&md5(aryCmtEmail(k))&".png"
  end if
end if

不感性趣的童鞋直接下载吧。
点我Baby！！