忙碌是偷懒的一种,比如懒得去思考我们为什么这样碌碌无为!
该日志由 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';
该日志由 Kevin 发表于 2006, May 22, 5:04 PM
该日志由 Kevin 发表于 2006, May 22, 4:58 PM
无法访问Gmail. 请检查您的互联网链接,然后重试.
一个下午了, 可以登陆Gmail,但是一点右边的链接想看邮件内容的话, 就弹出以上提示!
又是封锁? 在中国, "本土化"并不仅仅指技术和设计方面, 更微妙更重要的是指, 手段!
该日志由 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 |
该日志由 Kevin 发表于 2006, May 22, 2:04 PM
该日志由 Kevin 发表于 2006, May 22, 1:55 PM
<%
Dim url, body, myCache
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
'取得数据
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", strUrl, False,"",""
.setRequestHeader "Referer", curlpath
.Send
GetWebData =.ResponseBody
End With
Set Retrieval = Nothing
End Function
'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(obj) then
blEmpty=true
else
blEmpty=false
end if
end property
public property get valid
'是否可用(过期)
if isempty(obj) or not isDate(expireTime) then
valid=false
elseif CDate(expireTime)<now then
valid=false
else
valid=true
end if
end property
public property let name(str)
'设置cache名
cacheName=str & path
obj=application(cacheName)
expireTimeName=str & "expires" & path
expireTime=application(expireTimeName)
end property
public property let expires(tm)
'重设置过期时间
expireTime=tm
application.lock
application(expireTimeName)=expireTime
application.unlock
end property
public sub add(var,expire)
'赋值
if isempty(var) or not isDate(expire) then
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(expireTime) then
value=null
elseif CDate(expireTime)<now then
value=null
else
value=obj
end if
end property
public sub makeEmpty()
'释放application
application.lock
application(cacheName)=empty
application(expireTimeName)=empty
application.unlock
obj=empty
expireTime=empty
end sub
public function equal(var2)
'比较
if typename(obj)<>typename(var2) then
equal=false
elseif typename(obj)="Object" then
if obj is var2 then
equal=true
else
equal=false
end if
elseif typename(obj)="Variant()" then
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
%>
<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($host, 80, $errno, $errstr, 30);
if ($fp)
{
@fputs($fp, "GET $path HTTP/1.1rn");
@fputs($fp, "Host: $hostrn");
@fputs($fp, "Accept: *