关于Keso 给谷歌的建议我很赞同.
想给谷歌一个建议。尽管你以为自己已经做了很多、很残酷的自我阉割，但离党和人民的要求还差得远。你们赶紧推出一个儿童版搜索，给孩子们用，省得专家们搜着搜着就想起了全中国可怜的孩子，就不禁忧国忧民起来。你们既然来到中国，就得为中国专家们的身心健康负责。你被绿坝了是小事，我一堆的信件、文档、照片、博客，全都用不了，这事可就大了
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, "
评论