是庞升东白痴呢,还是他当所有用户都是白痴呢?

该日志由 Kevin 发表于 2006, May 22, 9:43 PM

号称20万同时在线, 看看下面的生成页面, 就知道庞升东是如何的"无耻"惯了!

http://www.51.com/user/work/online_total.php

document.all.online.innerText='219114';

刷新上面的页面会得到不断变化的"在线人数", 问题在于, 以下两行代码是我在连续刷新时得到的, 按F5的时间间隔我们暂且算为1秒吧, 1秒中在线人数就有40073的变化数, 真是让人不佩服啊!

document.all.online.innerText='251515';

document.all.online.innerText='211442';

终于"看"完了04年买的书!

该日志由 Kevin 发表于 2006, May 22, 5:04 PM

这几天利用坐车的时间, 终于囫囵吞枣般的"浏览"完了前年买来的书, 《PHP4开发指南》,Bill McCarty著的那本,书是好书,但是从04年买来,都是断断续续的看几页,不过开心的是,这次再回过来看,竟然觉得比之前容易消化好多,本来觉得这两年来自己这方面是没有任何进步的,但是这次看来,进步还是有的,润物细无声啊,哈!

无法访问Gmail. 请检查您的互联网链接,然后重试.

该日志由 Kevin 发表于 2006, May 22, 4:58 PM

无法访问Gmail. 请检查您的互联网链接,然后重试.

一个下午了, 可以登陆Gmail,但是一点右边的链接想看邮件内容的话, 就弹出以上提示!

又是封锁? 在中国, "本土化"并不仅仅指技术和设计方面, 更微妙更重要的是指, 手段!

2006世界杯电视转播表

该日志由 Kevin 发表于 2006, May 22, 2:06 PM

日期 时间 对阵 组别 电视台 场次
6月10日

星期六
00:00 德国 VS 哥斯达黎加 A组 CCTV-1/CCTV-5 1
03:00 波兰 VS 厄瓜多尔 A组 CCTV-1/CCTV-5 2
21:00 英格兰 VS 巴拉圭 B组 CCTV-5 3
6月11日

星期日
00:00 特立尼达和多巴哥 VS 瑞典 B组 CCTV-1/CCTV-5 4
03:00 阿根廷 VS 科特迪瓦 C组 CCTV-1/CCTV-5 5
21:00 塞黑 VS 荷兰 C组 CCTV-5 6
6月12日

星期一
00:00 墨西哥 VS 伊朗 D组 CCTV-1/CCTV-5 7
03:00 安哥拉 VS 葡萄牙 D组 CCTV-1/CCTV-5 8
21:00 澳大利亚 VS 日本 F组 CCTV-5 12
6月13日

星期二
00:00 美国 VS 捷克 E组 CCTV-1/CCTV-5 10
03:00 意大利 VS 加纳 E组 CCTV-1/CCTV-5 9
21:00 韩国 VS 多哥 G组 CCTV-5 14
6月14日

星期三
00:00 法国 VS 瑞士 G组 CCTV-1/CCTV-5 13
03:00 巴西 VS 克罗地亚 F组 CCTV-1/CCTV-5 11
21:00 西班牙 VS 乌克兰 H组 CCTV-5 15
6月15日

星期四
00:00 突尼斯 VS 沙特阿拉伯 H组 CCTV-1/CCTV-5 16
03:00 德国 VS 波兰 A组 CCTV-1/CCTV-5 17
21:00 厄瓜多尔 VS 哥斯达黎加 A组 CCTV-5 18
6月16日

星期五
00:00 英格兰 VS 特立尼达和多巴哥 B组 CCTV-1/CCTV-5 19
03:00 瑞典 VS 巴拉圭 B组 CCTV-1/CCTV-5 20
21:00 阿根廷 VS 塞黑 C组 CCTV-5 21
6月17日

星期六
00:00 荷兰 VS 科特迪瓦 C组 CCTV-1/CCTV-5 22
03:00 墨西哥 VS 安哥拉 D组 CCTV-1/CCTV-5 23
21:00 葡萄牙 VS 伊朗 D组 CCTV-5 24

6月18日

星期日

00:00 捷克 VS 加纳 E组 CCTV-1/CCTV-5 26
03:00 意大利 VS 美国 E组 CCTV-1/CCTV-5 25
21:00 日本 VS 克罗地亚 F组 CCTV-5 28

6月19日

星期一

00:00 巴西 VS 澳大利亚 F组 CCTV-1/CCTV-5 27
03:00 法国 VS 韩国 G组 CCTV-1/CCTV-5 29
21:00 多哥 VS 瑞士 G组 CCTV-5 30

6月20日

星期二

00:00 沙特阿拉伯 VS 乌克兰 H组 CCTV-1/CCTV-5 32
03:00 西班牙 VS 突尼斯 H组 CCTV-1/CCTV-5 31
22:00 厄瓜多尔 VS 德国 A组 CCTV-5 33
22:00 哥斯达黎加 VS 波兰 A组 CCTV-2 34

6月21日

星期三

03:00 瑞典 VS 英格兰 B组 CCTV-5 35
03:00 巴拉圭 VS 特立尼达和多巴哥 B组 CCTV-1 36
22:00 葡萄牙 VS 墨西哥 D组 CCTV-5 39
22:00 伊朗 VS 安哥拉 D组 CCTV-2 40

6月22日

星期四

03:00 荷兰 VS 阿根廷 C组 CCTV-5 37
03:00 科特迪瓦 VS 塞黑 C组 CCTV-1 38
22:00 捷克 VS 意大利 E组 CCTV-5 41
22:00 加纳 VS 美国 E组 CCTV-2 42

6月23日

星期五

03:00 日本 VS 巴西 F组 CCTV-5 43
03:00 克罗地亚 VS 澳大利亚 F组 CCTV-1 44
22:00 沙特阿拉伯 VS 西班牙 H组 CCTV-2 47
22:00 乌克兰 VS 突尼斯 H组 CCTV-5 48

6月24日

星期六

03:00 多哥 VS 法国 G组 CCTV-1 45
03:00 瑞士 VS 韩国 G组 CCTV-5 46

 

日期 时间 对阵 组别 电视台 场次

6月24日

星期六

23:00 A1 VS B2 1/8决赛 CCTV-2/CCTV-5 49

6月25日

星期日

03:00 C1 VS D2 1/8决赛 CCTV-1/CCTV-5 50
23:00 B1 VS A2 1/8决赛 CCTV-2/CCTV-5 51

6月26日

星期一

03:00 D1 VS C2 1/8决赛 CCTV-1/CCTV-5 52
23:00 E1 VS F2 1/8决赛 CCTV-2/CCTV-5 53

6月27日

星期二

03:00 G1 VS H2 1/8决赛 CCTV-1/CCTV-5 54
23:00 F1 VS E2 1/8决赛 CCTV-2/CCTV-5 55

6月28日

星期三

03:00 H1 VS G2 1/8决赛 CCTV-1/CCTV-5 56

6月30日

星期五

23:00 49胜者 VS 50胜者 1/4决赛 CCTV-2/CCTV-5 57

7月1日

星期六

03:00 53胜者 VS 54胜者 1/4决赛 CCTV-1/CCTV-5 58
23:00 51胜者 VS 52胜者 1/4决赛 CCTV-1/CCTV-5 59

7月2日

星期日

03:00 55胜者 VS 56胜者 1/4决赛 CCTV-1/CCTV-5 60

7月5日

星期三

03:00 57胜者 VS 58胜者 半决赛 CCTV-1/CCTV-5 61

7月6日

星期四

03:00 59胜者 VS 60胜者 半决赛 CCTV-1/CCTV-5 62

7月9日

星期日

03:00 61负者 VS 62负者 3、4名决赛 CCTV-1/CCTV-5 63

7月10日

星期一

02:00 61胜者 VS 62胜者 决赛 CCTV-1/CCTV-5 64

xhtml+css+js模拟键盘效果

该日志由 Kevin 发表于 2006, May 22, 2:04 PM

离婚律师的名片

该日志由 Kevin 发表于 2006, May 22, 2:00 PM

离婚其实就是将组合在一起的一个整体分为两部分,就如这张名片一样,两个人各拿一半。分开的不仅仅是律师的名片,也包括即将划分的两个人的财产,以及整个家庭... ...

 

远程引用163网易相册的代码[ASP+PHP]

该日志由 Kevin 发表于 2006, May 22, 1:55 PM

例如你的163相册里有张图片地址是http://img330.photo.163.com/siyizhu/42052519/1131811590.jpg
如果直接在其他网站或者论坛的贴图框框的地址里填http://img330.photo.163.com/siyizhu/42052519/1131811590.jpg这样发出来,
肯定显示红叉叉
但只要在图片地址前面加上http://siyizhu.com/temp/photo/?url=
即,贴图图片的地址中填http://siyizhu.com/temp/photo/?url=http://img330.photo.163.com/siyizhu/42052519/1131811590.jpg
OK 大功告成,你的网易相册中的图片就可以显示在其他网站了
ASP版:
<%
Dim urlbodymyCache

url 
Request.QueryString("url")

Set myCache = new cache
myCache
.name = "picindex"&url
If myCache.valid Then
body 
myCache.value
Else
body GetWebData(url)
myCache.add body,dateadd("d",1,now)
End If

If 
Err.Number 0 Then
Response
.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite body
Response
.Flush
Else
Wscript.Echo Err.Description
End 
if

&
apos;取得数据
Public Function GetWebData(ByVal strUrl)
Dim curlpath
curlpath 
Mid(strUrl,1,Instr(8,strUrl,"/"))
Dim Retrieval
Set Retrieval 
Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", strUrlFalse,"",""
.
setRequestHeader "Referer", curlpath
.Send
GetWebData 
=.ResponseBody
End With
Set Retrieval 
Nothing
End 
Function


&
apos;cache类

class Cache
private obj 'cache内容
private expireTime '过期时间
private expireTimeName '过期时间application名
private cacheName 'cache内容application名
private path 'url

private sub class_initialize()
path=request.servervariables("url")
path=left(path,instrRev(path,"/"))
end sub

private sub class_terminate()
end sub

public property get blEmpty
'是否为空
if isempty(objthen
blEmpty
=true
else
blEmpty=false
end 
if
end property

public property get valid
'是否可用(过期)
if 
isempty(obj) or not isDate(expireTimethen
valid
=false
elseif CDate(expireTime)<now then
valid
=false
else
valid=true
end 
if
end property

public property let name(str)
&
apos;设置cache名
cacheName
=str &amppath
obj
=application(cacheName)
expireTimeName=str & "expires" &amppath
expireTime
=application(expireTimeName)
end property

public property let expires(tm)
&
apos;重设置过期时间
expireTime
=tm
application
.lock
application
(expireTimeName)=expireTime
application
.unlock
end property

public sub add(var,expire)
&
apos;赋值
if isempty(var) or not isDate(expirethen
exit sub
end 
if
obj=var
expireTime=expire
application
.lock
application
(cacheName)=obj
application
(expireTimeName)=expireTime
application
.unlock
end sub

public property get value
'取值
if isempty(obj) or not isDate(expireTimethen
value
=null
elseif CDate(expireTime)<now then
value
=null
else
value=obj
end 
if
end property

public sub makeEmpty()
&
apos;释放application
application
.lock
application
(cacheName)=empty
application(expireTimeName)=empty
application.unlock
obj
=empty
expireTime=empty
end sub

public function equal(var2)
&
apos;比较
if typename(obj)<>typename(var2then
equal
=false
elseif typename(obj)="Object&quotthen
if obj is var2 then
equal
=true
else
equal=false
end 
if
elseif 
typename(obj)="Variant()&quotthen
if join(obj,"^")=join(var2,"^") then
equal
=true
else
equal=false
end 
if
else
if 
obj=var2 then
equal
=true
else
equal=false
end 
if
end if
end function
end class
%&
gt;
PHP版:
<an>php
/**********************************************************************
突破防盗链的显示图片标签[simg],PHP程序部分
作者:t1000
开发论坛:水客坊论坛
http://xyz-hunter.ful.cn
http://xyz-hunter.paangood.com
*********************************************************************/
ob_start();
$img=$_GET['url'];

$host=$path=str_replace('http://','',$img);
$host=explode('/',$host);
$host=$host[0];
$path=strstr($path,'/');
$fp fsockopen($host80$errno$errstr30);
if (
$fp)
{
@
fputs($fp, "GET $path HTTP/1.1rn");
@
fputs($fp, "Host$hostrn");
@
fputs($fp, "Accept: *

新浪准备跟Google合作?

该日志由 Kevin 发表于 2006, May 20, 11:41 AM