Happy Birthday!


Today is my birthday,it is also the birthday for the Party and the memorial of Hong Kong regressive to my motherland and so on.First,I hope my motherland will be powerful increasingly,Hong Kong will be prosperity increasingly.I feel pride and happiness for this day is also my birthday!

Then happy birthday to me!

When the time was about 0 o'clock,I got a message from my baby Miss Tang,this is the fir...


16年前7月1日 阅读:94 评论:1

Happy Birthday


Today is my birthday,it is also the birthday for the Party and the memorial of Hong Kong regressive to my motherland and so on.First,I hope my motherland will be powerful increasingly,Hong Kong will be prosperity increasingly.I feel pride and happiness for this day is also my birthday!

Then happy birthday to me!

When the time was about 0 o'clock,I got a message from my baby Miss Tang,this is the ...

16年前7月1日 阅读:108 评论:0

今生来世


佛告诉我们:轮回……
神告诉我们:宿命……
而智者告诉我们:整个宇宙,包括诸神,都仅仅是幻象而已。


17年前6月26日 阅读:120 评论:0

关于上帝的十则笑话


1、一个神父在打高尔夫球,一个修女在旁边观看,第一杆打偏了,神父骂道:“TMD,打偏了!”又打,神父又骂:“TMD,又打偏了!”修女说:“你做为神父说脏话上帝要惩罚的。”话音刚落,只听一个霹雷把修女给劈死了。神父纳闷了:为什么骂人的是我,为什么会劈死修女呢?这时只听天空传来上帝的声音:“TMD,我也打偏了!”

2、信徒:“万能的上帝啊,一万年对您来说是多长呢?”
上帝:“我眨一下眼的功夫。”
信徒:“那么10亿元钱呢?”
上帝:“不过是我的一根头发而已。”
信徒:“哦,慈悲的上帝啊,那就请您给我一根头发吧。”
上帝:“没问题,等我眨一下眼之后给你。”

3、中日韩三国足球队主教练一起来到天堂,询问上帝各自的足球队什么时候才能得世界杯冠军,上帝说:韩国需要50年。韩国教练大哭起来:我是见不到了。上帝又说:日本需要100年。日本教练大哭起来:我是见不到了。中国教练连忙问:我们呢?上帝大哭起来:我是见不到了。

4...


17年前6月18日 阅读:96 评论:0

获取字符串长度的函数(ASP/VB/JS)


function strLen(str){      
	var len=0;      
	for(var i=0;i<str.length;i++){      
		var intCode=str.charCodeAt(i);      
		if(intCode>=0 &amp;&amp; intCode<=128){      
			len = len + 1;      
		}else{      
			len = len + 2;      
		}      
	}      
    return len;      
}



Private Function Length(iTxt)   
	Dim txt: txt = Trim(iTxt)   
	Dim x: x = Len(txt)   
...


17年前6月7日 阅读:204 评论:0

图解浩淼时空,从10亿光年到0.1飞米


神奇的宇宙,神奇的世界!下面就来慢慢体验吧~



17年前4月24日 阅读:205 评论:0

VB将域名转换成IP地址


Option Explicit   
  
Private Type HOSTENT   
	hName As Long  
	hAliases As Long  
	hAddrType As Integer  
	hLength As Integer  
	hAddrList As Long  
End Type   
  
Private Type WSADATA   
	wversion As Integer  
	wHighVersion As Integer  
	szDescription(0 To 256) As Byte  
	szSystemStatus(0 To 128) As Byte  
	iMaxSockets As Integer  
	iMaxUdpDg As Integer  
	lpszVendorInfo As Long...


17年前4月8日 阅读:301 评论:0

VB获取系统运行时间


Private Declare Function GetTickCount&amp; Lib "kernel32" ()   
  
Dim a As Long  
Dim b As Long  
Dim c As Long  
Dim d As Long  
Dim e As Long  
  
Private Sub Form_Load()   
	'   
End Sub  
  
Private Sub Timer1_Timer()   
	a = GetTickCount \ 1000   
	b = GetTickCount \ 1000 \ 60   
	c = GetTickCount \ 1000 \ 60 \ 60   
	d = (a - c * 3600) \ 60   
	e = a - b * 6...


17年前4月5日 阅读:168 评论:0

除夕


今天是除夕,上午十点多去上班。中午就下班了,去逛超市,买些泡面吃。发现买吃的店太少了,我开着车转了好多地方都没吃的。。。我还没吃中午饭呢。最后在一个小巷子里发现了一家拉面店,真是个大发现!下午在家里上网,晚上看春晚!~


17年前2月18日 阅读:190 评论:0

除夕


今天是除夕,上午十点多去上班。中午就下班了,去逛超市,买些泡面吃。发现买吃的店太少了,我开着车转了好多地方都没吃的。。。我还没吃中午饭呢。最后在一个小巷子里发现了一家拉面店,真是个大发现!下午在家里上网,晚上看春晚!~

17年前2月18日 阅读:141 评论:0

顶部