本页面由 Flash 保存计划 从 Internet Archive 存档还原 · 快照 2005-10-29 · 原址 http://bbs.flash8.net/blogs/df/default.aspx ← Flash 保存计划
<2006年2月>
2930311234
567891011
12131415161718
19202122232425
2627281234
567891011

公告

在黑暗里,每盏灯的熄灭,都是突然,都不需要过程,都会像场誓不回头的逃离,捕捉不及。曾经微笑的人,闭上眼睛;曾经幸福的故事,闭上眼睛。灯是每一个黑夜、每一所房子,睁开又闭上的眼睛,犹如每个人的青春,镶在生命的中间,来了又去。

随笔分类

文章分类

订阅

广告位招租

无可奉告
李宇春----首张专辑[庆祝FM重开]

FM终于修好了,据老古称,使用了新技术读取音乐,速度更快。

于是PDPD跑上来听,打开页面,一眼看到上面的专辑轮换宣传动画,赫然出现李宇春的新专辑宣传。

好奇之下点来听听,老实说,我很后悔这次点击,非常的后悔。

真是大千世界无奇有,FRJJ和李宇春这样的人都出名了,看看她们的Fans都是什么人?是谁捧红了她们?

对于我来说,一个靠出卖肥肉,一个靠出卖生理残疾,半斤八两的两人,造就了2005年火热的一夏。

[声明:本文仅代表本人喜恶,与FRJJ和LYC无关]

发布于 2006年2月8日 11:34   由 我佛山人   有 2 篇评论
ASP控件状态模拟(VBScript/JScript实现)

还有点问题,有兴趣的帮我找找

 J S C r i p t:

<%@Language="JScript" CodePage="936"%> <% String.prototype.format = function(){ var tmpStr = this; var iLen = arguments.length; for(var i=0;i<iLen;i++){ tmpStr = tmpStr.replace(new RegExp("\\{" + i + "\\}", "g"), arguments[i]); } return tmpStr; } function TextBox(){ // Private Fields Begin var _className, _style; var _id = "TextBox1"; var _text = ""; var _mode = "text"; var _enableViewState = true; // Private Fields End // Public Properties Begin this.ID = function(){ if(arguments.length > 0) _id = arguments[0]; else return _id; } this.ClassName = function(){ if(arguments.length > 0) _className = arguments[0]; else return _className; } this.Text = function(){ if(arguments.length > 0) _text = arguments[0]; else { if(_enableViewState){ if(Request.Form(_id) && Request.Form(_id) != ""){ _text = Request.Form(_id); } else if(Request.QueryString(_id) && Request.QueryString(_id) != ""){ _text = Request.QueryString(_id); } } if(!_text) _text = ""; return _text; } } this.Mode = function(){ if(arguments.length > 0) _mode = arguments[0]; else return _mode; } this.Style = function(){ if(arguments.length > 0) _style = arguments[0]; else return _style; } this.EnableViewState = function(){ if(arguments.length > 0) _enableViewState = arguments[0]; else return _enableViewState; } // Public Properties End // Public Methodes Begin this.toString = function(){ return ''.format(this.ID(), this.Mode(), this.Text() || ""); } // Public Methodes End // Initialize this.constructor = function(){ var args = arguments; if(args.length > 0){ this.ID(args[0]); } if(args.length > 1) this.ClassName(args[1]); if(args.length > 2) this.Text(args[2]); if(args.length > 3) this.Mode(args[3]); if(args.length > 4) this.Style(args[4]); if(args.length > 5) this.EnableViewState(args[5]); } if(arguments.length > 0) this.constructor.apply(this, Array.prototype.slice.call(arguments, 0)); } var demo = new TextBox("demo"); %> <form method="post"> <%=demo%> <input type="submit" /> form>


 

V B S c r i p t:

<%@Language="VBScript" CodePage="936"%> <% Option Explicit Class TextBox Private IID Private IClassName Private IText Private IMode Private IStyle Private IEnableViewState 'ID Public Property Let ID(ByVal Value) IID = Value End Property Public Property Get ID() ID = IID End Property 'ClassName Public Property Let ClassName(ByVal Value) IClassName = Value End Property Public Property Get ClassName() ClassName = IClassName End Property 'Text Public Property Let Text(ByVal Value) IText = Value End Property Public Property Get Text() If EnableViewState Then If IsNull(IText) Or IsEmpty(IText) Then If Request.Form(Me.ID) <> "" Then IText = Request.Form(Me.ID) ElseIf Request.QueryString(Me.ID) <> "" Then IText = Request.QueryString(Me.ID) End If End If End If Text = IText End Property 'Mode Public Property Let Mode(ByVal Value) IMode = Value End Property Public Property Get Mode() Mode = IMode End Property 'Style Public Property Let Style(ByVal Value) IStyle = Value End Property Public Property Get Style() Style = IStyle End Property 'EnableViewState Public Property Let EnableViewState(ByVal Value) IEnableViewState = CBool(Value) End Property Public Property Get EnableViewState() EnableViewState = IEnableViewState End Property Private Sub Class_Initialize() ID = "TextBox1" Mode = "text" EnableViewState = True End Sub Private Sub Class_Terminate() End Sub Public Function Init(ByVal Params) If IsArray(Params) Then Dim l : l = UBound(Params) + 1 Dim i For i = 0 To l Select Case i Case 0 : ID = Params(i) Case 1 : ClassName = Params(i) Case 2 : Text = Params(i) Case 3 : Mode = Params(i) Case 4 : Style = Params(i) Case 5 : EnableViewState = Params(i) End Select Next Else If Not(IsNull(Params) Or IsEmpty(Params)) Then ID = Params End If End If Init = Me End Function Public Sub Display() Dim Str If Mode = "MultiLine" Then Str = "<SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">&</SPAN><SPAN style="COLOR: #000000"> ID </SPAN><SPAN style="COLOR: #000000">&</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000">"" name=""</SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">&</SPAN><SPAN style="COLOR: #000000"> ID </SPAN><SPAN style="COLOR: #000000">&</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000">"""</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #0000ff">Else</SPAN><SPAN style="COLOR: #000000"> Str </SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000"><input id=""</SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">&</SPAN><SPAN style="COLOR: #000000"> ID </SPAN><SPAN style="COLOR: #000000">&</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000">"" name=""</SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">&</SPAN><SPAN style="COLOR: #000000"> ID </SPAN><SPAN style="COLOR: #000000">&</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000">"" type=""</SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">&</SPAN><SPAN style="COLOR: #000000"> Mode </SPAN><SPAN style="COLOR: #000000">&</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000">"" value=""</SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">&</SPAN><SPAN style="COLOR: #000000">Text </SPAN><SPAN style="COLOR: #000000">&</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000">"""</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #0000ff">End</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000"> ClassName </SPAN><SPAN style="COLOR: #000000"><></SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">""</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #0000ff">Then</SPAN><SPAN style="COLOR: #000000"> Str </SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000"> Str </SPAN><SPAN style="COLOR: #000000">&</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000"> class=""</SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">&</SPAN><SPAN style="COLOR: #000000"> ClassName </SPAN><SPAN style="COLOR: #000000">&</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000">"""</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #0000ff">End</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000"> Style </SPAN><SPAN style="COLOR: #000000"><></SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">""</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #0000ff">Then</SPAN><SPAN style="COLOR: #000000"> Str </SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000"> Str </SPAN><SPAN style="COLOR: #000000">&</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000"> style=""</SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">&</SPAN><SPAN style="COLOR: #000000"> Style </SPAN><SPAN style="COLOR: #000000">&</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000">"""</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #0000ff">End</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #0000ff">If</SPAN><SPAN style="COLOR: #000000"> Mode </SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000">MultiLine</SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #0000ff">Then</SPAN><SPAN style="COLOR: #000000"> Str </SPAN><SPAN style="COLOR: #000000">=</SPAN><SPAN style="COLOR: #000000"> Str </SPAN><SPAN style="COLOR: #000000">&</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000">></SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">&</SPAN><SPAN style="COLOR: #000000">Text </SPAN><SPAN style="COLOR: #000000">&</SPAN><SPAN style="COLOR: #000000"> </SPAN><SPAN style="COLOR: #000000">"</SPAN><SPAN style="COLOR: #000000">" Else Str = Str & " />" End If Response.Write Str End Sub End Class Dim demo : Set demo = New TextBox demo.ID = "demo" demo.EnableViewState = True demo.Style = "font:bold 12px Tahoma;color:green;border:1px solid #333" Dim demo1 : Set demo1 = New TextBox demo1.ID = "wfsr" demo1.Mode = "MultiLine" demo1.EnableViewState = True demo1.Style = "font:bold 12px Tahoma;color:green;border:1px solid #333" %> <form method="post"> <%demo.Display%><br /> <%demo1.Display%><br /> <% Dim t : Set t = new TextBox t.Init(Array("dd", "c")).Display %> <input type="submit" style = "font:bold 12px Tahoma;color:green;border:1px solid #333;background:#fff" /> form>


 

发布于 2006年2月4日 17:02   由 我佛山人   有 1 篇评论
晕,fangyun在干嘛?

满屏的复制过来的东西,充斥着blog首页,何苦?

发布于 2006年2月3日 17:53   由 我佛山人   有 4 篇评论
有惊无险

热,出奇的热。
热并不奇怪,奇怪的是现在还是大年初四。
前面是转弯兼下坡。
突然,车身开始左右晃动,呈S形左右摇摆前进,加上叱叱声不断。
行进近五米,车子停了下来,原来竟是爆胎。
假设一:车子高速行驶中,后胎突然爆裂,车子无法突止,后果不堪设想......
假设二:S形刹车时,后面有快车追来,后果不堪设想......
事实上,假设一和假设二都没有发生,实在是不幸中的大幸。否则,我黄氏一门,香火难续.....
想我兄弟二人,平生不做亏心事,何以至此?

这次事故,细究起因,或许是因为天气骤热,或许是因为车子弃用了一阵,又或许是某些小人在作怪(寒)......
难道本命年过了,运气还依旧?

发布于 2006年2月1日 23:49   由 我佛山人   有 3 篇评论
获取汉字拼音首字母[C#]
做查询和排序时有用
发布于 2006年1月19日 18:39   由 我佛山人   有 2 篇评论
JavaScript比较郁闷的问题 票数 优秀 [5 out of 5]。
1.alert(0=="") 结果是true 2.alert(NaN == NaN) 结果是false 然后跑经典Coder群里和那帮BT交流,引申出更多BT的事:alert(null + 1); //returns 1 alert(undefined + 1); //returns NaN 以下为部分聊天记录:2006-01-09 15:28:37 我佛山人 晕 BLOCKED SCRIPTalert(0 == "") 2006-01-09 15:29:
发布于 2006年1月19日 17:06   由 我佛山人   有 1 篇评论
郁闷的一天

温馨提示:你正在浏览的是blog日志而非论坛帖子.

严重声明:今天是 团团 的大好日子,我郁闷跟小寿星无关,特此声明.

忘了是谁说的真理:当兴趣变成了工作,就失去了作为兴趣的快乐.我就是一个明证.今天一天的郁闷也源于此.

从同事手上转接下来的工作,就是按美工设计的界面升级修改旧论坛.这个论坛作者大言不惭,号称高效论坛解决方案,并且在代码质量、运行效率,负载能力,安全等级,功能可操控性等方面都经过严密的测试.颇有点王婆卖瓜的味道.我只知道,这结构化的程序逻辑写得极其混乱,并且中文字中出现不下三处的错字,用某人的话说,这个技术员一点都不严谨.

本以为凭我的经验,这不过是三两天的事,然后年前就可以没事干天天上来吹牛灌水了.然而今年(阴历)的我,每每事与愿违,这个东西做下来,居然要浪费我差不多一周的时间,最后实在烦了,扔回给同事,不想再插手.

不过最终还是接回来了,没办法,同事现在是公司主要业务的开发主力.为了这破论坛阻碍公司业务发展,这个责任某某可是担当不起.

郁闷的时间开始于中午,好不容易搞定,上线,升级,这时恶梦开始了,整个下午就在不断的发现问题解决问题中度过,期间经受Radmin远程连接的蜗牛速度和v6版主群无聊信息的骚扰.想上FM听音乐,发现象是回到了驱猫上网的年代.老古告之,自交换机接口换过后,速度就开始不正常. [不知道老古是谁?我也不知道,点这儿算了其实我也不知道]

末了,Q上又被某人刺激,他是大大的坏,落井下石,诚心要让我郁闷至少一个月.

最后,祝团团生日快乐吧.

扩展存储过程
因为Sql Server不支持正则,对字符的处理无法按需求实现,所以打起扩展存储的主意. 首先,用C#写个接口,这个接口规范暂时无法找到相关文档,代码如下:using System; using System.Runtime.InteropServices; using System.Reflection; using System.Runtime.CompilerServices; using System.Text.RegularExpressions; [assem
发布于 2006年1月17日 16:54   由 我佛山人   有 1 篇评论
关于AJAX[引子篇]

AJAX的兴起,得益于Google。

继Google推出GMail,Google maps,Google Group等AJAX应用后,各巨头也纷纷效仿,乃至于今天的AJAX,成了业界的李宇春,所谓谈必AJAX,言定AJAX,莫过于此。

AJAX何方神圣,以至于大家纷纷追捧?无他,惟炒作耳。有不屑者如是说。

其实AJAX并不新鲜,有人称之为旧瓶装新酒,它的英文全称是Asynchronous JavaScript and XML,即异步JavaScript与XML,它的无刷新交互是一大亮点,为Web2.0时代的RIA应用增色不少,然而,One Coin,Two Sides,它的无URL状态和对Spider的极度不友好也是AJAX反对阵营的支撑观点,为人垢病。

Jesse James Garrett不知道算不算AJAX之父,他对AJAX的定义是这样的:

Ajax isn’t a technology. It’s really several technologies, each flourishing in its own right, coming together in powerful new ways. Ajax incorporates:

我觉得,AJAX虽然没有吹捧者所说的如何如何,却也没有反对者所说的不堪。URL状态问题是个矛盾,如果要用URL及参数识别内容,就不是无刷新;如果需要无刷新,URL就不能有任何变动。不过,不知道有没有人注意过URL中的锚?它不会引起页面的刷新,然而在脚本中可以监测到它的改变,继而触发相应动作。再不行,还有Cookie呢,每一项操作,都把它写到小甜饼上,我想,现在不支持Cookie的浏览器应该和禁用浏览器Cookie的用户都不应该成为阻碍AJAX发展壮大的理由。

(To be continued...)

发布于 2006年1月17日 0:05   由 我佛山人   有 7 篇评论
阳光灿烂的日子

又是阴天。

然而有阳光。

阿牛盼星星昐月亮,终于也盼来了阳光。

阳光是个女孩。

阿牛是我同事兼室友。

阳光很阳光,成熟,有气质,阿牛也一定很认同我的意见。

阿牛很壮,满身肌肉。我们一起在水专打篮球时,阿牛的肌肉是全场小女生的焦点,加上动作好看--就是不进球(这是某个女生说的),简直成了篮球场上一道靓丽的风景线。这也是公司上下公认的事实。

于是,故事发生了。

... ...
... ...
(此外省略故事过程描述约五千字)

晚上,阿牛做厅长。

可怜的阿牛,不过,在这阳光灿烂的日子,他该是痛并快乐着。

阿门!

 

发布于 2006年1月16日 23:02   由 我佛山人   有 4 篇评论
创意CSS
不要总是埋怨某个技术的落后没用,其实,之所以没用,是限于你的创意而已,当初XMLHTTP谁会想到成为AJAX的核心?下面这个CSS,如果再中上AJAX实现后台提交,那又将是什么样的光景?<ul class='star-rating'> ><a href='#' title='Rate this 1 star out of 5' class='one-star'>1 ><a href='#' title='Rate this 2 stars o
发布于 2006年1月15日 19:51   由 我佛山人   有 2 篇评论
又是下雨天

很久没写过东西了,也忘了上次提笔,是什么时候的事,只觉得,没了斗意,倦态毕露.加上周末,兼且下雨,这更让我有理由赖在床上.

我想让自己再次入睡,然而我发现根本是徒劳,看着窗外这雨,思绪也总是回到从前.

记得网上有调查,七十年代的人的特点其中之一是怀旧.我想,我也应该是七十年代的人,不然,何以变得越来越喜欢怀旧?

或许是年岁渐长之故,又或者仅仅是某些事让我无法忘怀.

甜蜜之事,化作白纸黑字,0和1,并不见得如何甜蜜,而悲伤,一旦通过种种方式记录下来,那伤痛,那委屈,便加倍的折磨着你.

特意到FM搜索了周启生的"又是下雨天",发现原来人类雨天的诠释和感受其实是一致的,这让我越发无奈起来.

然而,我喜欢这雨天,一如喜欢黑夜的漫长,漫漫长夜,让我有逃避的理由,雨天却让我有时间清洗伤口.

发布于 2006年1月15日 18:20   由 我佛山人   有 9 篇评论
放假回家前最后一篇
很快就可以回家了阿 福建的来顶贴阿!
发布于 2006年1月15日 0:10   由 koaqiu   有 7 篇评论
ASP三层架构中的事件处理/表单提交(3)
3.表单数据读取/校验 按上一步骤,表单将转交给下面的实例类处理: /Action/News.asp <!--#include virtual="/Class/Package.asp"--> <!--#include virtual="/Class/Bll/News.asp"--> <!--#include virtual="/Class/Bll/Admin.asp"--> <% Class ActionNews Priv
发布于 2006年1月13日 13:31   由 我佛山人   有 0 篇评论
ASP三层架构中的事件处理/表单提交(2)
2.表单处理中转/工厂 在(1)中可以看到表单设置中的action值是/action/?actionID=<%=action%>,其实就是提交到这个文件(index.asp作为网站默认文档的情况下) /Action/index.asp <!--#include file="ActionFactory.asp"--> <% Dim af : Set af = New ActionFactory With af .Execute() End
发布于 2006年1月13日 13:30   由 我佛山人   有 0 篇评论