-
2009-05-31
生活中的创意 - [IT 新闻]
1.也许我们应该从科技数码产品中得到一些灵感，应用在其他行业里面，就像在iPhone上滑动解锁...电影里面应该模仿此功能,比如X 战警？ 增加神秘感.
呵呵. 第一次拜访的朋友进门，也许会死劲来摩擦此位置来..
2.iPod底座式的扬声器..让设计回归原始风味...
随机文章：
电子商务未来思路 2009-08-07Cisco 叫板 Google 立足云计算 2009-07-07淘宝网 危机！ 2009-07-06谈比较购物搜索 (学习电子商务想法第二篇) 2009-04-19最近学习电子商务的一些想法 2009-04-15
收藏到：Del.icio.us
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, "
评论