27
5月
25
5月

日记繁多,质量之低,长此以往,博将不博!
07年各月日记数量比拼(截2007年5月24日)
1月份 10篇
2月份 5篇
3月份 4篇
4月份 8篇
5月份 12篇
07年各月日记质量比拼(截2007年5月24日)
1月份 10篇 其中原创1篇,影评3篇,流水账5篇,转载1篇
2月份 5篇 清一色流水账
3月份 4篇 其中原创2篇,流水账2篇
4月份 8篇 其中原创4篇,流水账4篇
5月份 12篇 其中原创3篇,影评1篇,流水账8篇
综合以上数据,原创包含:10篇;影评:4篇;流水账:24篇;转载:1篇.
由此得出结论.流水日记较多,原创较少.其中部分原创还是迫不得已..
总结,映证开头语:日记繁多,质量之低,长此以往,博将不博!
此数据截至到5月24日,今日日记不含在内.
18
5月
15
5月
今天在黄花塘搞了桩考...
第一个...那个压力啊...(千万别考第一个..N多人指望着你开个好头...万一不过..糗大了.也给了别人压力)
原本8点30开考的..结果我们驾校那破车...修到11点才修好...
上车,开考...第一次..移库,一激动.挂错了档...重来.
第二次,机器坏了...拆掉了.重来..
第三次,没意外...顺利过关...
狂汗.下车了全身都湿了...天气的热加上第三次..多少有点激动...进了休息厅才发现自己已经大汗淋漓..
结果出来碰到了监考官..一个劲的在那说不错不错...连来三次都能过...(PS:一般到了第二次的时候,都承受不了压力,通常情况下会出错.还好自己不那么紧张..嘿嘿)
这次的教训:下次路考再也不搞第一个.压力太大...教练,学员都关注着自己..要是没过,自己不说.给后面的人带来压力...不像那么回事...
第一个...那个压力啊...(千万别考第一个..N多人指望着你开个好头...万一不过..糗大了.也给了别人压力)
原本8点30开考的..结果我们驾校那破车...修到11点才修好...
上车,开考...第一次..移库,一激动.挂错了档...重来.
第二次,机器坏了...拆掉了.重来..
第三次,没意外...顺利过关...
狂汗.下车了全身都湿了...天气的热加上第三次..多少有点激动...进了休息厅才发现自己已经大汗淋漓..
结果出来碰到了监考官..一个劲的在那说不错不错...连来三次都能过...(PS:一般到了第二次的时候,都承受不了压力,通常情况下会出错.还好自己不那么紧张..嘿嘿)
这次的教训:下次路考再也不搞第一个.压力太大...教练,学员都关注着自己..要是没过,自己不说.给后面的人带来压力...不像那么回事...
14
5月
12
5月

今天天气不错.下午约了湖南站长群里面的一些朋友去了趟长沙动物园...
动物园除了臭还是臭..貌似上次去动物园还是小学..
整个动物园,包括看节目,1-2个小时就出来了...感觉太小.动物也太少...
不过总算带了相机去...以下放出今天的部分杰作..
11
5月

本打算3月份开始学习PHP,光湖南站长大会就够折磨了...所以一直拖到现在..
以前的 雨乔信息反馈系统 准备用PHP重写.顺便学习PHP...
第一次接触PHP.感觉不错.格式比较喜欢.也很严格.对自己写程序的格式还是比较恭维:)不过迎来一个比较严峻的问题,我写代码的格式一贯都是开头字母大写,而PHP对于开头大写字母的语法不识别..小汗一个...
注册公司的事如果在不出意外的情况下,应该是在今年年底或者明年年初了,So,有想帮忙的朋友可以联系我了.(具体走向就不在这里说明了.)
PS:手机号码已换:13873163636,以前那号码依然可以使用,只是接收不到短信.
AD:招聘PHP程序员,美工,工作地点:长沙,外地包吃住..有创业激情的兄弟姐妹们!!机会来了..具体信息请见:http://www.lngoo.com/Job/ProgramJob.Html
关机,睡觉!
9
5月
' 判断文件是否存在,存在返回True,反之为False
Function FileTrue(FPath)
Set Fs = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath(FPath)
If Fs.FileExists(File) Then
FileTrue = True
Else
FileTrue = False
End If
Set Fso = Nothing
End Function
' 建立文件夹
Function CreateAFolder(FileName)
Set Fso = CreateObject("Scripting.FileSystemObject")
MyFolder = Server.MapPath(""&FileName&"")
If Not Fso.FolderExists(MyFolder) Then
Fso.CreateFolder(MyFolder)
CreateAFolder = True
Else
CreateAFolder = False
End If
Set Fso = Nothing
End Function















