U148 Archive

Markdown archive served by Next.js

狂徒洞窟

来源: BlogBus 原始链接: http://www.blogbus.com:80/blogbus/blog/index.php?blogid=16350&cat=1 存档链接: https://web.archive.org/web/20041114015950id_/http://www.blogbus.com:80/blogbus/blog/index.php?blogid=16350&cat=1

狂徒洞窟 分页: [1] [2] [3] [4] 原来你也在这里 -[默认分类] 时间：2004-11-12 21:45 原来你也在这里

  • 刘若英 请允许我尘埃落定用沉默埋葬了过去 满身风雨我从海上来才隐居在这沙漠里 该隐瞒的事总清晰千言万语只能无语 爱是天时地利的迷信喔 原来你也在这里 啊那一个人是不是只存在梦境里 为什么我用尽全身力气却换来半生回忆 若不是你渴望眼睛若不是我救赎心情 在千山万水人海相遇喔 原来你也在这里 lmzzz 发表于 21:45 | 阅读全文 | 评论(0) | 引用Trackback(0) | 编辑 继续 -[默认分类] 时间：2004-11-08 16:10 这周开始搜索引擎的升级改写，目的是使这个系统提高性能及减少系统资源占用。 今天工作主要内容为： 1.撰写数据库字典及程序文档。在早上完成了数据库字典部分并开始改写程序代码。至下午完成几个过程的改写，并学习SQL Server的全文检索技术。 lmzzz 发表于 16:10 | 阅读全文 | 评论(0) | 引用Trackback(0) | 编辑 也许生活也是另外一个样子 -[默认分类] 时间：2004-11-07 16:29 在每一天与自己的战斗中，我很少胜。不，搞不清谁胜谁败。一个人怎么会有一种以上的意志呢？但这是事实。“上下同欲者胜”可在我自己身上似乎没有达到，欲望它牵动着我引诱着我。 还有一种声音，在呼唤着我。不只有一个意念，它想让我生活变得更美好，是的，这是我的意志。有一个声音告诉我应该怎样做，是的，这个声音总是对的，但它很弱很弱。还有一个声音告诉我，它是对的，但太艰难了，现在不是很舒服吗，走那条路即使努力了，也未必会如愿。是啊，前面是黑暗的，我为此而恐惧。我怕痛，于是我爬行。 我赋予自己的枷锁，其实也是在保护自己。 除非我变的勇敢起来，不再惧怕。 我非常非常需要一些勇气来改变现在。 是的，勇气，我要拥有它。 lmzzz 发表于 16:29 | 阅读全文 | 评论(0) | 引用Trackback(0) | 编辑 住在了新的宿舍里 -[默认分类] 时间：2004-10-24 20:04 这是第六次了，应该和往常一样，在陌生的地方睡觉，第一个晚上一定会失眠。 嗯，忽然有点茫然，不知道怎么回事？ 想起来了，离校后在外面第一个住所就在这附近，转眼四年多了，美好的时光啊。 我似乎变了些许，我哪里变了呢？ lmzzz 发表于 20:04 | 阅读全文 | 评论(0) | 引用Trackback(0) | 编辑 搬家 -[默认分类] 时间：2004-10-24 08:29 叫了一辆三轮车花了15元。通过这次搬家我发现体力比起两年前差了许多，还有在人民路上我回头看三轮车是否跟上来的时候，撞上两美女，不过还搬家比较重要,于是作罢.还有在回公司的路上，在路边看到一只哈巴狗，我迎面走过时，它的头微微向上，用眼角瞟了我一下，本也没什么，但我从它的眼神中看到一种不屑的神态，它为什么对我‘不屑’呢? lmzzz 发表于 08:29 | 阅读全文 | 评论(0) | 引用Trackback(0) | 编辑 又要搬家 -[默认分类] 时间：2004-10-20 09:25 我最不喜欢的两件事：离别、搬家。 意味着某一段时间或某一些事情告一段落，我不喜欢结尾。学生时代写作文时就这样，同学说看我写东西就有吸了一口气，吐不出来一样的感觉。我作事好像一直都是这样虎头蛇尾，为什么会这样呢。 今天状态不太好，low power。 lmzzz 发表于 09:25 | 阅读全文 | 评论(0) | 引用Trackback(0) | 编辑 对白 -[默认分类] 时间：2004-10-20 09:23 看来你的年纪也有四十出头了，这四十多年来，总有些事你是不愿再提，或是有些人你不想再见，有的人曾经对不起你，也许你想过要杀了他们，但是你不敢。哈，又或者你觉得不值，其实杀人，很容易。我有个朋友，他的武功非常好，不过最近生活有点困难，只要你随便给他一点银两，他一定可以帮你杀了那个人，你尽管考虑一下。其实杀一个不是很容易，不过为了生活，很多人都会冒这个险。 lmzzz 发表于 09:23 | 阅读全文 | 评论(0) | 引用Trackback(0) | 编辑 搜索引擎 -[默认分类] 时间：2004-10-14 06:55 公司又要做搜索引擎，真不知道BOSS到底要作什么，一会儿OA、一会CRM、现在又要搜索。就我自己一个人，他当我是天才。我的底货已给空了，加紧学习啊。 看来BOSS真的急了，不过术有专攻，他看一切都太简单了，觉得随便搞一搞行了，干什么都要专业才行啊，像这样什么也搞不成。 BOSS让我作什么就作什么，我还是继续我的道路吧， lmzzz 发表于 06:55 | 阅读全文 | 评论(0) | 引用Trackback(0) | 编辑 学习。。拼了 -[默认分类] 时间：2004-10-08 12:41 工作需要： 1.CRM知识及实例软件。 2.intraweb新版的掌握。 3.javascript知识及与intraweb的融合。 自身发展： 1.SQL Server。 2.Delphi对象。 3.Delphi对象实例。 学无止境啊。 哼，玩了命了。 lmzzz 发表于 12:41 | 阅读全文 | 评论(0) | 引用Trackback(0) | 编辑 要做个财务系统 -[默认分类] 时间：2004-09-28 07:08 要为公司做个简单的财务系统，录入业务员合同单后，算出每个人的业绩和工资，还要和以前的系统衔接，以前的是用asp做的提交到网上去，这是最大的问题我用delphi怎么和这个asp程序衔接呢? lmzzz 发表于 07:08 | 阅读全文 | 评论(0) | 引用Trackback(0) | 编辑 update -[默认分类] 时间：2004-09-27 16:47 为了让不再跑来跑去的给同事的更新客户资料管理程序，今天写了一个自动更新的程序，当检测到我的机器发布了新版本后就可以自动更新升级，真有成就感。 今天掌握了几个ini文件的读写函数和idhttp组件，感觉良好。呵呵。 unit supmain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, bsSkinData, BusinessSkinForm, bsSkinCtrls, StdCtrls, Mask, bsSkinBoxCtrls, bsMessages, IdBaseComponent, IdComponent, SWSystem,fmxutils, IdTCPConnection, IdTCPClient, IdHTTP, ExtCtrls; type Tupmain = class(TForm) bsBusinessSkinForm1: TbsBusinessSkinForm; bsSkinData1: TbsSkinData; bsCompressedStoredSkin1: TbsCompressedStoredSkin; message1: TbsSkinMessage; IdHTTP1: TIdHTTP; memo1: TbsSkinMemo; Timer1: TTimer; bsSkinPanel1: TbsSkinPanel; Image1: TImage; bsSkinStdLabel1: TbsSkinStdLabel; procedure Timer1Timer(Sender: TObject); private netpath,netver:string; procedure updatefile(); { Private declarations } public function versioncomp():boolean; { Public declarations } end; var upmain: Tupmain; implementation {$R *.dfm} function Tupmain.versioncomp():boolean; var ver,path:array[0..80] of char; selfver:string; begin getprivateprofilestring('NetPath','NetPath',nil,path,80,'./version.ini'); //取网络升级路径 netpath:=trim(path); getprivateprofilestring('Version','Version',nil,ver,4,'./version.ini'); //取本地配置版本号 selfver:=ver; if (selfver='') or (netpath='') then //取版本号异常判断 begin message1.MessageDlg('读配置文件失败.',mtInformation, [mbOk], 0); result:=false; exit; end; try netver:=idhttp1.Get(netpath+'updates.htm'); //取网络配置文件版本号 except message1.MessageDlg('读配置文件失败或网络错误.',mtInformation, [mbOk], 0); result:=false; exit; end; if strtofloat(netver)>strtofloat(selfver) then //比较版本号 begin if message1.MessageDlg('有更新的版本,要进行升级吗?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then result:=true else result:=false; end else begin message1.MessageDlg('没有更新的版本',mtInformation, [mbOk], 0); result:=false; end; end; procedure Tupmain.updatefile(); //升级过程 var filecount,i :integer; filename :array [0..20] of char; filelocation:string; //cdir,str1,str2:string; DownLoadFile:TFileStream; begin if not versioncomp then begin application.Terminate; exit; end; memo1.Lines.Clear; memo1.Lines.Add(idhttp1.Get(netpath+'updates.ini')); memo1.Lines.SaveToFile('.\updates.ini'); //下载upddates.ini文件 filecount:=GetPrivateProfileInt('Files','FileCount',0,'.\updates.ini'); if filecount=0 then begin end; memo1.Lines.Clear; for i:=1 to filecount do begin filelocation:='FileName'+inttostr(i); getprivateprofilestring('Files',PAnsiChar(filelocation),nil,filename,100,'.\updates.ini'); memo1.Lines.Add(filename); end; //从updates.ini中取得文件名列表 for i:=0 to filecount-1 do begin if fileexists(trim(gsAppPath+trim(memo1.Lines.Strings[i]))) then CopyFile(trim(gsAppPath+trim(memo1.Lines.Strings[i])),trim(gsAppPath+'oldfile'+trim(memo1.Lines.Strings[i]))); end; //按文件名列表备份文件至oldfile文件夹内 for i:=0 to filecount-1 do begin DownLoadFile:=TFileStream.Create(trim(gsAppPath+trim(memo1.Lines.Strings[i])),fmCreate); try IdHTTP1.Get(trim(netpath+trim(memo1.Lines.Strings[i])),DownLoadFile); except message1.MessageDlg('升级文件'+trim(memo1.Lines.Strings[i])+'不存在',mtInformation, [mbOk], 0); end; downloadfile.Free; end; //下载升级文件 WritePrivateProfileString('Version','Version',pansichar(netver),'./version.ini'); //写新版本号到version.ini中 message1.MessageDlg('程序更新完成',mtInformation, [mbOk], 0); application.Terminate; end; procedure Tupmain.Timer1Timer(Sender: TObject); begin timer1.Enabled:=false; updatefile(); end; end. lmzzz 发表于 16:47 | 阅读全文 | 评论(0) | 引用Trackback(0) | 编辑 野外生存训练 -[默认分类] 时间：2004-09-20 17:30 我们当然是活着回来了，意料之中，在回来的路上，大家情绪空前的高涨，一路唱着歌回来。回来后经交流，发现都有种很想吃肉的欲望。觉得看过一个论坛的帖子说得很有道理，在必备品中应有强力农药这一物品。 没人性啊。 lmzzz 发表于 17:30 | 阅读全文 | 评论(0) | 引用Trackback(0) | 编辑 野外生存训练 -[默认分类] 时间：2004-09-20 17:21 没人性啊ABCDEFG. lmzzz 发表于 17:21 | 阅读全文 | 评论(0) | 引用Trackback(0) | 编辑 整天活着干啥 -[默认分类] 时间：2004-09-15 20:45 真是不明白。 lmzzz 发表于 20:45 | 阅读全文 | 评论(1) | 引用Trackback(0) | 编辑 晴天 -[默认分类] 时间：2004-09-13 07:03 晴天，有肉，忌吃素。 lmzzz 发表于 07:03 | 阅读全文 | 评论(1) | 引用Trackback(0) | 编辑 分页: [1] [2] [3] [4] 分类 首页 默认分类 日历 2004 年 11 月 Sun Mon Tue Wen Thu Fri Sat 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 最后更新 原来你也在这里 继续 也许生活也是另外一个样子 住在了新的宿舍里 搬家 又要搬家 对白 搜索引擎 学习。。拼了 要做个财务系统 最新评论 rickhao : 就知道吃肉. 不会爱的欣欣 : 我也在思考这个问. 飘~ : 是此刻的心情吧~ . ghostshell : 每人都有一个小秘. rickhao : 瓦～ 好酷啊～～. rickhao : 猪啊. 存档 我的链接 郝郝 Hey Jewel 我的相册 后腰乱舔