今日得知QQ十年，才想起原来我也已经互联网十年了。

我是98年下半年开始接触网络的，那时候刚从星际争霸中知道原来还有一个虚拟的世界叫互联网，由于周围没多少人玩互联网——这个时候的局域网游戏要比互联网好玩多了，因此自己也不知道该怎么去“玩”互联网。

99年的上半年开始接触聊天室，出于对网络的另一端的真实的人的好奇，那时候疯狂的聊天，也就是这个时候从聊友这里知道了OICQ，在用OICQ之前我也尝试过ICQ，由于ICQ老外用的比较多，用过一段时间后就放弃了。而OICQ虽然从界面和功能上完全仿照ICQ(坦白的说，我不觉得它仿制的比ICQ好)，但用的都是国人，于是我有了第一个5位数的QQ号码。那时候的QQ用的人并不多，而我的聊友主要也还是在聊天室里，渐渐的5位数的这个QQ号码就被我遗忘了，当用QQ的人越来越多，再次申请QQ号码的时候已经是六位数了，而这个号码我一直保留使用到现在。同年，在21cn我申请了我的第一个电子邮件lfj1999@21cn.com。

2000年开始，当身边越来越多的人沉迷于聊天的时候，我已经开始对制作个人主页充满了兴趣，也开始学习perl的网络编程——当时最流行的聊天室程序ETCHAT是PERL写的，我自己用这套程序搭建了一个聊天室，为了能更好的提供聊天服务，需要对程序做一些修改，不懂PERL是不行的。编程的世界很好玩，一山草堂、yuzi、花斑猪等等开始一一出现。

2001年ASP程序大行其道，由于ASP比PERL学起来简单，一时间各种各样的程序应用百花齐放。这时候有个人把一个ASP的聊天程序改造成了一个WEB游戏，它的名字叫江湖。伴随江湖也出现了一种网游商业模式——会员费。当然，我也小小的赚了一把。利用赚来的钱，曾经有短暂的互联网创业经历，可惜以失败而告终。

2002年，进入中国汽车网工作至今。

光阴荏苒，一回首，已十年。

相关文章

• 体验了一把手机上网的乐趣 (0)
• 中国网站最成熟最成功的商业模式 (1)
• 一个创业创意的分析 (2)
• 如何编写一个ASP类 (0)

《ASP设计模式》(作者 我佛山人)
首先ASP的类是由事件和方法（它们就是构成类的成员了）构成的，如果大家还没有接触过，可以先看看下面的说明：
在 Class 块中，成员通过相应的声明语句被声明为 Private(私有成员，只能在类内部调用) 或 Public(公有成员，可以在类内外部调用) 。被声明为 Private 的将只在 Class 块内是可见的。被声明为 Public 不仅在 Class 块的内部是可见的，对 Class 块之外的代码也是可见的。没有使用 Private 或 Public 明确声明的被默认为 Public。在类的块内部被声明为 Public 的过程（Sub 或 Function）将成为类的方法。Public 变量将成为类的属性，同使用 Property Get、Property Let 和 Property Set 显式声明的属性一样。类的缺省属性和方法是在它们的声明部分用 Default 关键字指定的。
请大家耐心看完上面的部分，下面我们来看一个例子：

[code]<% 
’//--------------------------------开始一个类---------------------------------// 
Class myClass 

’//----声明（声明就是定义）myClass类的类内部（私有的[Private]）变量 
Private strAuthor 
Private strVersion 
Private strExample 
’//---------------------------定义类的事件-------------------------------// 

’//----Class_Initialize()是类的初始化事件，只要一开始使用该类，首先会触发该部分的执行，下面我们会在该成员中初始化该类的作者和版本以及在屏幕上显示一下该类已经开始了 
Private Sub Class_Initialize() 
strAuthor = "coldstone" 
strVersion = "1.0" 
Response.Write "<br>myClass开始了<br>" 
End Sub 

’//----Class_Terminate()是类的结束事件，只要一退出该类，就会触发该事件，下面我们会该事件中设定退出该类时会在屏幕上显示该类已结束了。 
Private Sub Class_Terminate() 
Response.Write "<br>myClass结束了<br>" 
End Sub 
’//---------------------------用户自己定义的方法-------------------------------// 
’//----该方法返回一个版权信息 
Public Sub Information() 
Response.Write "<br>Coding By <a href=’mailto:coldstone@falsh8.cn’>coldstone</a> @ <a href=’http://www.flash8.net'>闪吧</a>.<br>" 
End Sub 
’//---------------------------定义类的输出属性-------------------------------// 
’//----定类的属性，该属性是让用户初始化strExapmle变量 
Public Property Let setExapmle(ByVal strVar) 
strExapmle = strVar 
End Property 
’//---------------------------定义类的输出属性-------------------------------// 
’//----定义类的属性，该属性是返回一个版本号 
Public Property Get Version 
Version = strVersion 
End Property 
’//----定义类的属性，该属性是返回该类的作者号 
Public Property Get Author 
Author = strAuthor 
End Property 
’//----定义类的属性，该属性是返回一个版本号 
Public Property Get Exapmle 
Exapmle = strExapmle 
End Property 

End Class 
%><% 
’//-------这里是使用该类的例子 
Dim oneNewClass 
Set oneNewClass = New myClass 
Response.Write "作者： "& oneNewClass.Author &" <br>" 
Response.Write "版本： "& oneNewClass.Version &" <br>" 
oneNewClass.setExapmle = "这是一个简单类的例子" 
Response.Write "用户自定义：" & oneNewClass.Exapmle &" <br>" 
oneNewClass.Information 
Set oneNewClass = Nothing 
%> 

相关文章

• 写在QQ十年 (1)