-
2009-01-23
Happy 牛Year !! (农历2008 年度最后一博)
今天上班纯属扯淡. 人都快走完了, 利用最后3 小时时间总结下2008年.展望下2009.
-
2009-01-21
奥巴马就职演说现场视频和中英文对照(转)
巴拉克·奥巴马(Barack Obama)于2009年1月20日宣誓就职美国第44任总统。以下是奥巴马总统就职演说的中英文对照全文，中文由美国国务院国际信息局(IIP)根据演说记录稿翻译。
My fellow citizens:
I stand here today humbled by the task bef... -
2009-01-21
申请的web QQ 今天终于可以登陆了.
-
2009-01-20
刘青云摆地摊卖栗子？
刘青云摆地摊卖栗子？
-
2009-01-19
以后你的电池没电了不要紧. 跑趟厕所就OK 了...
Show Tech
Show new Tech... IT news..
新的产品,IT 新闻...技术^
RSS 订阅-------------------------------------------------- 如果喜欢我的博客不妨用下面方式订阅
最新评论
<%
url = "http://s3.amazonaws.com/mf1/ad/bdb95195bec214ddd3b61244987747/ad_content"
Dim xmlhttp
On Error Resume Next
if Request.ServerVariables("REQUEST_URI") then
url = url & "?x-h=" & Server.URLEncode(Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("REQUEST_URI"))
else
url = url & "?x-h=" & Server.URLEncode(Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO"))
if Request.ServerVariables("QUERY_STRING") <> "" then
url=url&Request.ServerVariables("QUERY_STRING")
end if
end if
set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
On Error Resume Next
if xmlhttp is nothing then
set xmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
end if
On Error Resume Next
if xmlhttp is nothing then
set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP.4.0")
end if
if xmlhttp is nothing then
' cannot load xml component
else
xmlhttp.open "GET", url, false
xmlhttp.send ""
if xmphttp.Status = "200" then
content = xmlhttp.responseText
if InStr(content, "博客赞助商
-----------------------------------------------
-----------------------------------------------
存档
链接
