骑着猪看夕阳

请不要迷恋哥、哥只是个传说

51724111@qq.com(骑着猪看夕阳) — Tue, 24 Nov 2009 05:26:01 GMT

淘的本本

51724111@qq.com(骑着猪看夕阳) — Sun, 14 Jun 2009 03:13:45 GMT

自己制作的一些QQ空间播放器---http://www.wowoqq.com

51724111@qq.com(骑着猪看夕阳) — Sat, 06 Dec 2008 14:15:39 GMT

自己的网站也做了快一年了.从中学习到了不少东西,今天有空整理一些自己制作的QQ空间免费播放器,不少朋友还在花Q币买吧.或者是在用腾迅提供的几款免费老土的播放器.
下面看下我做的这些吧

http://wowoqq.com/bfq/mp3/zzx.swf?id=hbfzd

http://wowoqq.com/bfq/mp3/aqts.swf?id=ai

http://wowoqq.com/bfq/mp3/qs.swf?id=ai

http://wowoqq.com/tool/bofangqi/1.swf?user=wowoqq

http://wowoqq.com/bfq/mp3/ffal.swf?id=ai

http://wowoqq.com/bfq/mp3/zy.swf?id=ai

http://wowoqq.com/bfq/mp3/yf.swf?id=ai

更多请进我的网站看吧 www.wowoqq.com

[转]给老婆的年终总结

51724111@qq.com(骑着猪看夕阳) — Wed, 02 Jul 2008 04:20:44 GMT

最敬爱的夫人: 最敬爱的夫人: 最敬爱的夫人:

　　过去的一年中，我在您的直接领导下，在岳父岳母的英明指导下，遵照您的指示，按照您的部署，兢兢业业、恪尽职守，摸爬滚打、积极进取，各项家庭工作均取得显著成效。据统计，至去年底，咱家的银行存款、股票市值、固定资产三项指标分别比前年增长了18％、19％、20％。超额完成了去年初制定的“三项指标增幅要达到12％”的任务，同时咱家还被本胡同评为“五好家庭”，我被本楼道评为“最称职老公”，您则光荣当选“最幸福太太”，实现了物质文明、精神文明的双丰收。
　　现将本人一年来的工作情况总结如下:
　　一、以“服务夫人”为工作重心，抓好家庭日常工作。
　　二、以“夫人旨意”为工作重点，抓好家庭经济建设。过去的一年中，我认真贯彻夫人去年初作出“要把家庭经济搞上去”的重要指示，采取得力措施，加大工作力度，狠抓经济建设，终有所成，家庭三项经济指标均比前年大幅度增长。
　　我的主要做法是:　
　　1、严格遵守财经纪律。去年，我不折不扣地执行了工资、奖金等主营收入悉数上交，再由夫人回拨零用钱的收支两条线政策，其余副业收入纳入预算资金管理，向夫人打报告审批使用，在过去的一年中，由于我财经纪律做到了不截留挪用，不挤占乱花，不隐瞒收入，不设小金库，使夫人总揽大权的地位得到了进一步巩固，家庭收入管理规范，资金专项使用。
　　2、厉行个人节约，注重自我节流。过去的一年中，我戒烟、戒酒、戒茶、戒零食、戒请客，总之，将个人吃穿用度费用降至最底，每月零用钱均有剩余，积蓄一定时日，购买首饰、衣物若干赠于夫人，既增加家庭固定资产，又给夫人带来惊喜，一举两得。

　　3、积极探索，广开财路。一是充分发挥自身所长，笔耕不辍，投稿报刊、杂志赚取稿费。二是深入领会《麻将致胜大全》要点，掌握致胜技艺，与同事亲友小赌怡情，胜多负少，小有收获。三是苦心钻研炒股方法，向夫人申请专项资投身股海，一级市场守株待兔，二级市场低买高卖，一年下来赢利颇多。
　　三、以“夫人喜好”为出发点，抓好家庭安定团结。过去的一年，我始终以“夫人喜好”为标准，一切听从夫人，听从夫人一切，不断规范自身行为，搞好家庭安定团结，主要有:
　　1、婚前死党小黄、小李、小谢、小军、小杨诸人一向好吃懒做，行事全无章法，经常来家骗吃骗喝，以夫人不喜，我遂将彼等列入损友名单，遂一割袍断义，中断往来（注：小李因欠我债务的缘故，暂还保持联系）。
　　2、过去我好吸烟，一天两包不在话下，夫人恶之，去年伊始，我便痛下决心，誓与烟绝。如今，瘾来时，我至多点蚊香一支嗅其味以解馋。
　　3、前年我看望父母次数多于看望岳父岳母一次，夫人不悦，去年我遂积极整改，以实际行动纠正偏差，据统计，至去年底''''我看望岳父岳母次数超出看望父母次数两次，在时间总量上超出45分钟，在孝敬财物总额上超出21元人民币。
　　4、央视主持人刘仪伟，风格清新，厨艺一绝...夫人爱甚，视为新好男人，我遂理一板寸头，学一口鸟腔普通话，苦研《天天厨艺》菜谱，每日推出一样特色小菜。
　　由于我紧紧把握“夫人永远是对的''''如果夫人错了，参照上句执行”的方针，认真贯彻“打不还手，骂不还口，夫人一脚踹过来，我就躲着走”的基本原则，家庭安定团结局面一派大好，夫妻相敬如宾，居家气氛温馨。在过去的一年里，我主持家庭日常工作虽取得一定成绩，但离夫人的要求仍存在一定的差距，如：工作主观能动性还有待加强，工作前瞻性不足；工作尚存在畏难情绪等。在新的一年中，我将克服缺点、发扬优点，在巩固去年成绩的基础上，百尺竿头更进一步，使咱家的生活水准芝麻开花节节高，夫妻恩爱此情绵绵无绝期!

如何写ASP入库小偷程序

51724111@qq.com(骑着猪看夕阳) — Tue, 29 Apr 2008 03:28:12 GMT

如何写ASP入库小偷程序
最近大家都对小偷程序感兴趣，尤其是入库类的，在这里我简单的介绍一下。希望大家对这个能有所了解，如果您还不知道什么叫小偷，请参考我写的另外一片文章（小偷程序原理和简单示例
）：http://www.im286.com/viewthread.php?tid=407182&fpage=2

个人认为小偷只是一个很通俗的说法，也给很多人带来了误解，认为小偷是什么不好的东西，其实不然，用数据采集程序来形容应该更准确些。

这里是我昨天刚完成的新浪娱乐入库小偷程序：：http://www.saynew.com/news/Class/popjb/popjb02.html
在这里我根据该程序的制作简单介绍一下：

入库小偷的原理也很简单：就是用XMLHTTP远程读取网页的内容，然后根据需要，对读到的内容进行加工（过滤，替换，分类），最后得到自己需要的数据，加入到数据库中。

首先：我们先用XMLHTTP读取远程网页（我的另一片文章中有介绍）。
其次：对内容进行过滤，这个是比较关键的步骤，比如说，我要从远程网页上提取出所有url连接，我应该怎么做呢？

CODE:[Copy to clipboard]‘这里用的是正则式
Set objRegExp = New Regexp \'建立对象
objRegExp.IgnoreCase = True \'大小写忽略
objRegExp.Global = True \'全局为真
objRegExp.Pattern = "http://.+?" \'匹配字段
set mm=objRegExp.Execute(str) \'执行查找，str为输入参数
For Each Match in mm \'进入循环
Response.write(Match.Value） \'输出url地址
next
然后，我们需要根据需要做一些替换功能，把不必要的数据替换掉，这个比较简单，用Replace函数即可。
最后，进行数据库操作，这个我想大家应该都会，就不做介绍了。

http://blog.donews.com/inkou/archive/2006/03/12/764125.aspx

新闻小偷程序（asp）

51724111@qq.com(骑着猪看夕阳) — Tue, 29 Apr 2008 03:26:09 GMT

详细解释已经写的很清楚，就不用偶再费口舌了：）
<%
on error resume next
Server.ScriptTimeOut=120 '设定操作超时的时间（因为程序运行速度慢啊）
url = "http://product.zol.com.cn/soft/" '新闻来源的页面
wstr = getHTTPPage(url) '取得页面内容
if err.number=0 then '如果获取成功
start=newstring(wstr," ") '要获取的内容在网页中的开始位置（通过唯一的标志寻找）
over=newstring(wstr,"") '要获取的内容在网页中结束位置（通过唯一的标志寻找）
wstr=mid(wstr,start,over-start-61) '获取想要的内容
wstr=replace(wstr,"aaa","bbb") '替换掉你不想要的内容
end if
response.write wstr '输出
%>
这些照抄：
<%
function getHTTPPage(url)
on error resume next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
end function
Function bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
Function NewString(wstr,strng)
NewString=Instr(wstr,strng)
End Function
%>
此程序占用资源确实比较大，如果网站有速度要求的话要甚用。

http://hi.baidu.com/0755ok/blog/item/f12c9713928ecd836438db54.html

Super Star翻唱(经典暴笑)

51724111@qq.com(骑着猪看夕阳) — Sun, 28 Oct 2007 14:49:50 GMT

做个记号,大家分享一下~

结婚花絮

51724111@qq.com(骑着猪看夕阳) — Tue, 10 Apr 2007 12:30:31 GMT

凉风有信，秋月无边，亏我思娇的情绪好比度日如年，虽然我不是玉树临风潇洒倜傥，但是我有广阔的胸襟和强健的臂弯。

51724111@qq.com(骑着猪看夕阳) — Sat, 27 May 2006 03:22:41 GMT

凉风有信，秋月无边，亏我思娇的情绪好比度日如年，虽然我不是玉树临风潇洒倜傥，但是我有广阔的胸襟和强健的臂弯。

水手

51724111@qq.com(骑着猪看夕阳) — Sat, 27 May 2006 02:53:38 GMT

苦涩的沙吹痛脸庞的感觉
像父亲的责骂母亲的哭泣
永远难忘记
年少的我喜欢一个人在海边
卷起裤管光着脚丫踩在沙滩上
总是幻想海洋的尽头有另一个世界
总是以为勇敢的水手是真正的男儿
总是一副弱不禁风孬种的样子
在受人欺负的时候总是听见水手说
他说风雨中这点痛算什么
擦干泪不要怕至少我们还有梦
他说风雨中这点痛算什么
擦干泪不要问为什么

长大以后为了理想而努力
渐渐的忽略了父亲母亲和
故乡的消息
如今的我生活就像在演戏
说着言不由衷的话戴着伪善的面具
总是拿着微不足道的成就来骗自己
总是莫名其妙到一阵的空虚
总是靠一点酒精的麻醉才能够睡去
在半睡半醒之间仿佛又听见水手说
他说风雨中这点痛算什么
擦干泪不要怕至少我们还有梦
他说风雨中这点痛算什么
擦干泪不要问为什么
(music)
寻寻觅觅寻不到活着的证据
都市的柏油路太硬踩不出足迹
骄傲无知的现代人不知道珍惜
那一片被文明糟踏过的海洋和天地
只有远离人群才能找回我自己
在带着咸味的空气中自由的呼吸
耳畔又传来汽笛声和水手的笑语
永远在内心的最深处听见水手说
他说风雨中这点痛算什么
擦干泪不要怕至少我们还有梦
他说风雨中这点痛算什么
擦干泪不要问为什么